2017-06-21 18:28:37 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
|
|
=pod
|
|
|
|
|
|
|
|
=head1 NAME
|
|
|
|
|
|
|
|
ytv - Start downloading youtube video and play it immediately
|
|
|
|
|
|
|
|
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
|
2019-02-03 16:50:45 +00:00
|
|
|
B<ytv> [--tor] [--kodi] I<youtube-url>
|
|
|
|
cat urlfile | B<ytv> [--tor] [--kodi]
|
2017-06-21 18:28:37 +00:00
|
|
|
|
|
|
|
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
|
|
|
|
B<ytv> starts B<youtube-dl> in the background. When the partial
|
|
|
|
downloaded file exists, it is played by B<vlc>.
|
|
|
|
|
2018-09-02 16:35:51 +00:00
|
|
|
|
|
|
|
=head1 OPTIONS
|
|
|
|
|
|
|
|
=over 4
|
|
|
|
|
|
|
|
=item B<--tor>
|
|
|
|
|
|
|
|
Use tor proxy to download. It assumes you are running a tor proxy on
|
|
|
|
127.0.0.1:9050.
|
|
|
|
|
2020-03-21 13:11:17 +00:00
|
|
|
=item B<--kodi>
|
|
|
|
|
|
|
|
Play video using remote B<kodi> server.
|
|
|
|
|
|
|
|
|
2018-09-02 16:35:51 +00:00
|
|
|
=back
|
|
|
|
|
|
|
|
|
2017-06-21 18:28:37 +00:00
|
|
|
=head1 AUTHOR
|
|
|
|
|
2019-02-03 16:50:45 +00:00
|
|
|
Copyright (C) 2017-2019 Ole Tange,
|
2017-06-21 18:28:37 +00:00
|
|
|
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
|
|
|
|
|
2018-09-02 16:35:51 +00:00
|
|
|
use Getopt::Long;
|
|
|
|
Getopt::Long::Configure("bundling","require_order");
|
|
|
|
get_options_from_array(\@ARGV) || die_usage();
|
|
|
|
my @tor = $opt::tor ? qw(--proxy socks4a://127.0.0.1:9050/) : ();
|
|
|
|
|
2017-06-21 18:28:37 +00:00
|
|
|
`mkdir -p ~/tmp/Videos`;
|
|
|
|
chdir($ENV{'HOME'}."/tmp/Videos");
|
2017-06-29 17:12:57 +00:00
|
|
|
map { $before{$_} = -M $_ } <*>;
|
2018-12-13 20:03:25 +00:00
|
|
|
my @youtubeid;
|
2019-02-03 16:50:45 +00:00
|
|
|
for (@ARGV) {
|
|
|
|
play($_)
|
|
|
|
}
|
2018-12-13 20:03:25 +00:00
|
|
|
if(not @ARGV) {
|
2019-02-03 16:50:45 +00:00
|
|
|
while(<>) {
|
|
|
|
chomp;
|
|
|
|
play($_)
|
|
|
|
}
|
2018-12-13 20:03:25 +00:00
|
|
|
}
|
|
|
|
|
2019-10-12 20:20:20 +00:00
|
|
|
sub playfiles {
|
|
|
|
my @files = @_;
|
|
|
|
|
|
|
|
if($opt::kodi) {
|
2020-06-05 10:44:51 +00:00
|
|
|
# Playlist includes partial files
|
|
|
|
my @plist =
|
|
|
|
uniq(map { $a=$b=$_; $b=~s/.part//; s/.temp//; $a,$b,$_ } @files);
|
|
|
|
my $i = 0;
|
|
|
|
while(1) {
|
|
|
|
$_ = $plist[$i];
|
|
|
|
if(-e $_) {
|
|
|
|
# Only try playing if the file exists
|
2019-10-12 20:20:20 +00:00
|
|
|
print "KODI playing $_\n";
|
|
|
|
if(not fork()) {
|
|
|
|
exec("idok", $_);
|
|
|
|
}
|
|
|
|
print "Press (r)etry, (d)elete, (p)revious, (n)ext\n";
|
2020-06-05 10:44:51 +00:00
|
|
|
my $answer;
|
2019-10-12 20:20:20 +00:00
|
|
|
while(not defined $answer) {
|
|
|
|
open(my $tty_fh, "<", "/dev/tty") ||
|
|
|
|
::die_bug("interactive-tty");
|
|
|
|
$answer = <$tty_fh>;
|
|
|
|
close $tty_fh;
|
|
|
|
}
|
2020-06-05 10:44:51 +00:00
|
|
|
if($answer =~ /^d$/i) {
|
|
|
|
unlink $_;
|
|
|
|
}
|
|
|
|
if($answer =~ /^p$/i) {
|
|
|
|
# Find previous existing file
|
|
|
|
do {
|
|
|
|
$i--;
|
|
|
|
} until (-e $plist[$i] or $i == 0);
|
|
|
|
}
|
|
|
|
if($answer =~ /^n$/i) {
|
|
|
|
# Find next existing file
|
|
|
|
do {
|
|
|
|
$i++;
|
|
|
|
} until (-e $plist[$i] or $i > $#plist);
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
# Find the first existing file
|
|
|
|
do {
|
|
|
|
$i++;
|
|
|
|
} until (-e $plist[$i] or $i > $#plist);
|
|
|
|
}
|
|
|
|
if($i > $#plist) { last; }
|
2019-10-12 20:20:20 +00:00
|
|
|
}
|
|
|
|
} else {
|
|
|
|
system("vlc", map { $a=$b=$_; $b=~s/.part//; s/.temp//; $a,$b,$_ } @files);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2019-02-03 16:50:45 +00:00
|
|
|
sub play {
|
|
|
|
my $url = shift;
|
|
|
|
|
2018-12-13 20:03:25 +00:00
|
|
|
print "Playing $url\n";
|
2019-10-12 20:20:20 +00:00
|
|
|
if(-e $url) {
|
|
|
|
playfiles($url);
|
|
|
|
return;
|
|
|
|
}
|
2017-06-21 18:28:37 +00:00
|
|
|
if(not fork()) {
|
|
|
|
# Download in the background
|
2018-09-18 15:32:32 +00:00
|
|
|
system(qw(youtube-dl --all-subs --skip-download), @tor,$url);
|
2018-09-02 16:35:51 +00:00
|
|
|
system(qw(youtube-dl -f best), @tor,$url);
|
2017-06-21 18:28:37 +00:00
|
|
|
exit;
|
|
|
|
}
|
|
|
|
|
2018-12-13 20:03:25 +00:00
|
|
|
do {
|
|
|
|
# Sleep until there are matching files
|
2019-02-03 16:50:45 +00:00
|
|
|
@new = (
|
|
|
|
# Remove fragments and subtitles
|
|
|
|
grep { !/vtt$|Frag\d/ }
|
|
|
|
# Include $url if that is a file
|
|
|
|
(grep { -e $_ } $url),
|
|
|
|
# Look for files > 1M, and that we have not seen before
|
|
|
|
(grep { -s $_ > 1000000 }
|
|
|
|
grep { not $before{$_} or $before{$_} > -M $_ } <*>),
|
|
|
|
# Include all files that match the id if $urls is a youtube ID
|
|
|
|
map { my $id = $_; grep { /$id/ } <*> }
|
|
|
|
grep { s/^.*watch.v=([a-z0-9]+).*$/$1/i
|
|
|
|
or
|
|
|
|
s/^.*youtu.be.([a-z0-9]+).*$/$1/i } $url);
|
2018-12-13 20:03:25 +00:00
|
|
|
usleep(10);
|
|
|
|
} until @new;
|
|
|
|
|
|
|
|
while(@new) {
|
|
|
|
# Mark as seen
|
|
|
|
map { $before{$_} = -M $_ } @new;
|
|
|
|
# Run VLC on the matching files
|
2019-10-12 20:20:20 +00:00
|
|
|
playfiles(@new);
|
2018-12-13 20:03:25 +00:00
|
|
|
@new = grep { not $before{$_} or $before{$_} > -M $_ } <*>;
|
|
|
|
}
|
2017-06-21 18:28:37 +00:00
|
|
|
}
|
2018-09-02 16:35:51 +00:00
|
|
|
|
|
|
|
sub get_options_from_array {
|
|
|
|
# Run GetOptions on @array
|
|
|
|
# Returns:
|
|
|
|
# true if parsing worked
|
|
|
|
# false if parsing failed
|
|
|
|
# @array is changed
|
|
|
|
my $array_ref = shift;
|
|
|
|
# A bit of shuffling of @ARGV needed as GetOptionsFromArray is not
|
|
|
|
# supported everywhere
|
|
|
|
my @save_argv;
|
|
|
|
my $this_is_ARGV = (\@::ARGV == $array_ref);
|
|
|
|
if(not $this_is_ARGV) {
|
|
|
|
@save_argv = @::ARGV;
|
|
|
|
@::ARGV = @{$array_ref};
|
|
|
|
}
|
|
|
|
my @retval = GetOptions
|
|
|
|
("debug|D" => \$opt::debug,
|
|
|
|
"tor" => \$opt::tor,
|
2018-12-13 20:03:25 +00:00
|
|
|
"kodi|k" => \$opt::kodi,
|
2018-09-02 16:35:51 +00:00
|
|
|
"version|V" => \$opt::version,
|
|
|
|
);
|
|
|
|
if(not $this_is_ARGV) {
|
|
|
|
@{$array_ref} = @::ARGV;
|
|
|
|
@::ARGV = @save_argv;
|
|
|
|
}
|
|
|
|
return @retval;
|
|
|
|
}
|
2018-12-13 20:03:25 +00:00
|
|
|
|
|
|
|
sub usleep {
|
|
|
|
# Sleep this many milliseconds.
|
|
|
|
# Input:
|
|
|
|
# $ms = milliseconds to sleep
|
|
|
|
my $ms = shift;
|
|
|
|
select(undef, undef, undef, $ms/1000);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub uniq {
|
|
|
|
# Remove duplicates and return unique values
|
|
|
|
return keys %{{ map { $_ => 1 } @_ }};
|
|
|
|
}
|