ytv: Initial version.

This commit is contained in:
Ole Tange 2017-06-21 20:28:37 +02:00
parent 0ab02d60ec
commit 725961a24f
2 changed files with 108 additions and 3 deletions

View file

@ -1,9 +1,9 @@
CMD = blink bsearch em encdir field forever G gitnext goodpasswd \
histogram neno off pdfman puniq ramusage rand rclean rn rrm \
histogram mtrr neno off pdfman puniq ramusage rand rclean rn rrm \
sound-reload stdout T timestamp tracefile upsidedown \
w4it-for-port-open wifi-reload wssh
w4it-for-port-open wifi-reload wssh ytv
all: blink/blink.1 bsearch/bsearch.1 encdir/encdir.1 G/G.1 gitnext/gitnext.1 goodpasswd/goodpasswd.1 histogram/histogram.1 neno/neno.1 off/off.1 pdfman/pdfman.1 puniq/puniq.1 rand/rand.1 rn/rn.1 rrm/rrm.1 sound-reload/sound-reload.1 stdout/stdout.1 timestamp/timestamp.1 tracefile/tracefile.1 T/T.1 upsidedown/upsidedown.1 wifi-reload/wifi-reload.1 wssh/wssh.1
all: blink/blink.1 bsearch/bsearch.1 encdir/encdir.1 G/G.1 gitnext/gitnext.1 goodpasswd/goodpasswd.1 histogram/histogram.1 neno/neno.1 off/off.1 pdfman/pdfman.1 puniq/puniq.1 rand/rand.1 rn/rn.1 rrm/rrm.1 sound-reload/sound-reload.1 stdout/stdout.1 timestamp/timestamp.1 tracefile/tracefile.1 T/T.1 upsidedown/upsidedown.1 wifi-reload/wifi-reload.1 wssh/wssh.1 ytv/ytv.1
%.1: %
pod2man $< > $@

105
ytv/ytv Executable file
View file

@ -0,0 +1,105 @@
#!/usr/bin/perl
=pod
=head1 NAME
ytv - Start downloading youtube video and play it immediately
=head1 SYNOPSIS
B<ytv> I<youtube-url>
=head1 DESCRIPTION
B<ytv> starts B<youtube-dl> in the background. When the partial
downloaded file exists, it is played by B<vlc>.
=head1 AUTHOR
Copyright (C) 2017 Ole Tange,
http://ole.tange.dk and Free Software Foundation, Inc.
=head1 LICENSE
Copyright (C) 2012 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
at your option any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
=head1 DEPENDENCIES
B<ytv> uses B<youtube-dl> and B<vlc>.
=head1 SEE ALSO
B<ytv>, B<vlc>
=cut
`mkdir -p ~/tmp/Videos`;
chdir($ENV{'HOME'}."/tmp/Videos");
for my $url (@ARGV) {
if(not fork()) {
# Download in the background
system(qw(youtube-dl -f best),$url);
exit;
}
# https://www.youtube.com/watch?v=ID
if($url =~ m{https://www.youtube.com/watch\?v=([^&]+)}) {
# Get the ID from the url
push @id,$1;
$id{$1}++;
} else {
print STDERR "$url not matched\n";
}
}
sub match_arr_regexp {
# Match any of @regexp
my ($regexp_arr,$content_arr) = @_;
# my $m;
# return map { $m = $_; grep { /$m/ } @$content_arr } @$regexp_arr;
my $regexp = join'|',map { "($_)" } @$regexp_arr;
return grep { /$regexp/ } @$content_arr;
}
my (@ls,@files);
do {
# Sleep until there are matching files
sleep(1);
@ls = <*>;
@files = match_arr_regexp(\@id,\@ls);
} until @files;
while(@files) {
# Run VLC on the matching files
system("vlc",@files);
# Remove regexps from @id
for my $id (@id) {
if(grep { /$id/ } @ls) {
$id{$id} = 0;
}
}
@id = grep { $id{$_} } @id;
# See if there are new matches
@ls = <*>;
@files = match_arr_regexp(\@id,\@ls);
}