projects
/
HTML5TV.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e449834
)
store video length
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 11 Oct 2009 13:55:43 +0000
(15:55 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 11 Oct 2009 13:55:43 +0000
(15:55 +0200)
bin/mplayer.pl
patch
|
blob
|
history
diff --git
a/bin/mplayer.pl
b/bin/mplayer.pl
index
f42872a
..
6da9b45
100755
(executable)
--- a/
bin/mplayer.pl
+++ b/
bin/mplayer.pl
@@
-43,7
+43,7
@@
epoll_ctl($epfd, EPOLL_CTL_ADD, fileno $from_mplayer , EPOLLIN ) >= 0 || die $!
sub load_movie {
warn "$movie ", -s $movie, " bytes $edl\n";
print $to_mplayer qq|loadfile "$movie"\n|;
sub load_movie {
warn "$movie ", -s $movie, " bytes $edl\n";
print $to_mplayer qq|loadfile "$movie"\n|;
- print $to_mplayer "get_property $_\n" foreach ( qw/metadata video_codec video_bitrate width height fps/ );
+ print $to_mplayer "get_property $_\n" foreach ( qw/metadata video_codec video_bitrate width height fps
length
/ );
}
}
@@
-119,10
+119,6
@@
sub html5tv {
}
}
}
}
- warn "# sync ", dump $sync;
-
- warn "# prop ", dump $prop;
-
my $html5tv = {
sync => $sync,
video => $prop,
my $html5tv = {
sync => $sync,
video => $prop,
@@
-146,6
+142,8
@@
sub html5tv {
}
}
}
}
+ warn "html5tv ", dump $html5tv;
+
my $sync_path = 'www/media/video.js';
write_file $sync_path, "var html5tv = " . to_json($html5tv) . " ;\n";
warn "sync $sync_path ", -s $sync_path, " bytes\n";
my $sync_path = 'www/media/video.js';
write_file $sync_path, "var html5tv = " . to_json($html5tv) . " ;\n";
warn "sync $sync_path ", -s $sync_path, " bytes\n";