aboutsummaryrefslogtreecommitdiffstats
path: root/bin/straw-viewer
diff options
context:
space:
mode:
authorJesús <heckyel@hyperbola.info>2020-03-02 08:18:54 -0500
committerJesús <heckyel@hyperbola.info>2020-03-02 08:18:54 -0500
commitc67158fa409f1b1b4f98a8621a69bb2013b76451 (patch)
treebb4ca80f29cda70734a868d372e00c85e172e7d3 /bin/straw-viewer
parentad7ec1785fc28799e10d10e7a679dc5bb4891ee3 (diff)
downloadfair-viewer-c67158fa409f1b1b4f98a8621a69bb2013b76451.tar.lz
fair-viewer-c67158fa409f1b1b4f98a8621a69bb2013b76451.tar.xz
fair-viewer-c67158fa409f1b1b4f98a8621a69bb2013b76451.zip
rebrand app
Diffstat (limited to 'bin/straw-viewer')
-rwxr-xr-xbin/straw-viewer4183
1 files changed, 0 insertions, 4183 deletions
diff --git a/bin/straw-viewer b/bin/straw-viewer
deleted file mode 100755
index 6fa34ef..0000000
--- a/bin/straw-viewer
+++ /dev/null
@@ -1,4183 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) 2010-2020 Trizen <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d>.
-#
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of either: the GNU General Public License as published
-# by the Free Software Foundation; or the Artistic License.
-#
-# 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 https://dev.perl.org/licenses/ for more information.
-#
-#-------------------------------------------------------
-# straw-viewer
-# Fork: 14 February 2020
-# Edit: 14 February 2020
-# https://github.com/trizen/straw-viewer
-#-------------------------------------------------------
-
-# straw-viewer is a command line utility for streaming YouTube videos in mpv/vlc/mplayer.
-
-# This is a fork of youtube-viewer:
-# https://github.com/trizen/youtube-viewer
-
-=head1 NAME
-
-straw-viewer - YouTube from command line.
-
-See: straw-viewer --help
- straw-viewer --tricks
- straw-viewer --examples
- straw-viewer --stdin-help
-
-=head1 LICENSE AND COPYRIGHT
-
-Copyright 2010-2020 Trizen.
-
-This program is free software; you can redistribute it and/or modify it
-under the terms of either: the GNU General Public License as published
-by the Free Software Foundation; or the Artistic License.
-
-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 L<https://dev.perl.org/licenses/> for more information.
-
-=cut
-
-use utf8;
-use 5.016;
-
-use warnings;
-no warnings 'once';
-
-my $DEVEL; # true in devel mode
-use if ($DEVEL = 1), lib => qw(../lib); # devel mode
-
-use WWW::StrawViewer v0.0.1;
-use WWW::StrawViewer::RegularExpressions;
-
-use File::Spec::Functions qw(
- catdir
- catfile
- curdir
- path
- rel2abs
- tmpdir
- file_name_is_absolute
- );
-
-binmode(STDOUT, ':utf8');
-
-my $appname = 'CLI Straw Viewer';
-my $version = $WWW::StrawViewer::VERSION;
-my $execname = 'straw-viewer';
-
-# A better <STDIN> support:
-require Term::ReadLine;
-my $term = Term::ReadLine->new("$appname $version");
-
-# Options (key=>value) goes here
-my %opt;
-my $term_width = 80;
-
-# Keep track of watched videos by their ID
-my %watched_videos;
-
-# Unchangeable data goes here
-my %constant = (win32 => ($^O eq 'MSWin32' ? 1 : 0)); # doh
-
-my $home_dir;
-my $xdg_config_home = $ENV{XDG_CONFIG_HOME};
-
-if ($xdg_config_home and -d -w $xdg_config_home) {
- require File::Basename;
- $home_dir = File::Basename::dirname($xdg_config_home);
-
- if (not -d -w $home_dir) {
- $home_dir = $ENV{HOME} || curdir();
- }
-}
-else {
- $home_dir =
- $ENV{HOME}
- || $ENV{LOGDIR}
- || ($constant{win32} ? '\Local Settings\Application Data' : ((getpwuid($<))[7] || `echo -n ~`));
-
- if (not -d -w $home_dir) {
- $home_dir = curdir();
- }
-
- $xdg_config_home = catdir($home_dir, '.config');
-}
-
-# Configuration dir/file
-my $config_dir = catdir($xdg_config_home, $execname);
-my $config_file = catfile($config_dir, "$execname.conf");
-my $authentication_file = catfile($config_dir, 'reg.dat');
-my $history_file = catfile($config_dir, 'cli-history.txt');
-my $watched_file = catfile($config_dir, 'watched.txt');
-my $api_file = catfile($config_dir, 'api.json');
-
-if (not -d $config_dir) {
- require File::Path;
- File::Path::make_path($config_dir)
- or warn "[!] Can't create dir '$config_dir': $!";
-}
-
-sub which_command {
- my ($cmd) = @_;
-
- if (file_name_is_absolute($cmd)) {
- return $cmd;
- }
-
- state $paths = [path()];
- foreach my $path (@{$paths}) {
- my $cmd_path = catfile($path, $cmd);
- if (-f -x $cmd_path) {
- return $cmd_path;
- }
- }
-
- return;
-}
-
-# Main configuration
-my %CONFIG = (
-
- video_players => {
- vlc => {
- cmd => q{vlc},
- srt => q{--sub-file=*SUB*},
- audio => q{--input-slave=*AUDIO*},
- fs => q{--fullscreen},
- arg => q{--quiet --play-and-exit --no-video-title-show --input-title-format=*TITLE*},
- novideo => q{--intf=dummy --novideo},
- },
- mpv => {
- cmd => q{mpv},
- srt => q{--sub-file=*SUB*},
- audio => q{--audio-file=*AUDIO*},
- fs => q{--fullscreen},
- arg => q{--really-quiet --title=*TITLE* --no-ytdl},
- novideo => q{--no-video},
- },
- mplayer => {
- cmd => q{mplayer},
- srt => q{-sub *SUB*},
- audio => q{-audiofile *AUDIO*},
- fs => q{-fs},
- arg => q{-prefer-ipv4 -really-quiet -title *TITLE*},
- novideo => q{-novideo},
- },
- },
-
- video_player_selected => (
- $constant{win32}
- ? 'mplayer'
- : undef # auto-defined
- ),
-
- # YouTube options
- dash_support => 1,
- dash_mp4_audio => 1,
- dash_segmented => 1, # may load slow
- maxResults => 20,
- resolution => 'best',
- videoDefinition => undef,
- videoDimension => undef,
- videoLicense => undef,
- safeSearch => undef,
- videoCaption => undef,
- videoDuration => undef,
- videoSyndicated => undef,
- publishedBefore => undef,
- publishedAfter => undef,
- order => undef,
-
- comments_order => 'top', # valid values: top, new
- subscriptions_order => 'relevance', # valid values: alphabetical, relevance, unread
-
- hl => 'en_US',
- regionCode => undef,
-
- # URI options
- youtube_video_url => 'https://www.youtube.com/watch?v=%s',
-
- # Subtitle options
- srt_languages => ['en', 'es'],
- get_captions => 1,
- auto_captions => 0,
- copy_caption => 0,
- captions_dir => catdir(tmpdir(), 'straw-viewer'),
- cache_dir => catdir(tmpdir(), 'straw-viewer'),
-
- # API
- api_host => "https://invidio.us",
-
- # Others
- autoplay_mode => 0,
- http_proxy => undef,
- env_proxy => 1,
- confirm => 0,
- debug => 0,
- page => 1,
- colors => $constant{win32} ^ 1,
- skip_if_exists => 1,
- prefer_mp4 => 0,
- prefer_av1 => 0,
- fat32safe => $constant{win32},
- fullscreen => 0,
- results_with_details => 0,
- results_with_colors => 0,
- results_fixed_width => undef, # auto-defined
- show_video_info => 1,
- interactive => 1,
- get_term_width => $constant{win32} ^ 1,
- download_with_wget => undef, # auto-defined
- thousand_separator => q{,},
- downloads_dir => curdir(),
- keep_original_video => 0,
- download_and_play => 0,
- autohide_watched => 0,
- skip_watched => 0,
- remember_watched => 0,
- watched_file => $watched_file,
- highlight_watched => 1,
- highlight_color => 'bold',
- remove_played_file => 0,
- history => undef, # auto-defined
- history_limit => 100_000,
- history_file => $history_file,
- convert_cmd => 'ffmpeg -i *IN* *OUT*',
- convert_to => undef,
-
- custom_layout => undef, # auto-defined
- custom_layout_format => [{width => 3, align => "right", color => "bold", text => "*NO*.",},
- {width => "55%", align => "left", color => "bold blue", text => "*TITLE*",},
- {width => "15%", align => "left", color => "yellow", text => "*AUTHOR*",},
- {width => 3, align => "right", color => "green", text => "*AGE_SHORT*",},
- {width => 5, align => "right", color => "green", text => "*VIEWS_SHORT*",},
- {width => 8, align => "right", color => "blue", text => "*TIME*",},
- ],
-
- ffmpeg_cmd => 'ffmpeg',
- wget_cmd => 'wget',
-
- merge_into_mkv => undef, # auto-defined later
- merge_into_mkv_args => '-loglevel warning -c:s srt -c:v copy -c:a copy -disposition:s forced',
- merge_with_captions => 1,
-
- video_filename_format => '*FTITLE* - *ID*.*FORMAT*',
-);
-
-local $SIG{__WARN__} = sub { warn @_; ++$opt{_error} };
-
-my %MPLAYER; # will store video player arguments
-
-my $base_options = <<'BASE';
-# Base
-[keywords] : search for YouTube videos
-[youtube-url] : play a video by YouTube URL
-:v(ideoid)=ID : play videos by YouTube video IDs
-[playlist-url] : display videos from a playlistURL
-:playlist=ID : display videos from a playlistID
-BASE
-
-my $action_options = <<'ACTIONS';
-# Actions
-:login : will prompt you for login
-:logout : will delete the authentication key
-ACTIONS
-
-my $control_options = <<'CONTROL';
-# Control
-:n(ext) : get the next page of results
-:b(ack) : get the previous page of results
-CONTROL
-
-my $other_options = <<'OTHER';
-# Others
-:r(eturn) : return to previous page of results
-:refresh : refresh the current list of results
-:dv=i : display the data structure of result i
--argv -argv2=v : apply some arguments (e.g.: -u=google)
-:reset, :reload : restart the application
-:q, :quit, :exit : close the application
-OTHER
-
-my $notes_options = <<'NOTES';
-NOTES:
- 1. You can specify more options in a row, separated by spaces.
- 2. A stdin option is valid only if it begins with '=', ';' or ':'.
- 3. Quoting a group of space separated keywords or option-values,
- the group will be considered a single keyword or a single value.
-NOTES
-
-my $general_help = <<"HELP";
-
-$action_options
-$control_options
-$other_options
-$notes_options
-Examples:
- 3 : select the 3rd result
- -sv funny cats : search for videos
- -sc mathematics : search for channels
- -sp classical music : search for playlists
-HELP
-
-my $playlists_help = <<"PL_HELP" . $general_help;
-
-# Playlists
-:pp=i,i : play videos from the selected playlists
-PL_HELP
-
-my $comments_help = <<"COM_HELP" . $general_help;
-
-# Comments
-:c(omment) : send a comment to this video
-COM_HELP
-
-my $complete_help = <<"STDIN_HELP";
-
-$base_options
-$control_options
-$action_options
-# YouTube
-:i(nfo)=i,i : display more information
-:d(ownload)=i,i : download the selected videos
-:c(omments)=i : display video comments
-:r(elated)=i : display related videos
-:u(ploads)=i : display author's latest uploads
-:pv=i :popular=i : display author's popular uploads
-:A(ctivity)=i : display author's recent activity
-:p(laylists)=i : display author's playlists
-:ps=i :s2p=i,i : save videos to a post-selected playlist
-:subscribe=i : subscribe to author's channel
-:(dis)like=i : like or dislike a video
-:fav(orite)=i : favorite a video
-:autoplay=i : autoplay mode, starting from video i
-
-# Playing
-<number> : play the corresponding video
-3-8, 3..8 : same as 3 4 5 6 7 8
-8-3, 8..3 : same as 8 7 6 5 4 3
-8 2 12 4 6 5 1 : play the videos in a specific order
-10.. : play all the videos onwards from 10
-:q(ueue)=i,i,... : enqueue videos for playing them later
-:pq, :play-queue : play the enqueued videos (if any)
-:anp, :nnp : auto-next-page, no-next-page
-:play=i,i,... : play a group of selected videos
-:regex=my?[regex] : play videos matched by a regex (/i)
-:kregex=KEY,RE : play videos if the value of KEY matches the RE
-
-$other_options
-$notes_options
-** Examples:
-:regex="\\w \\d" -> play videos matched by a regular expression.
-:info=1 -> show extra information for the first video.
-:d18-20,1,2 -> download the selected videos: 18, 19, 20, 1 and 2.
-3 4 :next 9 -> play the 3rd and 4th videos from the current
- page, go to the next page and play the 9th video.
-STDIN_HELP
-
-{
- my $config_documentation = <<"EOD";
-#!/usr/bin/perl
-
-# $appname $version - configuration file
-
-EOD
-
- sub dump_configuration {
- my ($config_file) = @_;
-
- require Data::Dump;
- open my $config_fh, '>', $config_file
- or do { warn "[!] Can't open '${config_file}' for write: $!"; return };
-
- my $dumped_config = q{our $CONFIG = } . Data::Dump::pp(\%CONFIG) . "\n";
-
- if ($home_dir eq $ENV{HOME}) {
- $dumped_config =~ s/\Q$home_dir\E/\$ENV{HOME}/g;
- }
-
- print $config_fh $config_documentation, $dumped_config;
- close $config_fh;
- }
-}
-
-our $CONFIG;
-
-sub load_config {
- my ($config_file) = @_;
-
- if (not -e $config_file or -z _ or $opt{reconfigure}) {
- dump_configuration($config_file);
- }
-
- require $config_file; # Load the configuration file
-
- if (ref $CONFIG ne 'HASH') {
- die "[ERROR] Invalid configuration file!\n\t\$CONFIG is not an HASH ref!";
- }
-
- # Get valid config keys
- my @valid_keys = grep { exists $CONFIG{$_} } keys %{$CONFIG};
- @CONFIG{@valid_keys} = @{$CONFIG}{@valid_keys};
-
- my $update_config = 0;
-
- # Define the cache directory
- if (not defined $CONFIG{cache_dir}) {
-
- my $cache_dir =
- ($ENV{XDG_CACHE_HOME} and -d -w $ENV{XDG_CACHE_HOME})
- ? $ENV{XDG_CACHE_HOME}
- : catdir($home_dir, '.cache');
-
- if (not -d -w $cache_dir) {
- $cache_dir = catdir(curdir(), '.cache');
- }
-
- $CONFIG{cache_dir} = catdir($cache_dir, 'youtube-viewer');
- $update_config = 1;
- }
-
- # Locating a video player
- if (not $CONFIG{video_player_selected}) {
-
- foreach my $key (sort keys %{$CONFIG{video_players}}) {
- if (defined(my $abs_player_path = which_command($CONFIG{video_players}{$key}{cmd}))) {
- $CONFIG{video_players}{$key}{cmd} = $abs_player_path;
- $CONFIG{video_player_selected} = $key;
- $update_config = 1;
- last;
- }
- }
-
- if (not $CONFIG{video_player_selected}) {
- warn "\n[!] Please install a supported video player! (e.g.: mpv)\n\n";
- $CONFIG{video_player_selected} = 'mpv';
- }
- }
- elsif ($CONFIG{video_player_selected} =~ /mpv/i) { # update for mpv 0.32 (#290)
-#<<<
- my $mpv = $CONFIG{video_players}{$CONFIG{video_player_selected}};
- if (
- ($mpv->{arg} =~ s/(--title)\s+(\*TITLE\*)/$1=$2/g)
- | ($mpv->{audio} =~ s/(--audio-file)\s+(\*AUDIO\*)/$1=$2/g)
- | ($mpv->{srt} =~ s/(--sub-file)\s+(\*SUB\*)/$1=$2/g)
- ) {
- say ":: Updated configuration to support mpv 0.32";
- $update_config = 1;
- }
-#>>>
- }
-
- # Download with wget if it is installed
- if (not defined $CONFIG{download_with_wget}) {
-
- my $wget_path = which_command('wget');
-
- if (defined($wget_path)) {
- $CONFIG{wget_cmd} = $wget_path;
- $CONFIG{download_with_wget} = 1;
- }
- else {
- $CONFIG{download_with_wget} = 0;
- }
-
- $update_config = 1;
- }
-
- # Merge into MKV if ffmpeg is installed
- if (not defined $CONFIG{merge_into_mkv}) {
-
- my $ffmpeg_path = which_command('ffmpeg');
-
- if (defined($ffmpeg_path)) {
- $CONFIG{ffmpeg_cmd} = $ffmpeg_path;
- $CONFIG{merge_into_mkv} = 1;
- }
- else {
- $CONFIG{merge_into_mkv} = 0;
- }
-
- $update_config = 1;
- }
-
- # Fixed-width format and custom layout
- if ( not defined($CONFIG{results_fixed_width})
- or not defined($CONFIG{custom_layout})) {
-
- if ( eval { require Unicode::GCString; 1 }
- or eval { require Text::CharWidth; 1 }) {
- $CONFIG{custom_layout} //= 1;
- $CONFIG{results_fixed_width} //= 1;
- }
- else {
- $CONFIG{custom_layout} = 0;
- $CONFIG{results_fixed_width} = 0;
- }
-
- $update_config = 1;
- }
-
- # Enable history if Term::ReadLine::Gnu::XS is installed
- if (not defined $CONFIG{history}) {
-
- if ($term->can('ReadHistory')) {
- $CONFIG{history} = 1;
- }
- else {
- $CONFIG{history} = 0;
- }
-
- $update_config = 1;
- }
-
- foreach my $key (keys %CONFIG) {
- if (not exists $CONFIG->{$key}) {
- $update_config = 1;
- last;
- }
- }
-
- dump_configuration($config_file) if $update_config;
-
-foreach my $path($CONFIG{cache_dir}, $CONFIG{captions_dir}) {
- next if -d $path;
- require File::Path;
- File::Path::make_path($path)
- or warn "[!] Can't create path <<$path>>: $!";
-}
-
- @opt{keys %CONFIG} = values(%CONFIG);
-}
-
-load_config($config_file);
-
-if ($opt{remember_watched}) {
- if (-f $opt{watched_file}) {
- if (open my $fh, '<', $opt{watched_file}) {
- chomp(my @ids = <$fh>);
- @watched_videos{@ids} = ();
- close $fh;
- }
- else {
- warn "[!] Can't open the watched file `$opt{watched_file}' for reading: $!";
- }
- }
-}
-
-if ($opt{history}) {
-
- # Create the history file.
- if (not -e $opt{history_file}) {
- open my $fh, '>', $opt{history_file}
- or warn "[!] Can't create the history file `$opt{history_file}': $!";
- }
-
- # Add history to Term::ReadLine
- $term->ReadHistory($opt{history_file});
-
- # All history entries
- my @history = $term->history_list;
-
- # Rewrite the history file, when the history_limit has been reached.
- if ($opt{history_limit} > 0 and @history > $opt{history_limit}) {
-
- # Try to create a backup, first
- require File::Copy;
- File::Copy::cp($opt{history_file}, "$opt{history_file}.bak");
-
- if (open my $fh, '>', $opt{history_file}) {
-
- # Keep only the most recent half part of the history file
- say {$fh} join("\n", @history[($opt{history_limit} >> 1) .. $#history]);
- close $fh;
- }
- }
-}
-
-my $yv_obj = WWW::StrawViewer->new(
- escape_utf8 => 1,
- config_dir => $config_dir,
- cache_dir => $opt{cache_dir},
- lwp_env_proxy => $opt{env_proxy},
- authentication_file => $authentication_file,
- );
-
-require WWW::StrawViewer::Utils;
-my $yv_utils = WWW::StrawViewer::Utils->new(youtube_url_format => $opt{youtube_video_url},
- thousand_separator => $opt{thousand_separator},);
-
-{ # Apply the configuration file
- my %temp = %CONFIG;
- apply_configuration(\%temp);
-}
-
-#---------------------- YOUTUBE-VIEWER USAGE ----------------------#
-sub help {
- my $eqs = q{=} x 30;
-
- local $" = ', ';
- print <<"HELP";
-\n $eqs \U$appname\E $eqs
-
-usage: $execname [options] ([url] | [keywords])
-
-== Base ==
- [URL] : play an YouTube video by URL
- [keywords] : search for YouTube videos
- [playlist URL] : display a playlist of YouTube videos
-
-
-== YouTube Options ==
-
- * Categories
- -c --categories : display the available YouTube categories
- -hl --catlang=s : language for categories (default: en_US)
-
- * Region
- --region=s : set the region code (default: US)
-
- * Videos
- -uv --uploads=s : list videos uploaded by a specific channel or user
- -pv --popular=s : list the most popular videos from a specific channel
- -uf --favorites=s : list the videos favorited by a specific user
- -id --videoids=s,s : play YouTube videos by their IDs
- -rv --related=s : show related videos for a video ID or URL
- -sv --search-videos : search for YouTube videos (default mode)
-
- * Playlists
- -up --playlists=s : list playlists created by a specific channel or user
- -sp --search-pl : search for playlists of videos
- --pid=s : list a playlist of videos by playlist ID
- --pp=s,s : play the videos from the given playlist IDs
- --ps=s : add video by ID or URL to a post-selected playlist
- or in a given playlist ID specified with `--pid`
- --position=i : position in the playlist where to add the video
-
-* Activities
- -ua --activities:s : show activity events for a given channel
-
-* Trending
- --trending:s : show trending videos in a given category ID or name
- use the `--within=s` option to restrict the results
-
- * Channels
- -sc --channels : search for YouTube channels
-
-* Comments
- --comments=s : display comments for a video by ID or URL
- --comments-order=s : change the order of YouTube comments
- valid values: relevance, time
-
- * Filtering
- --author=s : search in videos uploaded by a specific user
- --duration=s : filter search results based on video length
- valid values are: short medium long
- --caption=s : only videos with/without closed captions
- valid values are: any closedCaption none
- --category=s : search only for videos in a specific category name/ID
- --safe-search=s : YouTube will skip restricted videos for your location
- valid values are: none moderate strict
- --order=s : order the results using a specific sorting method
- valid values: date rating viewCount title videoCount
- --within=s : show only videos uploaded within the specified time
- valid values are: Nd, Nw, Nm, Ny, where N is a number
- --hd! : search only for videos available in at least 720p
- --vd=s : set the video definition (any, high or standard)
- --page=i : get results starting with a specific page number
- --results=i : how many results to display per page (max: 50)
- -2 -3 -4 -7 -1 : resolutions: 240p, 360p, 480p, 720p and 1080p
- --resolution=s : supported resolutions: best, 2160p, 1440p,
- 1080p, 720p, 480p, 360p, 240p, 144p, audio.
-
- * Account
- --login : will prompt for authentication (OAuth 2.0)
- --logout : will delete the authentication key
-
- * [GET] Personal
- -U --uploads:s : show the uploads from your channel *
- -P --playlists:s : show the playlists from your channel *
- -F --favorites:s : show the latest favorited videos *
- -S --subscriptions:s : show the subscribed channels *
- -SV --subs-videos:s : show the subscription videos (slow) *
- --subs-order=s : change the subscription order
- valid values: alphabetical, relevance, unread
- -L --likes : show the videos that you liked on YouTube *
- --dislikes : show the videos that you disliked on YouTube *
-
-* [POST] Personal
- --subscribe=s : subscribe to a given channel ID or username *
- --favorite=s : favorite a video by URL or ID *
- --like=s : send a 'like' rating to a video URL or ID *
- --dislike=s : send a 'dislike' rating to a video URL or ID *
-
-
-== Player Options ==
-
- * Arguments
- -f --fullscreen! : play videos in fullscreen mode
- -n --audio! : play audio only, without displaying video
- --append-arg=s : append some command-line parameters to the media player
- --player=s : select a player to stream videos
- available players: @{[keys %{$CONFIG->{video_players}}]}
-
-
-== Download Options ==
-
- * Download
- -d --download! : activate the download mode
- -dp --dl-play! : play the video after download (with -d)
- -rp --rem-played! : delete a local video after played (with -dp)
- --wget-dl! : download videos with wget (recommended)
- --skip-if-exists! : don't download videos which already exist (with -d)
- --copy-caption! : copy and rename the caption for downloaded videos
- --downloads-dir=s : downloads directory (set: '$opt{downloads_dir}')
- --filename=s : set a custom format for the video filename (see: -T)
- --fat32safe! : makes filenames FAT32 safe (includes Unicode)
- --mkv-merge! : merge audio and video into an MKV container
- --merge-captions! : include closed-captions in the MKV container
-
- * Convert
- --convert-cmd=s : command for converting videos after download
- which include the *IN* and *OUT* tokens
- --convert-to=s : convert video to a specific format (with -d)
- --keep-original! : keep the original video after converting
-
-
-== Other Options ==
-
- * Behavior
- -A --all! : play the video results in order
- -B --backwards! : play the video results in reverse order
- -s --shuffle! : shuffle the results of videos
- -I --interactive! : interactive mode, prompting for user input
- --autoplay! : autoplay mode, automatically playing related videos
- --std-input=s : use this value as the first standard input
- --max-seconds=i : ignore videos longer than i seconds
- --min-seconds=i : ignore videos shorter than i seconds
- --get-term-width! : allow $execname to read your terminal width
- --autohide! : automatically hide watched videos
- --skip-watched! : don't play already watched videos
- --highlight! : remember and highlight selected videos
- --confirm! : show a confirmation message after each play
- --prefer-mp4! : prefer videos in MP4 format, instead of WEBM
- --prefer-av1! : prefer videos in AV1 format, instead of WEBM
-
- * Closed-captions
- --get-captions! : download closed-captions for videos
- --auto-captions! : include or exclude auto-generated captions
- --captions-dir=s : directory where to save the .srt files
-
- * Config
- --config=s : configuration file
- --update-config! : update the configuration file
-
- * Output
- -C --colorful! : use colors to delimit the video results
- -D --details! : display the results with extra details
- -W --fixed-width! : adjust the results to fit inside the term width
- --custom-layout! : display the results using a custom layout (see conf)
- -i --info=s : show information for a video ID or URL
- -e --extract=s : extract information from videos (see: -T)
- --extract-file=s : extract information from videos in this file
- --dump=format : dump metadata information in `videoID.format` files
- valid formats: json, perl
- -q --quiet : do not display any warning
- --really-quiet : do not display any warning or output
- --video-info! : show video information before playing
- --escape-info! : quotemeta() the fields of the `--extract`
- --use-colors! : enable or disable the ANSI colors for text
-
- * Other
- --invidious! : use the API of invidio.us to get the streaming URLs
- --proxy=s : set HTTP(S)/SOCKS proxy: 'proto://domain.tld:port/'
- If authentication required,
- use 'proto://user:pass\@domain.tld:port/'
- --dash! : include or exclude the DASH itags
- --dash-mp4a! : include or exclude the itags for MP4 audio streams
- --dash-segmented! : include or exclude segmented DASH streams
-
-
-Help options:
- -T --tricks : show more 'hidden' features of $execname
- -E --examples : show several usage examples of $execname
- -H --stdin-help : show the valid stdin options for $execname
- -v --version : print version and exit
- -h --help : print help and exit
- --debug:1..3 : see behind the scenes
-
-NOTES:
- * -> requires authentication
- ! -> the argument can be negated with '--no-'
- =i -> requires an integer argument
- =s -> requires an argument
- :s -> can take an optional argument
- =s,s -> can take more arguments separated by commas
-
-HELP
- main_quit(0);
-}
-
-sub wrap_text {
- my (%args) = @_;
-
- require Text::Wrap;
- local $Text::Wrap::columns = ($args{columns} || $term_width) - 8;
-
- my $text = "@{$args{text}}";
- $text =~ tr{\r}{}d;
-
- return eval { Text::Wrap::wrap($args{i_tab}, $args{s_tab}, $text) } // $text;
-}
-
-sub tricks {
- print <<"TRICKS";
-
- == straw-viewer -- tips and tricks ==
-
--> Playing videos
- > To stream the videos in other players, you need to change the
- configuration file. Where it says "video_player_selected", change it
- to any player which is defined inside the "video_players" hash.
-
--> Arguments
- > Almost all boolean arguments can be negated with a "--no-" prefix.
- > Arguments that require an ID/URL, you can specify more than one,
- separated by whitespace (quoted), or separated by commas.
-
--> My channel
- > By using the string "mine" where a channel ID is required, "mine" will be
- automatically replaced with your channel ID. (requires authentication)
-
- Examples:
- $execname --uploads=mine
- $execname --likes=mine
- $execname --favorites=mine
- $execname --playlists=mine
-
--> More STDIN help:
- > ":r", ":return" will return to the previous page of results.
- For example, if you search for playlists, then select a playlist
- of videos, inserting ":r" will return back to the playlist results.
- Also, for the previous page, you can insert ':b', but ':r' is faster!
-
- > "6" (quoted) will search for videos with the keyword '6'.
-
- > If a stdin option is followed by one or more digits, the equal sign,
- which separates the option from value, can be omitted.
-
- Example:
- :i2,4 is equivalent with :i=2,4
- :d1-5 is equivalent with :d=1,2,3,4,5
- :c10 is equivalent with :c=10
-
- > When more videos are selected to play, you can stop them by
- pressing CTRL+C. $execname will return to the previous section.
-
- > Space inside the values of STDIN options, can be either quoted
- or backslashed.
-
- Example:
- :re=video\\ title == :re="video title"
-
- > ":anp" stands for "Auto Next Page". How do we use it?
- Well, let's search for some videos. Now, if we want to play
- only the videos matched by a regex, we'd say :re="REGEX".
- But, what if we want to play the videos from the next pages too?
- In this case, ":anp" is your friend. Use it wisely!
-
--> Special tokens:
-
- *ID* : the YouTube video ID
- *AUTHOR* : the author name of the video
- *CHANNELID* : the channel ID of the video
- *RESOLUTION* : the resolution of the video
- *VIEWS* : the number of views
- *VIEWS_SHORT* : the number of views in abbreviated notation
- *LIKES* : the number of likes
- *DISLIKES* : the number of dislikes
- *RATING* : the rating of the video from 0 to 5
- *COMMENTS* : the number of comments
- *DURATION* : the duration of the video in seconds
- *PUBLISHED* : the publication date as "DD MMM YYYY"
- *AGE* : the age of a video (N days, N months, N years)
- *AGE_SHORT* : the abbreviated age of a video (Nd, Nm, Ny)
- *DIMENSION* : the dimension of the video (2D or 3D)
- *DEFINITION* : the definition of the video (HD or SD)
- *TIME* : the duration of the video as "HH::MM::SS"
- *TITLE* : the title of the video
- *FTITLE* : the title of the video (filename safe)
- *DESCRIPTION* : the description of the video
-
- *URL* : the YouTube URL of the video
- *ITAG* : the itag value of the video
- *FORMAT* : the extension of the video (without the dot)
-
- *CAPTION* : true if the video has captions
- *SUB* : the local subtitle file (if any)
- *AUDIO* : the audio URL of the video (only in DASH mode)
- *VIDEO* : the video URL of the video (it might not contain audio)
- *AOV* : audio URL (if any) or video URL (in this order)
-
--> Special escapes:
- \\t tab
- \\n newline
- \\r return
- \\f form feed
- \\b backspace
- \\a alarm (bell)
- \\e escape
-
--> Extracting information from videos:
- > Extracting information can be achieved by using the "--extract" command-line
- option which takes a given format as its argument, which is defined by using
- special tokens, special escapes or literals.
-
- Example:
- $execname --no-interactive --extract '*TITLE* (*ID*)' [URL]
-
--> Configuration file: $config_file
-
--> Donations gladly accepted:
- https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=75FUVBE6Q73T8
-
-TRICKS
- main_quit(0);
-}
-
-sub examples {
- print <<"EXAMPLES";
-==== COMMAND LINE EXAMPLES ====
-
-Command: $execname -A -n russian music -category=10
-Results: play all the video results (-A)
- only audio, no video (-n)
- search for "russian music"
- in category "10", which is the Music category.
- -A will include the videos from the next pages as well.
-
-Command: $execname --comments 'https://www.youtube.com/watch?v=U6_8oIPFREY'
-Results: show video comments for a specific video URL or videoID.
-
-Command: $execname --results=5 -up=khanacademy -D
-Results: the most recent 5 videos by a specific author (-up), printed with extra details (-D).
-
-Command: $execname --author=MIT atom
-Results: search only in videos by a specific author.
-
-Command: $execname --author=MIT atom --within=2y
-Results: search only in videos by a specific author, published in the last 2 years.
-
-Command: $execname --popular=MIT --within=6m
-Results: show the most popular videos by a specific user, published in the last 6 months.
-
-Command: $execname -S=vsauce
-Results: get the subscriptions for a username.
-
-Command: $execname --page=2 -u=Google
-Results: show latest videos uploaded by Google, starting with the page number 2.
-
-Command: $execname cats --order=viewCount --duration=short
-Results: search for 'cats' videos, ordered by ViewCount and short duration.
-
-Command: $execname --channels math lessons
-Results: search for YouTube channels.
-
-Command: $execname -uf=Google
-Results: show latest videos favorited by a user.
-
-
-==== USER INPUT EXAMPLES ====
-
-A STDIN option can begin with ':', ';' or '='.
-
-Command: <ENTER>, :n, :next
-Results: get the next page of results.
-
-Command: :b, :back (:r, :return)
-Results: get the previous page of results.
-
-Command: :i4..6, :i7-9, :i20-4, :i2, :i=4, :info=4
-Results: show extra information for the selected videos.
-
-Command: :d5,2, :d=3, :download=8
-Results: download the selected videos.
-
-Command: :c2, :comments=4
-Results: show comments for a selected video.
-
-Command: :r4, :related=6
-Results: show related videos for a selected video.
-
-Command: :a14, :author=12
-Results: show videos uploaded by the author who uploaded the selected video.
-
-Command: :p9, :playlists=14
-Results: show playlists created by the author who uploaded the selected video.
-
-Command: :subscribe=7
-Results: subscribe to the author's channel who uploaded the selected video.
-
-Command: :like=2, :dislike=4,5
-Results: like or dislike the selected videos.
-
-Command: :fav=4, :favorite=3..5
-Results: favorite the selected videos.
-
-Command: 3, 5..7, 12-1, 9..4, 2 3 9
-Results: play the selected videos.
-
-Command: :q3,5, :q=4, :queue=3-9
-Results: enqueue the selected videos to play them later.
-
-Command: :pq, :play-queue
-Results: play the videos enqueued by the :queue option.
-
-Command: :re="^Linux"
-Results: play videos matched by a regex.
-Example: matches title: "Linux video"
-
-Command: :regex="linux.*part \\d+/\\d+"
-Example: matches title: "Introduction to Linux (part 1/4)"
-
-Command: :anp 1 2 3
-Results: play the first three videos from every page.
-
-Command: :r, :return
-Results: return to the previous section.
-EXAMPLES
- main_quit(0);
-}
-
-sub stdin_help {
- print $complete_help;
- main_quit(0);
-}
-
-# Print version
-sub version {
- print "$appname $version\n";
- main_quit(0);
-}
-
-sub apply_configuration {
- my ($opt, $keywords) = @_;
-
- if ($yv_obj->get_debug >= 2 or (defined($opt->{debug}) && $opt->{debug} >= 2)) {
- require Data::Dump;
- say "=>> Options with keywords: <@{$keywords}>";
- Data::Dump::pp($opt);
- }
-
- # ... BASIC OPTIONS ... #
- if (delete $opt->{quiet}) {
- close STDERR;
- }
-
- if (delete $opt->{really_quiet}) {
- close STDERR;
- close STDOUT;
- }
-
- # ... YOUTUBE OPTIONS ... #
- foreach my $option_name (
- qw(
- api_host
- videoCaption maxResults order
- videoDefinition videoCategoryId
- videoDimension videoDuration
- videoEmbeddable videoLicense
- videoSyndicated channelId
- publishedAfter publishedBefore
- safeSearch regionCode debug hl
- http_proxy page comments_order
- subscriptions_order
- )
- ) {
-
- if (defined $opt->{$option_name}) {
- my $code = \&{"WWW::StrawViewer::set_$option_name"};
- my $value = delete $opt->{$option_name};
- my $set_value = $yv_obj->$code($value);
-
- if (not defined($set_value) or $set_value ne $value) {
- warn "\n[!] Invalid value <$value> for option <$option_name>\n";
- }
- }
- }
-
- if (defined $opt->{category_id}) {
-
- my $str = delete $opt->{category_id};
- my $category = extract_category($str);
-
- if (ref($category) eq 'HASH') {
- say ":: Category selected: $category->{snippet}{title}" if $yv_obj->get_debug;
- $yv_obj->set_videoCategoryId($category->{id});
- }
- else {
- warn_invalid('category', $str);
- }
- }
-
- if (defined $opt->{prefer_mp4}) {
- $yv_obj->set_prefer_mp4(delete($opt->{prefer_mp4}) ? 1 : 0);
- }
-
- if (defined $opt->{prefer_av1}) {
- $yv_obj->set_prefer_av1(delete($opt->{prefer_av1}) ? 1 : 0);
- }
-
- if (defined $opt->{hd}) {
- $yv_obj->set_videoDefinition(delete($opt->{hd}) ? 'high' : 'any');
- }
-
- if (defined $opt->{author}) {
- my $name = delete $opt->{author};
- if (my $id = extract_channel_id($name)) {
-
- if (not $yv_utils->is_channelID($id)) {
- $id = $yv_obj->channel_id_from_username($id) // do {
- warn_invalid("username or channel ID", $id);
- undef;
- };
- }
-
- if ($id eq 'mine') {
- $id = $yv_obj->my_channel_id() // do {
- warn_invalid("username or channel ID", $id);
- undef;
- };
- }
-
- $yv_obj->set_channelId($id);
- }
- else {
- warn_invalid("username or channel ID", $name);
- }
- }
-
- if (defined $opt->{within}) {
- my $value = delete $opt->{within};
-
- if ($value =~ /^\s*(\d+(?:\.\d+)?)([dwmy])/i) {
- my $date = $yv_utils->period_to_date($1, $2);
- $yv_obj->set_publishedAfter($date);
- }
- else {
- warn "\n[!] Invalid value <$value> for option `--within`!\n";
- }
- }
-
- if (defined $opt->{more_results}) {
- $yv_obj->set_maxResults(delete($opt->{more_results}) ? 50 : $CONFIG{maxResults});
- }
-
- if (delete $opt->{authenticate}) {
- authenticate();
- }
-
- if (delete $opt->{logout}) {
- logout();
- }
-
- # ... OTHER OPTIONS ... #
- if (defined $opt->{extract_info_file}) {
- open my $fh, '>:utf8', delete($opt->{extract_info_file});
- $opt{extract_info_fh} = $fh;
- }
-
- if (defined $opt->{colors}) {
- $opt{_colors} = $opt->{colors};
- if (delete $opt->{colors}) {
- require Term::ANSIColor;
- no warnings 'redefine';
- *colored = \&Term::ANSIColor::colored;
- *colorstrip = \&Term::ANSIColor::colorstrip;
- }
- else {
- no warnings 'redefine';
- *colored = sub { $_[0] };
- *colorstrip = sub { $_[0] };
- }
- }
-
- # ... SUBROUTINE CALLS ... #
- if (defined $opt->{subscribe}) {
- subscribe(split(/[,\s]+/, delete $opt->{subscribe}));
- }
-
- if (defined $opt->{favorite_video}) {
- favorite_videos(split(/[,\s]+/, delete $opt->{favorite_video}));
- }
-
- if (defined $opt->{playlist_save}) {
- my @ids = split(/[,\s]+/, delete $opt->{playlist_save});
- if (defined $opt->{playlist_id}) {
- save_to_playlist(get_valid_playlist_id(delete $opt->{playlist_id}) // (return), @ids);
- }
- else {
- select_and_save_to_playlist(@ids);
- }
- }
-
- if (defined $opt->{like_video}) {
- rate_videos('like', split(/[,\s]+/, delete $opt->{like_video}));
- }
-
- if (defined $opt->{dislike_video}) {
- rate_videos('dislike', split(/[,\s]+/, delete $opt->{dislike_video}));
- }
-
- if (defined $opt->{play_video_ids}) {
- get_and_play_video_ids(split(/[,\s]+/, delete $opt->{play_video_ids}));
- }
-
- if (defined $opt->{play_playlists}) {
- get_and_play_playlists(split(/[,\s]+/, delete $opt->{play_playlists}));
- }
-
- if (defined $opt->{playlist_id}) {
- my $playlistID = get_valid_playlist_id(delete($opt->{playlist_id})) // return;
- get_and_print_videos_from_playlist($playlistID);
- }
-
- if (delete $opt->{search_videos}) {
- print_videos($yv_obj->search_videos([@{$keywords}]));
- }
-
- if (delete $opt->{search_channels}) {
- print_channels($yv_obj->search_channels([@{$keywords}]));
- }
-
- if (delete $opt->{search_playlists}) {
- print_playlists($yv_obj->search_playlists([@{$keywords}]));
- }
-
- if (delete $opt->{categories}) {
- print_categories($yv_obj->video_categories);
- }
-
- if (defined $opt->{uploads}) {
- my $str = delete $opt->{uploads};
-
- if ($str) {
- if (my $id = extract_channel_id($str)) {
- $yv_utils->is_channelID($id)
- ? print_videos($yv_obj->uploads($id))
- : print_videos($yv_obj->uploads_from_username($id));
- }
- else {
- warn_invalid("username or channel ID", $str);
- }
- }
- else {
- print_videos($yv_obj->uploads);
- }
- }
-
- if (defined $opt->{popular_videos}) {
- my $str = delete $opt->{popular_videos};
-
- if (my $id = extract_channel_id($str)) {
-
- if (not $yv_utils->is_channelID($id)) {
- $id = $yv_obj->channel_id_from_username($id) // do {
- warn_invalid("username or channel ID", $id);
- undef;
- };
- }
-
- if ($id eq 'mine') {
- $id = $yv_obj->my_channel_id() // do {
- warn_invalid("username or channel ID", $id);
- undef;
- };
- }
-
- print_videos($yv_obj->popular_videos($id));
- }
- else {
- warn_invalid("username or channel ID", $str);
- }
- }
-
- if (defined $opt->{trending}) {
-
- my $str = delete $opt->{trending};
- my $category = extract_category($str);
- my $cat_id = undef;
-
- if (ref($category) eq 'HASH') {
- say ":: Category selected: $category->{snippet}{title}" if $yv_obj->get_debug;
- $cat_id = $category->{id};
- }
- elsif ($str) {
- warn_invalid('category', $str);
- }
-
- print_videos($yv_obj->trending_videos_from_category($cat_id));
- }
-
- if (defined $opt->{subscriptions}) {
- my $str = delete $opt->{subscriptions};
-
- if ($str) {
- if (my $id = extract_channel_id($str)) {
- $yv_utils->is_channelID($id)
- ? print_channels($yv_obj->subscriptions($id))
- : print_channels($yv_obj->subscriptions_from_username($id));
- }
- else {
- warn_invalid("username or channel ID", $str);
- }
- }
- else {
- print_channels($yv_obj->subscriptions);
- }
- }
-
- if (defined $opt->{subscription_videos}) {
- my $str = delete $opt->{subscription_videos};
-
- if ($str) {
- if (my $id = extract_channel_id($str)) {
- $yv_utils->is_channelID($id)
- ? print_videos($yv_obj->subscription_videos($id))
- : print_videos($yv_obj->subscription_videos_from_username($id));
- }
- else {
- warn_invalid("username or channel ID", $str);
- }
- }
- else {
- print_videos($yv_obj->subscription_videos);
- }
- }
-
- if (defined $opt->{related_videos}) {
- get_and_print_related_videos(split(/[,\s]+/, delete($opt->{related_videos})));
- }
-
- if (defined $opt->{playlists}) {
- my $str = delete($opt->{playlists});
-
- if ($str) {
- if (my $id = extract_channel_id($str)) {
- $yv_utils->is_channelID($id)
- ? print_playlists($yv_obj->playlists($id))
- : print_playlists($yv_obj->playlists_from_username($id));
- }
- else {
- warn_invalid("username or channel ID", $str);
- warn colored("[+] To search for playlists, try: $0 -sp $str", 'bold yellow') . "\n";
- }
- }
- else {
- print_playlists($yv_obj->my_playlists);
- }
- }
-
- if (defined $opt->{favorites}) {
- my $str = delete($opt->{favorites});
-
- if ($str) {
- if (my $id = extract_channel_id($str)) {
- $yv_utils->is_channelID($id)
- ? print_videos($yv_obj->favorites($id))
- : print_videos($yv_obj->favorites_from_username($id));
- }
- else {
- warn_invalid("username or channel ID", $str);
- }
- }
- else {
- print_videos($yv_obj->favorites);
- }
- }
-
- if (defined $opt->{likes}) {
- my $str = delete($opt->{likes});
-
- if ($str) {
- if (my $id = extract_channel_id($str)) {
- $yv_utils->is_channelID($id)
- ? print_videos($yv_obj->likes($id))
- : print_videos($yv_obj->likes_from_username($id));
- }
- else {
- warn_invalid("username or channel ID", $str);
- }
- }
- else {
- print_videos($yv_obj->my_likes);
- }
- }
-
- if (defined $opt->{dislikes}) {
- delete $opt->{dislikes};
- print_videos($yv_obj->my_dislikes);
- }
-
- if (defined $opt->{activities}) {
- my $str = delete $opt->{activities};
-
- if ($str) {
- if (my $id = extract_channel_id($str)) {
- $yv_utils->is_channelID($id)
- ? print_videos($yv_obj->activities($id))
- : print_videos($yv_obj->activities_from_username($id));
- }
- else {
- warn_invalid("username or channel ID", $str);
- }
- }
- else {
- print_videos($yv_obj->my_activities);
- }
- }
-
- if (defined $opt->{get_comments}) {
- get_and_print_comments(split(/[,\s]+/, delete($opt->{get_comments})));
- }
-
- if (defined $opt->{print_video_info}) {
- get_and_print_video_info(split(/[,\s]+/, delete $opt->{print_video_info}));
- }
-}
-
-sub parse_arguments {
- my ($keywords) = @_;
-
- state $x = do {
- require Getopt::Long;
- Getopt::Long::Configure('no_ignore_case');
- };
-
- my %orig_opt = %opt;
- my $orig_config_file = "$config_file";
-
- Getopt::Long::GetOptions(
-
- # Main options
- 'help|usage|h|?' => \&help,
- 'examples|E' => \&examples,
- 'stdin-help|shelp|sh|H' => \&stdin_help,
- 'tricks|tips|T' => \&tricks,
- 'version|v' => \&version,
-
- 'config=s' => \$config_file,
- 'update-config!' => sub { dump_configuration($config_file) },
-
- # Resolutions
- '240p|2' => sub { $opt{resolution} = 240 },
- '360p|3' => sub { $opt{resolution} = 360 },
- '480p|4' => sub { $opt{resolution} = 480 },
- '720p|7' => sub { $opt{resolution} = 720 },
- '1080p|1' => sub { $opt{resolution} = 1080 },
- 'res|resolution=s' => \$opt{resolution},
-
- 'comments=s' => \$opt{get_comments},
- 'comments-order=s' => \$opt{comments_order},
-
- 'c|categories' => \$opt{categories},
- 'video-ids|videoids|id|ids=s' => \$opt{play_video_ids},
-
- 'search-videos|search|sv!' => \$opt{search_videos},
- 'search-channels|channels|sc!' => \$opt{search_channels},
- 'search-playlists|sp|p!' => \$opt{search_playlists},
-
- 'subscriptions|S:s' => \$opt{subscriptions},
- 'subs-videos|SV:s' => \$opt{subscription_videos},
- 'subs-order=s' => \$opt{subscriptions_order},
- 'uploads|U|user|user-videos|uv|u:s' => \$opt{uploads},
- 'favorites|F|user-favorites|uf:s' => \$opt{favorites},
- 'playlists|P|user-playlists|up:s' => \$opt{playlists},
- 'activities|activity|ua:s' => \$opt{activities},
- 'likes|L|user-likes|ul:s' => \$opt{likes},
- 'dislikes' => \$opt{dislikes},
- 'subscribe=s' => \$opt{subscribe},
-
- 'trending|trends:s' => \$opt{trending},
- 'playlist-id|pid=s' => \$opt{playlist_id},
-
- # English-UK friendly
- 'favorite|favourite|favorite-video|favourite-video|fav=s' => \$opt{favorite_video},
-
- 'login|authenticate' => \$opt{authenticate},
- 'logout' => \$opt{logout},
-
- 'related-videos|rv=s' => \$opt{related_videos},
- 'popular-videos|popular|pv=s' => \$opt{popular_videos},
-
- 'http_proxy|http-proxy|proxy=s' => \$opt{http_proxy},
-
- 'catlang|cl|hl=s' => \$opt{hl},
- 'category|cat-id|cat=s' => \$opt{category_id},
- 'r|region|region-code=s' => \$opt{regionCode},
-
- 'orderby|order|order-by=s' => \$opt{order},
- 'duration=s' => \$opt{videoDuration},
- 'within=s' => \$opt{within},
-
- 'max-seconds|max_seconds=i' => \$opt{max_seconds},
- 'min-seconds|min_seconds=i' => \$opt{min_seconds},
-
- 'like=s' => \$opt{like_video},
- 'dislike=s' => \$opt{dislike_video},
- 'author=s' => \$opt{author},
- 'all|A|play-all!' => \$opt{play_all},
- 'backwards|B!' => \$opt{play_backwards},
- 'input|std-input=s' => \$opt{std_input},
- 'use-colors|colors|colored!' => \$opt{colors},
-
- 'autoplay!' => \$opt{autoplay_mode},
-
- 'play-playlists|pp=s' => \$opt{play_playlists},
- 'debug:1' => \$opt{debug},
- 'download|dl|d!' => \$opt{download_video},
- 'safe-search|safeSearch=s' => \$opt{safeSearch},
- 'vd|video-definition=s' => \$opt{videoDefinition},
- 'hd|high-definition!' => \$opt{hd},
- 'I|interactive!' => \$opt{interactive},
- 'convert-to|convert_to=s' => \$opt{convert_to},
- 'keep-original-video!' => \$opt{keep_original_video},
- 'e|extract|extract-info=s' => \$opt{extract_info},
- 'extract-file=s' => \$opt{extract_info_file},
- 'escape-info!' => \$opt{escape_info},
-
- 'dump=s' => sub {
- my (undef, $format) = @_;
- $opt{dump} = (
- ($format =~ /json/i) ? 'json' : ($format =~ /perl/i) ? 'perl' : do {
- warn "[!] Invalid format <<$format>> for option --dump\n";
- undef;
- }
- );
- },
-
- # Set a video player
- 'player|vplayer|video-player|video_player=s' => sub {
-
- if (not exists $opt{video_players}{$_[1]}) {
- die "[!] Unknown video player selected: <<$_[1]>>\n";
- }
-
- $opt{video_player_selected} = $_[1];
- },
-
- 'append-arg|append-args=s' => \$MPLAYER{user_defined_arguments},
-
- # Others
- 'colorful|colourful|C!' => \$opt{results_with_colors},
- 'details|D!' => \$opt{results_with_details},
- 'fixed-width|W|fw!' => \$opt{results_fixed_width},
- 'caption=s' => \$opt{videoCaption},
- 'fullscreen|fs|f!' => \$opt{fullscreen},
- 'dash!' => \$opt{dash_support},
- 'confirm!' => \$opt{confirm},
-
- 'prefer-mp4!' => \$opt{prefer_mp4},
- 'prefer-av1!' => \$opt{prefer_av1},
-
- 'custom-layout!' => \$opt{custom_layout},
- 'custom-layout-format=s' => \$opt{custom_layout_format},
-
- 'merge-into-mkv|mkv-merge!' => \$opt{merge_into_mkv},
- 'merge-with-captions|merge-captions!' => \$opt{merge_with_captions},
-
- 'invidious!' => \$opt{use_invidious_api},
- 'convert-command|convert-cmd=s' => \$opt{convert_cmd},
- 'dash-m4a|dash-mp4-audio|dash-mp4a!' => \$opt{dash_mp4_audio},
- 'dash-segmented!' => \$opt{dash_segmented},
- 'wget-dl|wget-download!' => \$opt{download_with_wget},
- 'filename|filename-format=s' => \$opt{video_filename_format},
- 'rp|rem-played|remove-played-file!' => \$opt{remove_played_file},
- 'info|i|video-info=s' => \$opt{print_video_info},
- 'get-term-width!' => \$opt{get_term_width},
- 'page=i' => \$opt{page},
- 'novideo|no-video|n|audio!' => \$opt{novideo},
- 'autohide!' => \$opt{autohide_watched},
- 'highlight!' => \$opt{highlight_watched},
- 'skip-watched!' => \$opt{skip_watched},
- 'results=i' => \$opt{maxResults},
- 'shuffle|s!' => \$opt{shuffle},
- 'more|m!' => \$opt{more_results},
- 'pos|position=i' => \$opt{position},
- 'ps|playlist-save=s' => \$opt{playlist_save},
-
- 'quiet|q!' => \$opt{quiet},
- 'really-quiet!' => \$opt{really_quiet},
- 'video-info!' => \$opt{show_video_info},
-
- 'dp|downl-play|download-and-play|dl-play!' => \$opt{download_and_play},
-
- 'thousand-separator=s' => \$opt{thousand_separator},
- 'get-captions|get_captions!' => \$opt{get_captions},
- 'auto-captions|auto_captions!' => \$opt{auto_captions},
- 'copy-caption|copy_caption!' => \$opt{copy_caption},
- 'captions-dir|captions_dir=s' => \$opt{captions_dir},
- 'skip-if-exists|skip_if_exists!' => \$opt{skip_if_exists},
- 'downloads-dir|download-dir=s' => \$opt{downloads_dir},
- 'fat32safe!' => \$opt{fat32safe},
- )
- or warn "[!] Error in command-line arguments!\n";
-
- if ($config_file ne $orig_config_file) { # load the config file specified with `--config=s`
- ##say ":: Loading config: $config_file";
- $config_file = rel2abs($config_file);
-
- my %new_opt = %opt;
- load_config($config_file);
-
- foreach my $key (keys %new_opt) {
- if ( defined($new_opt{$key})
- and defined($orig_opt{$key})
- and $new_opt{$key} ne $orig_opt{$key}) {
- $opt{$key} = $new_opt{$key};
- }
- }
- }
-
- apply_configuration(\%opt, $keywords);
-}
-
-# Parse the arguments
-if (@ARGV) {
- require Encode;
- @ARGV = map { Encode::decode_utf8($_) } @ARGV;
- parse_arguments(\@ARGV);
-}
-
-for (my $i = 0 ; $i <= $#ARGV ; $i++) {
- my $arg = $ARGV[$i];
-
- next if chr ord $arg eq q{-};
-
- if (youtube_urls($arg)) {
- splice(@ARGV, $i--, 1);
- }
-}
-
-if (my @keywords = grep chr ord ne q{-}, @ARGV) {
- print_videos($yv_obj->search_videos(\@keywords));
-}
-elsif ($opt{interactive} and -t) {
- first_user_input();
-}
-elsif ($opt{interactive} and -t STDOUT and not -t) {
- print_videos($yv_obj->search_videos(scalar <STDIN>));
-}
-else {
- main_quit($opt{_error} || 0);
-}
-
-sub get_valid_video_id {
- my ($value) = @_;
-
- my $id =
- $value =~ /$get_video_id_re/ ? $+{video_id}
- : $value =~ /$valid_video_id_re/ ? $value
- : undef;
-
- if (not defined $id) {
- warn_invalid('videoID', $value);
- return;
- }
-
- return $id;
-}
-
-sub get_valid_playlist_id {
- my ($value) = @_;
-
- my $id =
- $value =~ /$get_playlist_id_re/ ? $+{playlist_id}
- : $value =~ /$valid_playlist_id_re/ ? $value
- : undef;
-
- if (not defined $id) {
- warn_invalid('playlistID', $value);
- return;
- }
-
- return $id;
-}
-
-sub extract_category {
- my ($str) = @_;
-
- $str || return;
-
- state $results = $yv_obj->video_categories;
- return if ref($results) ne 'HASH';
-
- my $categories = $results->{items};
- return if ref($categories) ne 'ARRAY';
-
- foreach my $category (@$categories) {
- if ($category->{id} eq $str) {
- return $category;
- }
- }
-
- my $str_re = qr/\Q$str\E/i;
-
- foreach my $category (@$categories) {
- if ($yv_utils->get_title($category) =~ /$str_re/) {
- return $category;
- }
- }
-
- return;
-}
-
-sub extract_channel_id {
- my ($str) = @_;
-
- if ($str =~ /$get_channel_videos_id_re/) {
- return $+{channel_id};
- }
-
- if ($str =~ /$get_username_videos_re/) {
- return $+{username};
- }
-
- if ($str =~ /$valid_channel_id_re/) {
- return $+{channel_id};
- }
-
- if ($str =~ /^[-a-zA-Z0-9_]+\z/) {
- return $str;
- }
-
- return undef;
-}
-
-sub apply_input_arguments {
- my ($args, $keywords) = @_;
-
- if (@{$args}) {
- local @ARGV = @{$args};
- parse_arguments($keywords);
- }
-
- return 1;
-}
-
-# Get mplayer
-sub get_mplayer {
- if ($constant{win32}) {
- my $smplayer = catfile($ENV{ProgramFiles}, qw(SMPlayer mplayer mplayer.exe));
-
- if (not -e $smplayer) {
- warn "\n\n!!! Please install SMPlayer in order to stream YouTube videos.\n\n";
- }
-
- return $smplayer; # Windows MPlayer
- }
-
- return 'mplayer'; # *NIX MPlayer
-}
-
-# Get term width
-sub get_term_width {
- return $term_width if $constant{win32};
- $term_width = (-t STDOUT) ? ((split(q{ }, `stty size`))[1] || $term_width) : $term_width;
-}
-
-sub first_user_input {
- my @keys = get_input_for_first_time();
-
- state $first_input_help = <<"HELP";
-
-$base_options
-$action_options
-$other_options
-$notes_options
-** Example:
- To search for playlists, insert: -p keywords
-HELP
-
- if (scalar(@keys)) {
- my @for_search;
- foreach my $key (@keys) {
- if ($key =~ /$valid_opt_re/) {
-
- my $opt = $1;
-
- if (general_options(opt => $opt)) {
- ## ok
- }
- elsif ($opt =~ /^(?:h|help)\z/) {
- print $first_input_help;
- press_enter_to_continue();
- }
- elsif ($opt =~ /^(?:r|return)\z/) {
- return;
- }
- else {
- warn_invalid('option', $opt);
- print "\n";
- exit 1;
- }
- }
- elsif (youtube_urls($key)) {
- ## ok
- }
- else {
- push @for_search, $key;
- }
- }
-
- if (scalar(@for_search) > 0) {
- print_videos($yv_obj->search_videos(\@for_search));
- }
- else {
- __SUB__->();
- }
- }
- else {
- __SUB__->();
- }
-}
-
-sub get_quotewords {
- require Text::ParseWords;
- Text::ParseWords::quotewords(@_);
-}
-
-sub clear_title {
- my ($title) = @_;
-
- $title =~ s/[^\w\s[:punct:]]//g;
- $title = join(' ', split(' ', $title));
-
- return $title;
-}
-
-# Straight copy of parse_options() from Term::UI
-sub _parse_options {
- my ($input) = @_;
-
- my $return = {};
- while ( $input =~ s/(?:^|\s+)--?([-\w]+=(["']).+?\2)(?=\Z|\s+)//
- or $input =~ s/(?:^|\s+)--?([-\w]+=\S+)(?=\Z|\s+)//
- or $input =~ s/(?:^|\s+)--?([-\w]+)(?=\Z|\s+)//) {
- my $match = $1;
-
- if ($match =~ /^([-\w]+)=(["'])(.+?)\2$/) {
- $return->{$1} = $3;
-
- }
- elsif ($match =~ /^([-\w]+)=(\S+)$/) {
- $return->{$1} = $2;
-
- }
- elsif ($match =~ /^no-?([-\w]+)$/i) {
- $return->{$1} = 0;
-
- }
- elsif ($match =~ /^([-\w]+)$/) {
- $return->{$1} = 1;
- }
- }
-
- return wantarray ? ($return, $input) : $return;
-}
-
-sub parse_options2 {
- my ($input) = @_;
-
- warn(colored("\n[!] Input with an odd number of quotes: <$input>", 'bold red') . "\n\n")
- if $yv_obj->get_debug;
-
- my ($args, $keywords) = _parse_options($input);
-
- my @args =
- map $args->{$_} eq '0' ? "--no-$_"
- : $args->{$_} eq '1' ? "--$_"
- : "--$_=$args->{$_}" => keys %{$args};
-
- return wantarray ? (\@args, [split q{ }, $keywords]) : \@args;
-}
-
-sub parse_options {
- my ($input) = @_;
- my (@args, @keywords);
-
- if (not defined($input) or $input eq q{}) {
- return \@args, \@keywords;
- }
-
- foreach my $word (get_quotewords(qr/\s+/, 1, $input)) {
- if (chr ord $word eq q{-}) {
- push @args, $word;
- }
- else {
- push @keywords, $word;
- }
- }
-
- if (not @args and not @keywords) {
- return parse_options2($input);
- }
-
- return wantarray ? (\@args, \@keywords) : \@args;
-}
-
-sub get_user_input {
- my ($text) = @_;
-
- if (not $opt{interactive}) {
- if (not defined $opt{std_input}) {
- return ':return';
- }
- }
-
- my $input = unpack(
- 'A*', defined($opt{std_input})
- ? delete($opt{std_input})
- : ($term->readline($text) // return ':return')
- ) =~ s/^\s+//r;
-
- return q{:next} if $input eq q{}; # <ENTER> for the next page
-
- require Encode;
- $input = Encode::decode_utf8($input);
-
- my ($args, $keywords) = parse_options($input);
-
- if ($opt{history}) {
- my $str = join(' ', grep { /\w/ } @{$args}, @{$keywords});
- if ($str ne '' and $str !~ /^[0-9]{1,2}\z/) {
- $term->append_history(1, $opt{history_file});
- }
- }
-
- apply_input_arguments($args, $keywords);
- return @{$keywords};
-}
-
-sub logout {
-
- unlink $authentication_file
- or warn "Can't unlink: `$authentication_file' -> $!";
-
- $yv_obj->set_access_token();
- $yv_obj->set_refresh_token();
-
- return 1;
-}
-
-sub authenticate {
- my $get_code_url = $yv_obj->get_accounts_oauth_url() // return;
-
- print <<"INFO";
-
-:: Get the authentication code: $get_code_url
-
- |
-... and paste it below. \\|/
- `
-INFO
-
- my $code = $term->readline(colored(q{Code: }, 'bold')) || return;
-
- my $info = $yv_obj->oauth_login($code) // do {
- warn "[WARNING] Can't log in... That's all I know...\n";
- return;
- };
-
- if (defined $info->{access_token}) {
-
- $yv_obj->set_access_token($info->{access_token}) // return;
- $yv_obj->set_refresh_token($info->{refresh_token}) // return;
-
- my $remember_me = ask_yn(prompt => colored("\nRemember me", 'bold'),
- default => 'y');
-
- if ($remember_me) {
- $yv_obj->set_authentication_file($authentication_file);
- $yv_obj->save_authentication_tokens()
- or warn "Can't store the authentication tokens: $!";
- }
- else {
- $yv_obj->set_authentication_file();
- }
-
- return 1;
- }
-
- warn "[WARNING] There was a problem with the authentication...\n";
- return;
-}
-
-sub authenticated {
- if (not defined $yv_obj->get_access_token) {
- warn_needs_auth();
- return;
- }
- return 1;
-}
-
-sub favorite_videos {
- my (@videoIDs) = @_;
- return if not authenticated();
-
- foreach my $id (@videoIDs) {
- my $videoID = get_valid_video_id($id) // next;
-
- if ($yv_obj->favorite_video($videoID)) {
- printf("\n:: Video %s has been successfully favorited.\n", sprintf($CONFIG{youtube_video_url}, $videoID));
- }
- else {
- warn_cant_do('favorite', $videoID);
- }
- }
- return 1;
-}
-
-sub select_and_save_to_playlist {
- return if not authenticated();
-
- my $request = $yv_obj->my_playlists() // return;
- my $playlistID = print_playlists($request, return_playlist_id => 1);
-
- if (defined($playlistID)) {
- return save_to_playlist($playlistID, @_);
- }
-
- warn_no_thing_selected('playlist');
- return;
-
-}
-
-sub save_to_playlist {
- my ($playlistID, @videoIDs) = @_;
-
- return if not authenticated();
-
- foreach my $id (@videoIDs) {
- my $videoID = get_valid_video_id($id) // next;
- my $pos = $opt{position}; # position in the playlist
-
- if (!defined($pos) or $pos < 0) {
- local $yv_obj->{maxResults} = 1;
-
- my $info = $yv_obj->videos_from_playlist_id($playlistID);
- my $total_results = $info->{results}{pageInfo}{totalResults};
-
- say "\n:: Total number of videos in the playlist: $total_results";
- $pos //= 0;
- $pos += $total_results || 0;
- say ":: Saving video at position: $pos";
- }
-
- if ($yv_obj->add_video_to_playlist($playlistID, $videoID, $pos)) {
- printf(":: Video %s has been successfully added to playlistID: %s\n",
- sprintf($CONFIG{youtube_video_url}, $videoID), $playlistID);
- }
- else {
- warn_cant_do("add to playlist", $videoID);
- }
- }
- return 1;
-}
-
-sub rate_videos {
- my $rating = shift;
- return if not authenticated();
-
- foreach my $id (@_) {
- my $videoID = get_valid_video_id($id) // next;
- if ($yv_obj->send_rating_to_video($videoID, $rating)) {
- printf("\n:: Video %s has been successfully %sd.\n", sprintf($CONFIG{youtube_video_url}, $videoID), $rating);
- }
- else {
- warn_cant_do($rating, $videoID);
- }
- }
-
- return 1;
-}
-
-sub get_and_play_video_ids {
- (my @ids = grep { get_valid_video_id($_) } @_) || return;
- my $info = $yv_obj->video_details(join(',', @ids));
-
- if ($yv_utils->has_entries($info)) {
- if (not play_videos([$info->{results}])) {
- return;
- }
- }
- else {
- warn_cant_do('get info for', @ids);
- }
-
- return 1;
-}
-
-sub get_and_play_playlists {
- foreach my $id (@_) {
- my $videos = $yv_obj->videos_from_playlist_id(get_valid_playlist_id($id) // next);
- local $opt{play_all} = length($opt{std_input}) ? 0 : 1;
- print_videos($videos, auto => $opt{play_all});
- }
- return 1;
-}
-
-sub get_and_print_video_info {
- foreach my $id (@_) {
-
- my $videoID = get_valid_video_id($id) // next;
- my $info = $yv_obj->video_details($videoID);
-
- if ($yv_utils->has_entries($info)) {
- local $opt{show_video_info} = 1;
- print_video_info($info->{results}{items}[0]);
- }
- else {
- warn_cant_do('get info for', $videoID);
- }
- }
- return 1;
-}
-
-sub get_and_print_related_videos {
- foreach my $id (@_) {
- my $videoID = get_valid_video_id($id) // next;
- my $results = $yv_obj->related_to_videoID($videoID);
- print_videos($results);
- }
- return 1;
-}
-
-sub get_and_print_comments {
- foreach my $id (@_) {
- my $videoID = get_valid_video_id($id) // next;
- my $comments = $yv_obj->comments_from_video_id($videoID);
- print_comments($comments, $videoID);
- }
- return 1;
-}
-
-sub get_and_print_videos_from_playlist {
- my ($playlistID) = @_;
-
- if ($playlistID =~ /$valid_playlist_id_re/) {
- my $info = $yv_obj->videos_from_playlist_id($playlistID);
- if ($yv_utils->has_entries($info)) {
- print_videos($info);
- }
- else {
- warn colored("\n[!] Inexistent playlist...", 'bold red') . "\n";
- return;
- }
- }
- else {
- warn_invalid('playlistID', $playlistID);
- return;
- }
- return 1;
-}
-
-sub subscribe {
- my (@ids) = @_;
-
- return if not authenticated();
-
- foreach my $channel (@ids) {
-
- my $id = extract_channel_id($channel) // do {
- warn_invalid("channel ID or username", $channel);
- next;
- };
-
- my $ok =
- $yv_utils->is_channelID($id)
- ? $yv_obj->subscribe_channel($id)
- : $yv_obj->subscribe_channel_from_username($id);
-
- if ($ok) {
- print ":: Successfully subscribed to channel: $id\n";
- }
- else {
- warn colored("\n[!] Unable to subscribe to channel: $id", 'bold red') . "\n";
- }
- }
-
- return 1;
-}
-
-sub _bold_color {
- my ($text) = @_;
- return colored($text, 'bold');
-}
-
-sub youtube_urls {
- my ($arg) = @_;
-
- if ($arg =~ /$get_video_id_re/) {
- get_and_play_video_ids($+{video_id});
- }
- elsif ($arg =~ /$get_playlist_id_re/) {
- get_and_print_videos_from_playlist($+{playlist_id});
- }
- elsif ($arg =~ /$get_channel_playlists_id_re/) {
- print_playlists($yv_obj->playlists($+{channel_id}));
- }
- elsif ($arg =~ /$get_channel_videos_id_re/) {
- print_videos($yv_obj->uploads($+{channel_id}));
- }
- elsif ($arg =~ /$get_username_playlists_re/) {
- print_playlists($yv_obj->playlists_from_username($+{username}));
- }
- elsif ($arg =~ /$get_username_videos_re/) {
- print_videos($yv_obj->uploads_from_username($+{username}));
- }
- else {
- return;
- }
-
- return 1;
-}
-
-sub general_options {
- my %args = @_;
-
- my $url = $args{url};
- my $option = $args{opt};
- my $callback = $args{sub};
- my $results = $args{res};
- my $info = $args{info};
- my $token = $args{token};
-
- if (not defined($option)) {
- return;
- }
-
- if ($option =~ /^(?:q|quit|exit)\z/) {
- main_quit(0);
- }
- elsif ($option =~ /^(?:n|next)\z/ and defined $url) {
- if (exists $args{token}) {
- if (defined $token) {
- my $request = $yv_obj->next_page_with_token($url, $token);
- $callback->($request);
- }
- else {
- warn_last_page();
- }
- }
- else {
- my $request = $yv_obj->next_page($url);
- $callback->($request);
- }
- }
- elsif ($option =~ /^(?:b|back|p|prev|previous)\z/ and defined $url) {
- my $request = $yv_obj->previous_page($url);
- $callback->($request);
- }
- elsif ($option =~ /^(?:R|refresh)\z/ and defined $url) {
- @{$results} = @{$yv_obj->_get_results($url)->{results}{items}};
- }
- elsif ($option eq 'login') {
- authenticate();
- }
- elsif ($option eq 'logout') {
- logout();
- }
- elsif ($option =~ /^(?:reset|reload|restart)\z/) {
- @ARGV = ();
- do $0;
- }
- elsif ($option =~ /^dv${digit_or_equal_re}(.*)/ and ref($results) eq 'ARRAY') {
- if (my @nums = get_valid_numbers($#{$results}, $1)) {
- print "\n";
- foreach my $num (@nums) {
- require Data::Dump;
- say Data::Dump::pp($results->[$num]);
- }
- press_enter_to_continue();
- }
- else {
- warn_no_thing_selected('result');
- }
- }
- elsif ($option =~ /^v(?:ideoids?)?=(.*)/) {
- if (my @ids = split(/[,\s]+/, $1)) {
- get_and_play_video_ids(@ids);
- }
- else {
- warn colored("\n[!] No video ID specified!", 'bold red') . "\n";
- }
- }
- elsif ($option =~ /^playlist(?:ID)?=(.*)/) {
- get_and_print_videos_from_playlist($1);
- }
- else {
- return;
- }
-
- return 1;
-}
-
-sub warn_no_results {
- warn colored("\n[!] No $_[0] results!", 'bold red') . "\n";
-}
-
-sub warn_invalid {
- my ($name, $option) = @_;
- warn colored("\n[!] Invalid $name: <$option>", 'bold red') . "\n";
-}
-
-sub warn_cant_do {
- my ($action, @ids) = @_;
-
- foreach my $videoID (@ids) {
- warn colored("\n[!] Can't $action video: " . sprintf($CONFIG{youtube_video_url}, $videoID), 'bold red') . "\n";
-
- my %info = $yv_obj->_get_video_info($videoID);
- my $resp = $yv_obj->parse_json_string($info{player_response} // next);
-
- if (eval { exists($resp->{playabilityStatus}) and $resp->{playabilityStatus}{status} =~ /error/i }) {
- warn colored("[+] Reason: $resp->{playabilityStatus}{reason}.", 'bold yellow') . "\n";
- }
- }
-}
-
-sub warn_last_page {
- warn colored("\n[!] This is the last page!", "bold red") . "\n";
-}
-
-sub warn_first_page {
- warn colored("\n[!] No previous page available...", 'bold red') . "\n";
-}
-
-sub warn_no_thing_selected {
- warn colored("\n[!] No $_[0] selected!", 'bold red') . "\n";
-}
-
-sub warn_needs_auth {
- warn colored("\n[!] This functionality needs authentication!", 'bold red') . "\n";
-}
-
-# ... GET INPUT SUBS ... #
-sub get_input_for_first_time {
- return get_user_input(_bold_color("\n=>> Search for YouTube videos (:h for help)") . "\n> ");
-}
-
-sub get_input_for_channels {
- return get_user_input(_bold_color("\n=>> Select a channel (:h for help)") . "\n> ");
-}
-
-sub get_input_for_search {
- return get_user_input(_bold_color("\n=>> Select one or more videos to play (:h for help)") . "\n> ");
-}
-
-sub get_input_for_playlists {
- return get_user_input(_bold_color("\n=>> Select a playlist (:h for help)") . "\n> ");
-}
-
-sub get_input_for_comments {
- return get_user_input(_bold_color("\n=>> Press <ENTER> for the next page of comments (:h for help)") . "\n> ");
-}
-
-sub get_input_for_categories {
- return get_user_input(_bold_color("\n=>> Select a category (:h for help)") . "\n> ");
-}
-
-sub ask_yn {
- my (%opt) = @_;
- my $c = join('/', map { $_ eq $opt{default} ? ucfirst($_) : $_ } qw(y n));
-
- my $answ;
- do {
- $answ = lc($term->readline($opt{prompt} . " [$c]: "));
- $answ = $opt{default} unless $answ =~ /\S/;
- } while ($answ !~ /^y(?:es)?$/ and $answ !~ /^no?$/);
-
- return chr(ord($answ)) eq 'y';
-}
-
-sub get_reply {
- my (%opt) = @_;
-
- my $default = 1;
- while (my ($i, $choice) = each @{$opt{choices}}) {
- print "\n" if $i == 0;
- printf("%3d> %s\n", $i + 1, $choice);
- if ($choice eq $opt{default}) {
- $default = $i + 1;
- }
- }
- print "\n";
-
- my $answ;
- do {
- $answ = $term->readline($opt{prompt} . " [$default]: ");
- $answ = $default unless $answ =~ /\S/;
- } while ($answ !~ /^[0-9]+\z/ or $answ < 1 or $answ > @{$opt{choices}});
-
- return $opt{choices}[$answ - 1];
-}
-
-sub valid_num {
- my ($num, $array_ref) = @_;
- return $num =~ /^[0-9]{1,2}\z/ && $num != 0 && $num <= @{$array_ref};
-}
-
-sub adjust_width {
- my ($str, $len, $prepend) = @_;
-
- $len > 0 or do {
- warn "[WARN] Insufficient space for the title: increase your terminal width!\n";
- return $str;
- };
-
- state $pkg = (
- eval {
- require Unicode::GCString;
- 'Unicode::GCString';
- } // eval {
- require Text::CharWidth;
- 'Text::CharWidth';
- } // do {
- warn "[WARN] Please install Unicode::GCString or Text::CharWidth in order to use this functionality.\n";
- '';
- }
- );
-
- #
- ## Unicode::GCString
- #
- if ($pkg eq 'Unicode::GCString') {
-
- my $gcstr = Unicode::GCString->new($str);
- my $str_width = $gcstr->columns;
-
- if ($str_width != $len) {
- while ($str_width > $len) {
- $gcstr = $gcstr->substr(0, -1);
- $str_width = $gcstr->columns;
- }
-
- $str = $gcstr->as_string;
- my $spaces = ' ' x ($len - $str_width);
- $str = $prepend ? "$spaces$str" : "$str$spaces";
- }
-
- return $str;
- }
-
- #
- ## Text::CharWidth
- #
- if ($pkg eq 'Text::CharWidth') {
-
- my $str_width = Text::CharWidth::mbswidth($str);
-
- if ($str_width != $len) {
- while ($str_width > $len) {
- chop $str;
- $str_width = Text::CharWidth::mbswidth($str);
- }
-
- my $spaces = ' ' x ($len - $str_width);
- $str = $prepend ? "$spaces$str" : "$str$spaces";
- }
-
- return $str;
- }
-
- return $str;
-}
-
-# ... PRINT SUBROUTINES ... #
-sub print_channels {
- my ($results) = @_;
-
- if (not $yv_utils->has_entries($results)) {
- warn_no_results("channel");
- }
-
- if ($opt{get_term_width} and $opt{results_fixed_width}) {
- get_term_width();
- }
-
- my $url = $results->{url};
- my $channels = $results->{results} // [];
-
- foreach my $i (0 .. $#{$channels}) {
- my $channel = $channels->[$i];
-
- if ($opt{results_with_details}) {
- printf(
- "\n%s. %s\n %s: %-23s %s: %-12s\n%s\n",
- colored(sprintf('%2d', $i + 1), 'bold') => colored($yv_utils->get_channel_title($channel), 'bold blue'),
- colored('Updated' => 'bold') => $yv_utils->get_publication_date($channel),
- colored('Author' => 'bold') => $yv_utils->get_channel_title($channel),
- wrap_text(
- i_tab => q{ } x 4,
- s_tab => q{ } x 4,
- text => [$yv_utils->get_description($channel) || 'No description available...']
- ),
- );
- }
- elsif ($opt{results_with_colors}) {
- print "\n" if $i == 0;
- printf("%s. %s (%s)\n",
- colored(sprintf('%2d', $i + 1), 'bold'),
- colored($yv_utils->get_channel_title($channel), 'blue'),
- colored($yv_utils->get_publication_date($channel), 'magenta'),
- );
- }
- elsif ($opt{results_fixed_width}) {
-
- require List::Util;
-
- my @authors = map { $yv_utils->get_channel_id($_) } @{$channels};
- my @dates = map { $yv_utils->get_publication_date($_) } @{$channels};
-
- my $author_width = List::Util::min(List::Util::max(map { length($_) } @authors), int($term_width / 5));
- my $dates_width = List::Util::max(map { length($_) } @dates);
- my $title_length = $term_width - ($author_width + $dates_width + 2 + 3 + 1 + 2);
-
- print "\n";
- foreach my $i (0 .. $#{$channels}) {
-
- my $channel = $channels->[$i];
- my $title = clear_title($yv_utils->get_channel_title($channel));
-
- printf "%s. %s %s [%*s]\n", colored(sprintf('%2d', $i + 1), 'bold'),
- adjust_width($title, $title_length),
- adjust_width($authors[$i], $author_width, 1),
- $dates_width, $dates[$i];
- }
- last;
- }
- else {
- print "\n" if $i == 0;
- printf "%s. %s [%s]\n", colored(sprintf('%2d', $i + 1), 'bold'), $yv_utils->get_title($channel),
- $yv_utils->get_publication_date($channel);
- }
- }
-
- my @keywords = get_input_for_channels();
-
- my @for_search;
- foreach my $key (@keywords) {
- if ($key =~ /$valid_opt_re/) {
-
- my $opt = $1;
-
- if (
- general_options(
- opt => $opt,
- sub => __SUB__,
- url => $url,
- res => $channels,
- info => $results,
- )
- ) {
- ## ok
- }
- elsif ($opt =~ /^(?:h|help)\z/) {
- print $general_help;
- press_enter_to_continue();
- }
- elsif ($opt =~ /^(?:r|return)\z/) {
- return;
- }
- else {
- warn_invalid('option', $opt);
- }
- }
- elsif (youtube_urls($key)) {
- ## ok
- }
- elsif (valid_num($key, $channels)) {
- print_videos($yv_obj->uploads($yv_utils->get_channel_id($channels->[$key - 1])));
- }
- else {
- push @for_search, $key;
- }
- }
-
- if (@for_search) {
- __SUB__->($yv_obj->search_channels(\@for_search));
- }
-
- __SUB__->(@_);
-}
-
-sub print_comments {
- my ($results, $videoID) = @_;
-
- if (not $yv_utils->has_entries($results)) {
- warn_no_results("comments");
- }
-
- my $url = $results->{url};
- my $comments = $results->{results}{comments} // [];
- my $token = $results->{results}{continuation};
-
- my $i = 0;
- foreach my $comment (@{$comments}) {
- my $comment_id = $yv_utils->get_comment_id($comment);
- my $comment_age = $yv_utils->get_publication_age_approx($comment);
-
- printf(
- "\n%s (%s) commented:\n%s\n",
- colored($yv_utils->get_author($comment), 'bold'),
- (
- $comment_age =~ /sec|min|hour|day/
- ? "$comment_age ago"
- : $yv_utils->get_publication_date($comment)
- ),
- wrap_text(
- i_tab => q{ } x 3,
- s_tab => q{ } x 3,
- text => [$yv_utils->get_comment_content($comment) // 'Empty comment...']
- ),
- );
-
- #~ if (exists $comment->{replies}) {
- #~ foreach my $reply (reverse @{$comment->{replies}{comments}}) {
- #~ my $reply_age = $yv_utils->date_to_age($reply->{snippet}{publishedAt});
- #~ printf(
- #~ "\n %s (%s) replied:\n%s\n",
- #~ colored($reply->{snippet}{authorDisplayName}, 'bold'),
- #~ (
- #~ $reply_age =~ /sec|min|hour|day/
- #~ ? "$reply_age ago"
- #~ : $yv_utils->format_date($reply->{snippet}{publishedAt})
- #~ ),
- #~ wrap_text(
- #~ i_tab => q{ } x 6,
- #~ s_tab => q{ } x 6,
- #~ text => [$reply->{snippet}{textDisplay} // 'Empty comment...']
- #~ ),
- #~ );
- #~ }
- #~ }
- }
-
- my @keywords = get_input_for_comments();
-
- foreach my $key (@keywords) {
- if ($key =~ /$valid_opt_re/) {
-
- my $opt = $1;
-
- if (
- general_options(
- opt => $opt,
- sub => __SUB__,
- url => $url,
- res => $comments,
- info => $results,
- mode => 'comments',
- args => [$videoID],
- token => $token,
- )
- ) {
- ## ok
- }
- elsif ($opt =~ /^(?:h|help)\z/) {
- print $comments_help;
- press_enter_to_continue();
- }
- elsif ($opt =~ /^(?:c|comment)\z/) {
- if (authenticated()) {
- require File::Temp;
- my ($fh, $filename) = File::Temp::tempfile();
- $yv_obj->proxy_system($ENV{EDITOR} // 'nano', $filename);
- if ($?) {
- warn colored("\n[!] Editor exited with a non-zero code. Unable to continue!", 'bold red') . "\n";
- }
- else {
- my $comment = do { local (@ARGV, $/) = $filename; <> };
- $comment =~ s/[^\s[:^cntrl:]]+//g; # remove control characters
-
- if (length($comment) and $yv_obj->comment_to_video_id($comment, $videoID)) {
- print "\n:: Comment posted!\n";
- }
- else {
- warn colored("\n[!] Your comment has NOT been posted!", 'bold red') . "\n";
- }
- }
- }
- }
- elsif ($opt =~ /^(?:r|return)\z/) {
- return;
- }
- else {
- warn_invalid('option', $opt);
- }
- }
- elsif (youtube_urls($key)) {
- ## ok
- }
- elsif (valid_num($key, $comments)) {
- print_videos($yv_obj->get_videos_from_username($comments->[$key - 1]{author}));
- }
- else {
- warn_invalid('keyword', $key);
- }
- }
-
- __SUB__->(@_);
-}
-
-sub print_categories {
- my ($results) = @_;
-
- return if ref($results) ne 'HASH';
- my $categories = $results->{items};
- return if ref($categories) ne 'ARRAY';
-
- my $i = 0;
- print "\n" if @{$categories};
-
- # Filter out nonassignable categories
- @$categories = grep { $_->{snippet}{assignable} } @$categories;
-
- foreach my $category (@{$categories}) {
- printf "%s. %-40s (id: %s)\n", colored(sprintf('%2d', ++$i), 'bold'), $yv_utils->get_title($category), $category->{id};
- }
-
- my @keywords = get_input_for_categories();
-
- foreach my $key (@keywords) {
- if ($key =~ /$valid_opt_re/) {
-
- my $opt = $1;
-
- if (
- general_options(
- opt => $opt,
- sub => __SUB__,
- res => $results,
- )
- ) {
- ## ok
- }
- elsif ($opt =~ /^(?:h|help)\z/) {
- print $general_help;
- press_enter_to_continue();
- }
- elsif ($opt =~ /^(?:r|return)\z/) {
- return;
- }
- else {
- warn_invalid('option', $opt);
- }
- }
- elsif (youtube_urls($key)) {
- ## ok
- }
- elsif (valid_num($key, $categories)) {
- my $category = $categories->[$key - 1];
- my $cat_id = $category->{id};
- my $videos = $yv_obj->videos_from_category($cat_id);
-
- if (not $yv_utils->has_entries($videos)) {
- $videos = $yv_obj->trending_videos_from_category($cat_id);
- }
-
- print_videos($videos);
- }
- else {
- warn_invalid('keyword', $key);
- }
- }
-
- __SUB__->(@_);
-}
-
-sub print_playlists {
- my ($results, %args) = @_;
-
- if (not $yv_utils->has_entries($results)) {
- warn_no_results("playlist");
- }
-
- if ($opt{get_term_width} and $opt{results_fixed_width}) {
- get_term_width();
- }
-
- my $url = $results->{url};
- my $playlists = $results->{results} // [];
-
- state $info_format = <<"FORMAT";
-
-TITLE: %s
- ID: %s
- URL: https://www.youtube.com/playlist?list=%s
-DESCR: %s
-FORMAT
-
- foreach my $i (0 .. $#{$playlists}) {
- my $playlist = $playlists->[$i];
- if ($opt{results_with_details}) {
- printf(
- "\n%s. %s\n %s: %-25s %s: %s\n%s\n",
- colored(sprintf('%2d', $i + 1), 'bold') => colored($yv_utils->get_title($playlist), 'bold blue'),
- colored('Updated' => 'bold') => $yv_utils->get_publication_date($playlist),
- colored('Author' => 'bold') => $yv_utils->get_channel_title($playlist),
- wrap_text(
- i_tab => q{ } x 4,
- s_tab => q{ } x 4,
- text => [$yv_utils->get_description($playlist) || 'No description available...']
- ),
- );
- }
- elsif ($opt{results_with_colors}) {
- print "\n" if $i == 0;
- printf(
- "%s. %s (%s) %s\n",
- colored(sprintf('%2d', $i + 1), 'bold'),
- colored($yv_utils->get_title($playlist), 'blue'),
- colored($yv_utils->get_publication_date($playlist), 'magenta'),
- colored($yv_utils->get_channel_title($playlist), 'green'),
- );
- }
- elsif ($opt{results_fixed_width}) {
-
- require List::Util;
-
- my @authors = map { $yv_utils->get_channel_title($_) } @{$playlists};
- my @dates = map { $yv_utils->get_publication_date($_) } @{$playlists};
-
- my $author_width = List::Util::min(List::Util::max(map { length($_) } @authors), int($term_width / 5));
- my $dates_width = List::Util::max(map { length($_) } @dates);
- my $title_length = $term_width - ($author_width + $dates_width + 2 + 3 + 1 + 2);
-
- print "\n";
- foreach my $i (0 .. $#{$playlists}) {
-
- my $playlist = $playlists->[$i];
- my $title = clear_title($yv_utils->get_title($playlist));
-
- printf "%s. %s %s [%*s]\n", colored(sprintf('%2d', $i + 1), 'bold'),
- adjust_width($title, $title_length),
- adjust_width($authors[$i], $author_width, 1),
- $dates_width, $dates[$i];
- }
- last;
- }
- else {
- print "\n" if $i == 0;
- printf(
- "%s. %s (by %s) [%s]\n",
- colored(sprintf('%2d', $i + 1), 'bold'), $yv_utils->get_title($playlist),
- $yv_utils->get_channel_title($playlist), $yv_utils->get_publication_date($playlist)
- );
- }
- }
-
- state @keywords;
- if ($args{auto}) { } # do nothing...
- else {
- @keywords = get_input_for_playlists();
- if (scalar(@keywords) == 0) {
- __SUB__->(@_);
- }
- }
-
- my $contains_keywords = grep /$non_digit_or_opt_re/, @keywords;
-
- my @for_search;
- foreach my $key (@keywords) {
- if ($key =~ /$valid_opt_re/) {
-
- my $opt = $1;
-
- if (
- general_options(
- opt => $opt,
- sub => __SUB__,
- url => $url,
- res => $playlists,
- info => $results,
- mode => 'playlists',
- )
- ) {
- ## ok
- }
- elsif ($opt =~ /^(?:h|help)\z/) {
- print $playlists_help;
- press_enter_to_continue();
- }
- elsif ($opt =~ /^(?:r|return)\z/) {
- return;
- }
- elsif ($opt =~ /^i(?:nfo)?${digit_or_equal_re}(.*)/) {
- if (my @ids = get_valid_numbers($#{$playlists}, $1)) {
- foreach my $id (@ids) {
- my $desc = wrap_text(
- i_tab => q{ } x 7,
- s_tab => q{ } x 7,
- text => [$yv_utils->get_description($playlists->[$id]) || 'No description available...']
- );
- $desc =~ s/^\s+//;
- printf $info_format, $yv_utils->get_title($playlists->[$id]),
- ($yv_utils->get_playlist_id($playlists->[$id])) x 2, $desc;
- }
- press_enter_to_continue();
- }
- else {
- warn_no_thing_selected('playlist');
- }
- }
- elsif ($opt =~ /^pp${digit_or_equal_re}(.*)/) {
- if (my @ids = get_valid_numbers($#{$playlists}, $1)) {
- my $arg = "--pp=" . join(q{,}, map { $yv_utils->get_playlist_id($_) } @{$playlists}[@ids]);
- apply_input_arguments([$arg]);
- }
- else {
- warn_no_thing_selected('playlist');
- }
- }
- else {
- warn_invalid('option', $opt);
- }
- }
- elsif (youtube_urls($key)) {
- ## ok
- }
- elsif (valid_num($key, $playlists) and not $contains_keywords) {
- if ($args{return_playlist_id}) {
- return $yv_utils->get_playlist_id($playlists->[$key - 1]);
- }
- get_and_print_videos_from_playlist($yv_utils->get_playlist_id($playlists->[$key - 1]));
- }
- else {
- push @for_search, $key;
- }
- }
-
- if (@for_search) {
- __SUB__->($yv_obj->search_playlists(\@for_search));
- }
-
- __SUB__->(@_);
-}
-
-sub compile_regex {
- my ($value) = @_;
- $value =~ s{^(?<quote>['"])(?<regex>.+)\g{quote}$}{$+{regex}}s;
-
- my $re = eval { use re qw(eval); qr/$value/i };
-
- if ($@) {
- warn_invalid("regex", $@);
- return;
- }
-
- return $re;
-}
-
-sub get_range_numbers {
- my ($first, $second) = @_;
-
- return (
- $first > $second
- ? (reverse($second .. $first))
- : ($first .. $second)
- );
-}
-
-sub get_valid_numbers {
- my ($max, $input) = @_;
-
- my @output;
- foreach my $id (split(/[,\s]+/, $input)) {
- push @output,
- $id =~ /$range_num_re/ ? get_range_numbers($1, $2)
- : $id =~ /^[0-9]{1,2}\z/ ? $id
- : next;
- }
-
- return grep { $_ >= 0 and $_ <= $max } map { $_ - 1 } @output;
-}
-
-sub get_streaming_url {
- my ($video_id) = @_;
-
- my ($urls, $captions, $info) = $yv_obj->get_streaming_urls($video_id);
-
- if (not defined $urls) {
- return scalar {};
- }
-
- # Download the closed-captions
- my $srt_file;
- if (ref($captions) eq 'ARRAY' and @$captions and $opt{get_captions} and not $opt{novideo}) {
- require WWW::StrawViewer::GetCaption;
- my $yv_cap = WWW::StrawViewer::GetCaption->new(
- auto_captions => $opt{auto_captions},
- captions_dir => $opt{captions_dir},
- captions => $captions,
- languages => $CONFIG{srt_languages},
- );
- $srt_file = $yv_cap->save_caption($video_id);
- }
-
- require WWW::StrawViewer::Itags;
- state $yv_itags = WWW::StrawViewer::Itags->new();
-
- # Include DASH itags
- my $dash = 1;
-
- # Exclude DASH itags in download-mode or when no video output is required
- if ($opt{novideo} or not $opt{dash_support}) {
- $dash = 0;
- }
- elsif ($opt{download_video}) {
- $dash = $opt{merge_into_mkv} ? 1 : 0;
- }
-
- my ($streaming, $resolution) =
- $yv_itags->find_streaming_url(
- urls => $urls,
- resolution => ($opt{novideo} ? 'audio' : $opt{resolution}),
- dash => $dash,
- dash_mp4_audio => ($opt{novideo} ? 1 : $opt{dash_mp4_audio}),
- dash_segmented => ($opt{download_video} ? 0 : $opt{dash_segmented}),
- );
-
- return {
- streaming => $streaming,
- srt_file => $srt_file,
- info => $info,
- resolution => $resolution,
- };
-}
-
-sub download_from_url {
- my ($url, $output_filename) = @_;
-
- # Download with wget
- if ($opt{download_with_wget}) {
- my @cmd = ($opt{wget_cmd}, '-c', '-t', '10', '--waitretry=3', $url, '-O', "$output_filename.part");
- $yv_obj->proxy_system(@cmd);
- return if $?;
- rename("$output_filename.part", $output_filename) or return undef;
- return $output_filename;
- }
-
- state $lwp_dl = which_command('lwp-download');
-
- # Download with lwp-download
- if (defined($lwp_dl)) {
- my @cmd = ($lwp_dl, $url, "$output_filename.part");
- $yv_obj->proxy_system(@cmd);
- return if $?;
- rename("$output_filename.part", $output_filename) or return undef;
- return $output_filename;
- }
-
- # Download with LWP::UserAgent
- require LWP::UserAgent;
-
- my $lwp = LWP::UserAgent->new(
- show_progress => 1,
- agent => 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/68.0.3440.106 Safari/537.36',
- );
-
- $lwp->proxy(['http', 'https'], $yv_obj->get_http_proxy)
- if defined($yv_obj->get_http_proxy);
-
- my $resp = eval { $lwp->mirror($url, "$output_filename.part") };
-
- if ($@ =~ /\bread timeout\b/i or not defined($resp) or not $resp->is_success) {
- warn colored("\n[!] Encountered an error while downloading... Trying again...", 'bold red') . "\n\n";
-
- if (defined(my $wget_path = which_command('wget'))) {
- $CONFIG{wget_cmd} = $wget_path;
- $CONFIG{download_with_wget} = 1;
- dump_configuration($config_file);
- }
- else {
- warn colored("[!] Please install `wget` and try again...", 'bold red') . "\n\n";
- }
-
- unlink("$output_filename.part");
- return download_from_url($url, $output_filename);
- }
-
- rename("$output_filename.part", $output_filename) or return undef;
- return $output_filename;
-}
-
-sub download_video {
- my ($streaming, $info) = @_;
-
- my $fat32safe = $opt{fat32safe};
- state $unix_like = $^O =~ /^(?:linux|freebsd|openbsd)\z/i;
-
- if (not $fat32safe and not $unix_like) {
- $fat32safe = 1;
- }
-
- my $video_filename = $yv_utils->format_text(
- streaming => $streaming,
- info => $info,
- text => $opt{video_filename_format},
- escape => 0,
- fat32safe => $fat32safe,
- );
-
- my $naked_filename = $video_filename =~ s/\.\w+\z//r;
-
- $naked_filename =~ s/:\h*/ - /g; # replace colons (":") with dashes ("-")
-
- my $mkv_filename = "$naked_filename.mkv";
- my $srt_filename = "$naked_filename.srt";
- my $audio_filename = "$naked_filename - audio";
-
- my $video_info = $streaming->{streaming};
- my $audio_info = $streaming->{streaming}{__AUDIO__};
-
- if ($audio_info) {
- $audio_filename .= "." . $yv_utils->extension($audio_info->{type});
- }
-
- if (not -d $opt{downloads_dir}) {
- require File::Path;
- if (not File::Path::make_path($opt{downloads_dir})) {
- warn colored("\n[!] Can't create directory '$opt{downloads_dir}': $1", 'bold red') . "\n";
- }
- }
-
- if (not -w $opt{downloads_dir}) {
- warn colored("\n[!] Can't write into directory '$opt{downloads_dir}': $!", 'bold red') . "\n";
- $opt{downloads_dir} = (-w curdir()) ? curdir() : (-w $ENV{HOME}) ? $ENV{HOME} : return;
- warn colored("[!] Video will be downloaded into directory: $opt{downloads_dir}", 'bold red') . "\n";
- }
-
- $mkv_filename = catfile($opt{downloads_dir}, $mkv_filename);
- $srt_filename = catfile($opt{downloads_dir}, $srt_filename);
- $audio_filename = catfile($opt{downloads_dir}, $audio_filename);
- $video_filename = catfile($opt{downloads_dir}, $video_filename);
-
- if ($opt{skip_if_exists} and -e $mkv_filename) {
- $video_filename = $mkv_filename;
- say ":: File `$mkv_filename` already exists. Skipping...";
- }
- else {
- if ($opt{skip_if_exists} and -e $video_filename) {
- say ":: File `$video_filename` already exists. Skipping...";
- }
- else {
- $video_filename = download_from_url($video_info->{url}, $video_filename) // return;
- }
-
- if ($opt{skip_if_exists} and -e $audio_filename) {
- say ":: File `$audio_filename` already exists. Skipping...";
- }
- elsif ($audio_info) {
- $audio_filename = download_from_url($audio_info->{url}, $audio_filename) // return;
- }
- }
-
- my @merge_files = ($video_filename);
-
- if ($audio_info) {
- push @merge_files, $audio_filename;
- }
-
- if ( $opt{merge_with_captions}
- and defined($streaming->{srt_file})
- and -f $streaming->{srt_file}) {
- push @merge_files, $streaming->{srt_file};
- }
-
- if ( $opt{merge_into_mkv}
- and scalar(@merge_files) > 1
- and scalar(grep { -f $_ } @merge_files) == scalar(@merge_files)
- and not -e $mkv_filename) {
-
- say ":: Merging into MKV...";
-
- my $ffmpeg_cmd = $opt{ffmpeg_cmd};
- my $ffmpeg_args = $opt{merge_into_mkv_args};
-
- if (my @srt_files = grep { /\.srt\z/ } @merge_files) {
- my $srt_file = $srt_files[0];
- require File::Basename;
- if (File::Basename::basename($srt_file) =~ m{^.{11}_([a-z]{2,4})}i) {
- my $lang_code = $1;
- $ffmpeg_args .= " -metadata:s:s:0 language=$lang_code";
- }
- }
-
- my $merge_command =
- join(' ', $ffmpeg_cmd, (map { "-i \Q$_\E" } @merge_files), $ffmpeg_args, "\Q$mkv_filename\E");
-
- if ($yv_obj->get_debug) {
- say "-> Command: $merge_command";
- }
-
- $yv_obj->proxy_system($merge_command);
-
- if ($? == 0 and -e $mkv_filename) {
- unlink @merge_files;
- $video_filename = $mkv_filename;
- }
- }
-
- # Convert the downloaded video
- if (defined $opt{convert_to}) {
- my $convert_filename = "$naked_filename.$opt{convert_to}";
- my $convert_cmd = $opt{convert_cmd};
-
- my %table = (
- 'IN' => $video_filename,
- 'OUT' => $convert_filename,
- );
-
- my $regex = do {
- local $" = '|';
- qr/\*(@{[keys %table]})\*/;
- };
-
- $convert_cmd =~ s/$regex/\Q$table{$1}\E/g;
- say $convert_cmd if $yv_obj->get_debug;
-
- $yv_obj->proxy_system($convert_cmd);
-
- if ($? == 0) {
-
- if (not $opt{keep_original_video}) {
- unlink $video_filename
- or warn colored("\n[!] Can't unlink file '$video_filename': $!", 'bold red') . "\n\n";
- }
-
- $video_filename = $convert_filename if -e $convert_filename;
- }
- }
-
- # Play the download video
- if ($opt{download_and_play}) {
-
- local $streaming->{streaming}{url} = '';
- local $streaming->{streaming}{__AUDIO__} = undef;
- local $streaming->{srt_file} = undef if ($opt{merge_into_mkv} && $opt{merge_with_captions});
-
- my $command = get_player_command($streaming, $info);
- say "-> Command: ", $command if $yv_obj->get_debug;
-
- $yv_obj->proxy_system(join(q{ }, $command, quotemeta($video_filename)));
-
- # Remove it afterwards
- if ($? == 0 and $opt{remove_played_file}) {
- unlink $video_filename
- or warn colored("\n[!] Can't unlink file '$video_filename': $!", 'bold red') . "\n\n";
- }
- }
-
- # Copy the .srt file from captions-dir to downloads-dir
- if ( $opt{copy_caption}
- and -e $video_filename
- and defined($streaming->{srt_file})
- and -e $streaming->{srt_file}) {
-
- my $from = $streaming->{srt_file};
- my $to = $srt_filename;
-
- require File::Copy;
- File::Copy::cp($from, $to);
- }
-
- return 1;
-}
-
-sub save_watched_video {
- my ($video_id) = @_;
-
- if ($opt{remember_watched} and not exists($watched_videos{$video_id})) {
- $watched_videos{$video_id} = 1;
- open my $fh, '>>', $opt{watched_file} or return;
- say {$fh} $video_id;
- close $fh;
- }
-
- $watched_videos{$video_id} = 1;
- return 1;
-}
-
-sub get_player_command {
- my ($streaming, $video) = @_;
-
- $MPLAYER{fullscreen} = $opt{fullscreen} ? $opt{video_players}{$opt{video_player_selected}}{fs} // '' : q{};
- $MPLAYER{novideo} = $opt{novideo} ? $opt{video_players}{$opt{video_player_selected}}{novideo} // '' : q{};
- $MPLAYER{mplayer_arguments} = $opt{video_players}{$opt{video_player_selected}}{arg} // q{};
-
- my $cmd = join(
- q{ },
- (
- # Video player
- $opt{video_players}{$opt{video_player_selected}}{cmd},
-
- ( # Audio file (https://)
- ref($streaming->{streaming}{__AUDIO__}) eq 'HASH'
- && exists($opt{video_players}{$opt{video_player_selected}}{audio})
- ? $opt{video_players}{$opt{video_player_selected}}{audio}
- : ()
- ),
-
- ( # Subtitle file (.srt)
- defined($streaming->{srt_file})
- && exists($opt{video_players}{$opt{video_player_selected}}{srt})
- ? $opt{video_players}{$opt{video_player_selected}}{srt}
- : ()
- ),
-
- # Rest of the arguments
- grep({ defined($_) and /\S/ } values %MPLAYER)
- )
- );
-
- my $has_video = $cmd =~ /\*(?:VIDEO|URL|ID)\*/;
-
- $cmd = $yv_utils->format_text(
- streaming => $streaming,
- info => $video,
- text => $cmd,
- escape => 1,
- );
-
- if ($streaming->{streaming}{url} =~ m{^https://www\.youtube\.com/watch\?v=}) {
- $cmd =~ s{ --no-ytdl\b}{ }g;
- }
-
- $has_video ? $cmd : join(' ', $cmd, quotemeta($streaming->{streaming}{url}));
-}
-
-sub autoplay {
- my $video_id = get_valid_video_id(shift) // return;
-
- my %seen = ($video_id => 1); # make sure we don't get stuck in a loop
- local $yv_obj->{maxResults} = 10;
-
- while (1) {
- get_and_play_video_ids($video_id) || return;
- my $related = $yv_obj->related_to_videoID($video_id);
- (my @video_ids = grep { !$seen{$_}++ } map { $yv_utils->get_video_id($_) } @{$related->{results}{items}}) || return;
- $video_id = $opt{shuffle} ? $video_ids[rand @video_ids] : $video_ids[0];
- }
-
- return 1;
-}
-
-sub play_videos {
- my ($videos) = @_;
-
- foreach my $video (@{$videos}) {
-
- my $video_id = $yv_utils->get_video_id($video);
-
- if ($opt{autoplay_mode}) {
- local $opt{autoplay_mode} = 0;
- autoplay($video_id);
- next;
- }
-
- # Ignore already watched videos
- if (exists($watched_videos{$video_id}) and $opt{skip_watched}) {
- say ":: Already watched video (ID: $video_id)... Skipping...";
- next;
- }
-
- if (defined($opt{max_seconds}) and $opt{max_seconds} >= 0) {
- next if $yv_utils->get_duration($video) > $opt{max_seconds};
- }
-
- if (defined($opt{min_seconds}) and $opt{min_seconds} >= 0) {
- next if $yv_utils->get_duration($video) < $opt{min_seconds};
- }
-
- my $streaming = get_streaming_url($video_id);
-
- if (ref($streaming->{streaming}) ne 'HASH') {
- warn colored("[!] No streaming URL has been found...", 'bold red') . "\n";
- next;
- }
-
- if ( !defined($streaming->{streaming}{url})
- and defined($streaming->{info}{status})
- and $streaming->{info}{status} =~ /(?:error|fail)/i) {
- warn colored("[!] Error on: ", 'bold red') . sprintf($CONFIG{youtube_video_url}, $video_id) . "\n";
- warn colored(":: Reason: ", 'bold red') . $streaming->{info}{reason} =~ tr/+/ /r . "\n\n";
- }
-
- # Dump metadata information
- if (defined($opt{dump})) {
-
- my $file = $video_id . '.' . $opt{dump};
- open(my $fh, '>:utf8', $file)
- or die "Can't open file `$file' for writing: $!";
-
- local $video->{streaming} = $streaming;
-
- if ($opt{dump} eq 'json') {
- print {$fh} JSON->new->pretty(1)->encode($video);
- }
- elsif ($opt{dump} eq 'perl') {
- require Data::Dump;
- print {$fh} Data::Dump::pp($video);
- }
-
- close $fh;
- }
-
- if ($opt{download_video}) {
- print_video_info($video);
- if (not download_video($streaming, $video)) {
- return;
- }
- }
- elsif (length($opt{extract_info})) {
- my $fh = $opt{extract_info_fh} // \*STDOUT;
- say {$fh}
- $yv_utils->format_text(
- streaming => $streaming,
- info => $video,
- text => $opt{extract_info},
- escape => $opt{escape_info},
- fat32safe => $opt{fat32safe},
- );
- }
- else {
- print_video_info($video);
- my $command = get_player_command($streaming, $video);
-
- if ($yv_obj->get_debug) {
- say "-> Resolution: $streaming->{resolution}";
- say "-> Video itag: $streaming->{streaming}{itag}";
- say "-> Audio itag: $streaming->{streaming}{__AUDIO__}{itag}" if exists $streaming->{streaming}{__AUDIO__};
- say "-> Video type: $streaming->{streaming}{type}";
- say "-> Audio type: $streaming->{streaming}{__AUDIO__}{type}" if exists $streaming->{streaming}{__AUDIO__};
- say "-> Command: $command";
- }
-
- $yv_obj->proxy_system($command); # execute the video player
-
- if ($? and $? != 512) {
- $opt{auto_next_page} = 0;
- return;
- }
- }
-
- save_watched_video($video_id);
- press_enter_to_continue() if $opt{confirm};
- }
-
- return 1;
-}
-
-sub play_videos_matched_by_regex {
- my %args = @_;
-
- my $key = $args{key};
- my $regex = $args{regex};
- my $videos = $args{videos};
-
- my $sub = \&{'WWW::StrawViewer::Utils' . '::' . 'get_' . $key};
-
- if (not defined &$sub) {
- warn colored("\n[!] Invalid key: <$key>.", 'bold red') . "\n";
- return;
- }
-
- if (defined(my $re = compile_regex($regex))) {
- if (my @nums = grep { $yv_utils->$sub($videos->[$_]) =~ /$re/ } 0 .. $#{$videos}) {
- if (not play_videos([@{$videos}[@nums]])) {
- return;
- }
- }
- else {
- warn colored("\n[!] No video <$key> matched by the regex: $re", 'bold red') . "\n";
- return;
- }
- }
-
- return 1;
-}
-
-sub print_video_info {
- my ($video) = @_;
-
- $opt{show_video_info} || return 1;
-
- my $hr = '-' x ($opt{get_term_width} ? get_term_width() : $term_width);
-
- printf(
- "\n%s\n%s\n%s\n%s\n%s",
- _bold_color('=> Description'),
- $hr,
- wrap_text(
- i_tab => q{},
- s_tab => q{},
- text => [$yv_utils->get_description($video) || 'No description available...']
- ),
- $hr,
- _bold_color('=> URL: ')
- );
-
- print STDOUT sprintf($CONFIG{youtube_video_url}, $yv_utils->get_video_id($video));
-
- my $title = $yv_utils->get_title($video);
- my $title_length = length($title);
- my $rep = ($term_width - $title_length) / 2 - 4;
-
- $rep = 0 if $rep < 0;
-
- print "\n$hr\n", q{ } x $rep => (_bold_color("=>> $title <<=") . "\n\n"),
- map(sprintf(q{-> } . "%-*s: %s\n", $opt{_colors} ? 18 : 10, _bold_color($_->[0]), $_->[1]),
- (
- ['Channel' => $yv_utils->get_channel_title($video)],
- ['ChannelID' => $yv_utils->get_channel_id($video)],
- ['VideoID' => $yv_utils->get_video_id($video)],
- ['Category' => $yv_utils->get_category_name($video)],
- ['Definition' => $yv_utils->get_definition($video)],
- ['Duration' => $yv_utils->get_time($video)],
- ['Likes' => $yv_utils->set_thousands($yv_utils->get_likes($video))],
- ['Dislikes' => $yv_utils->set_thousands($yv_utils->get_dislikes($video))],
- ['Comments' => $yv_utils->set_thousands($yv_utils->get_comments($video))],
- ['Views' => $yv_utils->set_thousands($yv_utils->get_views($video))],
- ['Published' => $yv_utils->get_publication_date($video)],
- )),
- "$hr\n";
-
- return 1;
-}
-
-sub print_videos {
- my ($results, %args) = @_;
-
- # use Data::Dump qw(pp);
- # pp $results;
-
- if (not $yv_utils->has_entries($results)) {
- warn_no_results("video");
- }
-
- if ($opt{get_term_width} and $opt{results_fixed_width}) {
- get_term_width();
- }
-
- my $url = $results->{url};
- my $videos = $results->{results} // [];
-
- if (ref($videos) eq 'HASH' and exists $videos->{videos}) {
- $videos = $videos->{videos};
- }
-
- #my $videos = $info->{items} // [];
-
- #~ foreach my $entry (@$videos) {
- #~ if ($yv_utils->is_activity($entry)) {
- #~ my $type = $entry->{snippet}{type};
-
- #~ if ($type eq 'upload') {
- #~ $entry->{kind} = 'youtube#video';
- #~ $entry->{id} = $entry->{contentDetails}{upload}{videoId};
- #~ }
-
- #~ if ($type eq 'playlistItem') {
- #~ $entry->{kind} = 'youtube#video';
- #~ $entry->{id} = $entry->{contentDetails}{playlistItem}{resourceId}{videoId};
- #~ }
-
- #~ if ($type eq 'bulletin' and $entry->{contentDetails}{bulletin}{resourceId}{kind} eq 'youtube#video') {
- #~ $entry->{kind} = 'youtube#video';
- #~ $entry->{id} = $entry->{contentDetails}{bulletin}{resourceId}{videoId};
- #~ }
- #~ }
- #~ }
-
-#<<<
- #~ @$videos = grep {
- #~ ref($_) eq 'HASH' && ref($_->{id}) eq 'HASH'
- #~ ? (exists($_->{id}{kind})
- #~ ? $_->{id}{kind} eq 'youtube#video'
- #~ : 0)
- #~ : 1
- #~ } @$videos;
-#>>>
-
- if ($opt{shuffle}) {
- require List::Util;
- $videos = [List::Util::shuffle(@{$videos})];
- }
-
- #~ if (@{$videos} and not $results->{has_extra_info}) {
-
- #~ my @video_ids = grep { defined } map { $yv_utils->get_video_id($_) } @{$videos};
- #~ my $content_details = $yv_obj->video_details(join(',', @video_ids), VIDEO_PART);
- #~ my $video_details = $content_details->{results}{items};
-
- #~ foreach my $i (0 .. $#{$videos}) {
- #~ @{$videos->[$i]}{qw(id contentDetails statistics snippet)} =
- #~ @{$video_details->[$i]}{qw(id contentDetails statistics snippet)};
- #~ }
-
- #~ $results->{has_extra_info} = 1;
- #~ }
-
-#<<<
- # Filter out private or deleted videos
- #~ @$videos = grep {
- #~ $yv_utils->get_video_id($_)
- #~ and $yv_utils->get_time($_) ne '00:00'
- #~ } @$videos;
-#>>>
-
- my @formatted;
-
- foreach my $i (0 .. $#{$videos}) {
- my $video = $videos->[$i];
-
- #use Data::Dump qw(pp);
- #pp $video;
-
- if ($opt{custom_layout}) {
-
- my $entry = $opt{custom_layout_format};
-
- if (ref($entry) eq '') {
- $entry =~ s/\*NO\*/sprintf('%2d', $i+1)/ge;
- $entry = $yv_utils->format_text(
- info => $video,
- text => $entry,
- escape => 0,
- );
- push @formatted, "$entry\n";
- }
-
- if (ref($entry) eq 'ARRAY') {
-
- my @columns;
-
- foreach my $slot (@$entry) {
-
- my $text = $slot->{text};
- my $width = $slot->{width} // 10;
- my $color = $slot->{color};
- my $align = $slot->{align} // 'left';
-
- if ($width =~ /^(\d+)%\z/) {
- $width = int(($term_width * $1) / 100);
- }
-
- $text =~ s/\*NO\*/$i+1/ge;
-
- $text = $yv_utils->format_text(
- info => $video,
- text => $text,
- escape => 0,
- );
-
- $text = clear_title($text);
- $text = adjust_width($text, $width, ($align eq 'right'));
-
- if (defined($color)) {
- $text = colored($text, $color);
- }
-
- push @columns, $text;
- }
-
- push @formatted, join(' ', @columns) . "\n";
- }
- }
- elsif ($opt{results_with_details}) {
- push @formatted,
- ($i == 0 ? '' : "\n")
- . sprintf(
- "%s. %s\n" . " %s: %-16s %s: %-13s %s: %s\n" . " %s: %-12s %s: %-10s %s: %s\n%s\n",
- colored(sprintf('%2d', $i + 1), 'bold') => colored($yv_utils->get_title($video), 'bold blue'),
- colored('Views' => 'bold') => $yv_utils->set_thousands($yv_utils->get_views($video)),
- colored('Likes' => 'bold') => $yv_utils->set_thousands($yv_utils->get_likes($video)),
- colored('Dislikes' => 'bold') => $yv_utils->set_thousands($yv_utils->get_dislikes($video)),
- colored('Published' => 'bold') => $yv_utils->get_publication_date($video),
- colored('Duration' => 'bold') => $yv_utils->get_time($video),
- colored('Author' => 'bold') => $yv_utils->get_channel_title($video),
- wrap_text(
- i_tab => q{ } x 4,
- s_tab => q{ } x 4,
- text => [$yv_utils->get_description($video) || 'No description available...']
- ),
- );
- }
- elsif ($opt{results_with_colors}) {
- my $definition = $yv_utils->get_definition($video);
- push @formatted,
- sprintf(
- "%s. %s (%s) %s\n",
- colored(sprintf('%2d', $i + 1), 'bold'),
- colored($yv_utils->get_title($video), 'blue'),
- colored($yv_utils->get_time($video), 'magenta'),
- colored($yv_utils->get_channel_title($video), 'green'),
- );
- }
- elsif ($opt{results_fixed_width}) {
-
- require List::Util;
-
- my @durations = map { $yv_utils->get_duration($_) } @{$videos};
- my @authors = map { $yv_utils->get_channel_title($_) } @{$videos};
-
- my $author_width = List::Util::min(List::Util::max(map { length($_) } @authors) || 1, int($term_width / 5));
- my $time_width = List::Util::first(sub { $_ >= 3600 }, @durations) ? 8 : 6;
- my $title_length = $term_width - ($author_width + $time_width + 3 + 2 + 1);
-
- foreach my $i (0 .. $#{$videos}) {
-
- my $video = $videos->[$i];
- my $title = clear_title($yv_utils->get_title($video));
-
- push @formatted,
- sprintf("%s. %s %s %*s\n",
- colored(sprintf('%2d', $i + 1), 'bold'),
- adjust_width($title, $title_length),
- adjust_width($yv_utils->get_channel_title($video), $author_width, 1),
- $time_width, $yv_utils->get_time($video));
- }
- last;
- }
- else {
- push @formatted,
- sprintf(
- "%s. %s (by %s) [%s]\n",
- colored(sprintf('%2d', $i + 1), 'bold'), $yv_utils->get_title($video),
- $yv_utils->get_channel_title($video), $yv_utils->get_time($video),
- );
- }
- }
-
- if ($opt{highlight_watched}) {
- foreach my $i (0 .. $#{$videos}) {
- my $video = $videos->[$i];
- if (exists($watched_videos{$yv_utils->get_video_id($video)})) {
- $formatted[$i] = colored(colorstrip($formatted[$i]), $opt{highlight_color});
- }
- }
- }
-
- if (@formatted) {
- print "\n" . join("", @formatted);
- }
-
- if ($opt{play_all} || $opt{play_backwards}) {
- if (@{$videos}) {
- if (
- play_videos(
- $opt{play_backwards}
- ? [reverse @{$videos}]
- : $videos
- )
- ) {
- if ($opt{play_backwards}) {
- #if (defined $info->{prevPageToken}) {
- __SUB__->($yv_obj->previous_page($url), auto => 1);
- #}
- #else {
- # $opt{play_backwards} = 0;
- # warn_first_page();
- # return;
- #}
- }
- else {
- #if (defined $info->{nextPageToken}) {
- __SUB__->($yv_obj->next_page($url), auto => 1);
- #}
- #else {
- # $opt{play_all} = 0;
- # warn_last_page();
- # return;
- #}
- }
- }
- else {
- $opt{play_all} = 0;
- $opt{play_backwards} = 0;
- __SUB__->($results);
- }
- }
- else {
- $opt{play_all} = 0;
- $opt{play_backwards} = 0;
- }
- }
-
- state @keywords;
- if ($args{auto}) { } # do nothing...
- else {
- @keywords = get_input_for_search();
-
- if (scalar(@keywords) == 0) { # only arguments
- __SUB__->($results);
- }
- }
-
- state @for_search;
- state @for_play;
-
- my @copy_of_keywords = @keywords;
- my $contains_keywords = grep /$non_digit_or_opt_re/, @keywords;
-
- while (@keywords) {
- my $key = shift @keywords;
- if ($key =~ /$valid_opt_re/) {
-
- my $opt = $1;
-
- if (
- general_options(opt => $opt,
- res => $videos,)
- ) {
- ## ok
- }
- elsif ($opt =~ /^(?:h|help)\z/) {
- print $complete_help;
- press_enter_to_continue();
- }
- elsif ($opt =~ /^(?:n|next)\z/) {
- #if (defined $info->{nextPageToken}) {
- my $request = $yv_obj->next_page($url);
- __SUB__->($request, @keywords ? (auto => 1) : ());
- #}
- #else {
- # warn_last_page();
- # if ($opt{auto_next_page}) {
- # $opt{auto_next_page} = 0;
- # @copy_of_keywords = ();
- # last;
- # }
- #}
- }
- elsif ($opt =~ /^(?:b|back|p|prev|previous)\z/) {
- #if (defined $info->{prevPageToken}) {
- __SUB__->($yv_obj->previous_page($url), @keywords ? (auto => 1) : ());
- #}
- #else {
- # warn_first_page();
- #}
- }
- elsif ($opt =~ /^(?:R|refresh)\z/) {
- @{$videos} = @{$yv_obj->_get_results($url)->{results}{items}};
- $results->{has_extra_info} = 0;
- }
- elsif ($opt =~ /^(?:r|return)\z/) {
- return;
- }
- elsif ($opt =~ /^(?:a|author|u|uploads)${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- foreach my $id (@nums) {
- my $channel_id = $yv_utils->get_channel_id($videos->[$id]);
- my $request = $yv_obj->uploads($channel_id);
- if ($yv_utils->has_entries($request)) {
- __SUB__->($request);
- }
- else {
- warn_no_results('video');
- }
- }
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^(?:pv|popular)${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- foreach my $id (@nums) {
- my $channel_id = $yv_utils->get_channel_id($videos->[$id]);
- my $request = $yv_obj->popular_videos($channel_id);
- if ($yv_utils->has_entries($request)) {
- __SUB__->($request);
- }
- else {
- warn_no_results('popular video');
- }
- }
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^(?:A|[Aa]ctivity)${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- foreach my $id (@nums) {
- my $channel_id = $yv_utils->get_channel_id($videos->[$id]);
- my $request = $yv_obj->activities($channel_id);
- if ($yv_utils->has_entries($request)) {
- __SUB__->($request);
- }
- else {
- warn_no_results('activity');
- }
- }
- }
- else {
- warn_no_thing_selected('activity');
- }
- }
- elsif ($opt =~ /^(?:ps|s2p)${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- select_and_save_to_playlist(map { $yv_utils->get_video_id($videos->[$_]) } @nums);
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^(?:p|playlists?|up)${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- foreach my $id (@nums) {
- my $request = $yv_obj->playlists($yv_utils->get_channel_id($videos->[$id]));
- if ($yv_utils->has_entries($request)) {
- print_playlists($request);
- }
- else {
- warn_no_results('playlist');
- }
- }
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^((?:dis)?like)${digit_or_equal_re}(.*)/) {
- my $rating = $1;
- if (my @nums = get_valid_numbers($#{$videos}, $2)) {
- rate_videos($rating, map { $yv_utils->get_video_id($videos->[$_]) } @nums);
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^(?:fav|favorite|F)${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- favorite_videos(map { $yv_utils->get_video_id($videos->[$_]) } @nums);
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^(?:subscribe|S)${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- subscribe(map { $yv_utils->get_channel_id($videos->[$_]) } @nums);
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^(?:q|queue|enqueue)${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- push @{$opt{_queue_play}}, map { $yv_utils->get_video_id($videos->[$_]) } @nums;
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^(?:pq|qp|play-queue)\z/) {
- if (ref $opt{_queue_play} eq 'ARRAY' and @{$opt{_queue_play}}) {
- my $ids = 'v=' . join(q{,}, splice @{$opt{_queue_play}});
- general_options(opt => $ids);
- }
- else {
- warn colored("\n[!] The playlist is empty!", 'bold red') . "\n";
- }
- }
- elsif ($opt =~ /^c(?:omments?)?${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- get_and_print_comments(map { $yv_utils->get_video_id($videos->[$_]) } @nums);
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^r(?:elated)?${digit_or_equal_re}(.*)/) {
- if (my ($id) = get_valid_numbers($#{$videos}, $1)) {
- get_and_print_related_videos($yv_utils->get_video_id($videos->[$id]));
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^(?:ap|autoplay)${digit_or_equal_re}(.*)/) {
- if (my ($id) = get_valid_numbers($#{$videos}, $1)) {
- autoplay($yv_utils->get_video_id($videos->[$id]));
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^d(?:ownload)?${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- local $opt{download_video} = 1;
- play_videos([@{$videos}[@nums]]);
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^(?:play|P)${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- local $opt{download_video} = 0;
- local $opt{extract_info} = undef;
- play_videos([@{$videos}[@nums]]);
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt =~ /^i(?:nfo)?${digit_or_equal_re}(.*)/) {
- if (my @nums = get_valid_numbers($#{$videos}, $1)) {
- foreach my $num (@nums) {
- local $opt{show_video_info} = 1;
- print_video_info($videos->[$num]);
- }
- press_enter_to_continue();
- }
- else {
- warn_no_thing_selected('video');
- }
- }
- elsif ($opt eq 'anp') { # auto-next-page
- $opt{auto_next_page} = 1;
- }
- elsif ($opt eq 'nnp') { # no-next-page
- $opt{auto_next_page} = 0;
- }
- elsif ($opt =~ /^[ks]re(?:gex)?=(.*)/) {
- my $value = $1;
- if ($value =~ /^([a-zA-Z]++)(?>,|=>)(.+)/) {
- play_videos_matched_by_regex(
- key => $1,
- regex => $2,
- videos => $videos,
- )
- or __SUB__->($results);
- }
- else {
- warn_invalid("Special Regexp", $value);
- }
- }
- elsif ($opt =~ /^re(?:gex)?=(.*)/) {
- play_videos_matched_by_regex(
- key => 'title',
- regex => $1,
- videos => $videos,
- )
- or __SUB__->($results);
- }
- else {
- warn_invalid('option', $opt);
- }
- }
- elsif (youtube_urls($key)) {
- ## ok
- }
- elsif (!$contains_keywords and (valid_num($key, $videos) or $key =~ /$range_num_re/)) {
- my @for_play;
- if ($key =~ /$range_num_re/) {
- my $from = $1;
- my $to = $2 // do {
- $opt{auto_next_page} ? do { $from = 1 } : do { $opt{auto_next_page} = 1 };
- $#{$videos} + 1;
- };
- my @ids = get_valid_numbers($#{$videos}, "$from..$to");
- if (@ids) {
- push @for_play, @ids;
- }
- else {
- push @for_search, $key;
- }
- }
- else {
- push @for_play, $key - 1;
- }
-
- if (@for_play and not play_videos([@{$videos}[@for_play]])) {
- __SUB__->($results);
- }
-
- if ($opt{autohide_watched}) {
- splice(@{$videos}, $key, 1) for @for_play;
- }
- }
- else {
- push @for_search, $key;
- }
- }
-
- if (@for_search) {
- __SUB__->($yv_obj->search_videos([splice(@for_search)]));
- }
- elsif ($opt{auto_next_page}) {
- @keywords = (':next', grep { $_ !~ /^:(n|next|anp)\z/ } @copy_of_keywords);
-
- if (@keywords > 1) {
- my $timeout = 2;
- print colored("\n:: Press <ENTER> in $timeout seconds to stop the :anp option.", 'bold green');
- eval {
- local $SIG{ALRM} = sub {
- die "alarm\n";
- };
- alarm $timeout;
- scalar <STDIN>;
- alarm 0;
- };
-
- if ($@) {
- if ($@ eq "alarm\n") {
- __SUB__->($results, auto => 1);
- }
- else {
- warn colored("\n[!] Unexpected error: <$@>.", 'bold red') . "\n";
- }
- }
- else {
- $opt{auto_next_page} = 0;
- __SUB__->($results);
- }
- }
- else {
- warn colored("\n[!] Option ':anp' works only combined with other options!", 'bold red') . "\n";
- $opt{auto_next_page} = 0;
- __SUB__->($results);
- }
- }
-
- __SUB__->($results) if not $args{auto};
-
- return 1;
-}
-
-sub press_enter_to_continue {
- scalar $term->readline(colored("\n=>> Press ENTER to continue...", 'bold'));
-}
-
-sub main_quit {
- exit($_[0] // 0);
-}
-
-main_quit(0);
generated by cgit v1.2.3 (git 2.25.1) at 2025-08-19 12:37:24 +0000