From c99b5e5b0f12ce49a0b49a93cbc0ffd0f67f1e93 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 14 Dec 2009 20:02:24 +0100
Subject: [PATCH] use oggLength instead of mplayer which isn't reliable

---
 bin/mplayer.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index 3a12f11..cfebbd8 100755
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -757,7 +757,16 @@ sub from_mplayer {
 
 }
 
-push @to_mplayer, "get_property $_\n" foreach grep { ! $prop->{$_} } ( qw/metadata video_codec video_bitrate width height fps length/ );
+my @mplayer_prop = ( qw/metadata video_codec video_bitrate width height fps/ );
+warn "XXX $movie\n";
+if ( my $l = `oggLength $movie` ) {
+	$l = $l / 1000;
+	$prop->{length} = $l;
+	warn "$movie length ", fmt_mmss( $l );
+}
+push @mplayer_prop, 'length' unless $prop->{length};
+
+push @to_mplayer, "get_property $_\n" foreach grep { ! $prop->{$_} } @mplayer_prop;
 
 my $t = time;
 my $line;
-- 
2.20.1