#!/usr/bin/env perl
use warnings;
use strict;
use 5.010000;
use utf8;

our $VERSION = '0.106';

use Encode                qw( decode );
use File::Spec::Functions qw( catdir catfile curdir );
use Getopt::Long          qw( GetOptions );
use Pod::Usage            qw( pod2usage );

use Encode::Locale         qw( decode_argv );
use File::HomeDir          qw();
use File::Which            qw( which );
use IPC::System::Simple    qw( capture );
use Term::ANSIScreen       qw( :cursor :screen );
use Term::ReadLine::Simple qw();
use Try::Tiny              qw( try catch );

use if $^O eq 'MSWin32', 'Win32::Console::ANSI';
print "\e(U" if $^O eq 'MSWin32';

use App::YTDL::Config   qw( read_config_file set_options );
use App::YTDL::Videos   qw( from_arguments_to_choices );
use App::YTDL::Download qw( download_youtube );
use App::YTDL::Info     qw( get_download_infos );
use App::YTDL::Helper   qw( encode_fs );
use App::YTDL::History  qw( read_history_files channel_history_menu );

binmode STDIN,  ':encoding(console_in)';
binmode STDOUT, ':encoding(console_out)';
binmode STDERR, ':encoding(console_out)';

my ( $arg_file, $help );
GetOptions( 'f|file=s@' => \$arg_file, 'h|?|help' => \$help )
or pod2usage( -message => $!, -verbose => 99, -sections => "SYNOPSIS" );


my $my_data    = decode( 'locale_fs', File::HomeDir->my_data   || curdir );
my $my_videos  = decode( 'locale_fs', File::HomeDir->my_videos || curdir );
my $config_dir = catdir $my_data, 'yt_download';

if ( ! -d encode_fs( $config_dir ) ) {
    mkdir encode_fs( $config_dir ) or die $!;
}

my $opt = {
    useragent       => 'Mozilla/5.0',
    video_dir       => $my_videos,
    config_dir      => $config_dir,
    config_file     => catfile( $config_dir, 'yt_config.json' ),
    preferred_file  => catfile( $config_dir, 'yt_preferred_qualities.json' ),
    log_file        => catfile( $config_dir, 'yt_download.log' ),
    log_info        => 0,
    h_channel_file  => catfile( $config_dir, 'yt_channel_history.json' ),
    s_channel_file  => catfile( $config_dir, 'yt_channel_sticky.json' ),
    max_len_f_name  => 62,
    linefold        => { Charset => 'utf-8', Newline => "\n", OutputCharset => '_UNICODE_', Urgent => 'FORCE' },
    yt_api_v        => 2,
    invalid_char    => quotemeta( '#$&+,/:;=?@' ),
    yt_regexp       => qr/(?:youtube|youtu\.be|yourepeat|tube\.majestyc)/i,
    kb_sec_len      => 5,
    max_info_width  => 120,
    right_margin    => $^O eq 'MSWin32' ? 1 : 2,
    retries         => 5,
    timeout         => 15,
    overwrite       => 0,
    auto_quality    => 1,
    preferred       => [ 43 ],
    max_channels    => 15,
    list_size_idx   => 0,
    extractor_dir   => 1,
    channel_dir     => 1,
    sort_item       => 'upload_date',
    sort_order      => 'Desc',
    show_view_count => 0,
    channel_by_timestamp     => 1,
    upload_date_is_file_date => 0,
    error_get_download_infos => [],
    incomplete_download      => [],
};

read_config_file( $opt, $opt->{config_file} );
if ( $help ) {
    set_options( $opt );
}

### keep this for some time
if ( -f $opt->{preferred_file} ) {
    my $href = App::YTDL::Helper::read_json( $opt->{preferred_file} );
    for my $key ( keys %$href ) {
        for my $item ( @{$href->{$key}} ) {
            if ( ! ref $item ) {
                $item = [ $item ];
            }
        }
    }
    App::YTDL::Helper::write_json( $opt->{preferred_file}, $href );
}
###

try {
    my $youtube_dl = which( 'youtube-dl' ) // 'youtube-dl';
    my $capture = capture( $youtube_dl, '--version' );
}
catch {
    say "Could not find 'youtube-dl' - 'youtube-dl' is required - http://rg3.github.io/youtube-dl/.";
    exit 1;
};

local $| = 1;
print locate( 1, 1 ), cldown;



read_history_files( $opt );

my @ids = _gather_arguments( $opt, $arg_file, @ARGV );

my $info = from_arguments_to_choices( $opt, @ids );

get_download_infos( $opt, $info );

download_youtube( $opt, $info );



my $error;
if ( @{$opt->{error_get_download_infos}} ) {
    print "\n";
    say "Error fetching download infos:";
    for my $video_id ( @{$opt->{error_get_download_infos}} ) {
        say '  ' . $video_id;
    }
    $error++;
}
if ( @{$opt->{incomplete_download}} ) {
    print "\n";
    say "Incomplete_download:";
    for my $video_id ( @{$opt->{incomplete_download}} ) {
        say '  ' . $video_id;
    }
    $error++;
}
say "" if $error;


sub _gather_arguments {
    my ( $opt, $arg_file, @ids ) = @_;
    for my $file ( @$arg_file ) {
        open my $fh, '<:encoding(utf-8)', encode_fs( $file ) or die $!;
        while ( my $line = <$fh> ) {
            next if $line =~ /^\s*\z/;
            next if $line =~ /^\s*#/;
            $line =~ s/^\s+|\s+\z//g;
            push @ids, split /\s+/, $line;
        }
        close $fh or die $!;
    }
    if ( ! @ids ) {
        my $trs = Term::ReadLine::Simple->new();
        my $ids = $trs->readline( 'Enter url/id: ' );
        @ids = split /\s+/, $ids;
        print up( 1 ), cldown;
    }
    if ( ! @ids && ( %{$opt->{channel_history}} || %{$opt->{channel_sticky}} ) ) {
        @ids = channel_history_menu( $opt );
    }
    say "No arguments" and exit if ! @ids;
    return @ids;
}


__END__

=pod

=encoding UTF-8

=head1 NAME

getvideo - Download YouTube and other videos.

=head1 VERSION

Version 0.106

=cut

=head1 SYNOPSIS

    getvideo -h|-?|--help

    getvideo

    getvideo url [url ...]

    getvideo -f|--file filename

The urls can be entered after calling C<getvideo> - this is useful if urls contain shell metacharacters like C<&>.

The urls can also be passed with a file: C<getvideo -f|--file filename>. The urls in the file have to be space
separated.

=head1 DESCRIPTION

Download single videos or/and choose videos from playlists or/and channels.

When choosing from a channel or a playlist it is possible to filter the displayed video titles with a regexp.

Before the download the script shows some video info and lets you choose the video quality from the available qualities.
It is possible to choose more than one video format with the C<SpaceBar> key.

Instead of choosing the quality manually it is possible to set and use preferred qualities.

To set the different options call C<getvideo -h>.

C<App::YTDL> uses L<youtube-dl|http://rg3.github.io/youtube-dl/> to get the data required for the video download. To
list the supported extractors call C<getvideo -h> and select the entry I<Extractors>.

=head3 Where to set the preferred qualities

Set the option I<Auto quality mode> to C<0> or C<1>. Then, when downloading a video, instead of
selecting the desired video quality select the entry "Menu" and then the entry "Preferred qualities".

=head3 Legacy encodings

Non mappable characters on the output are replaced with C<*>. In file names they are replaced with C<&#xNNN;> where NNN
is the Unicode code point in a decimal number.

=head1 Options

=head2 HELP

Shows this HELP text.

=head2 INFO

Shows the path and the version of the running C<getvideo>, the path of the video and configuration directories and the
version of C<youtube-dl>.

=head2 Directory

=head3 Video directory

Choose an alternative main video directory.

=head3 Extractor directory

=over

=item

0 => No.

=item

1 => Create/use extractor directories.

=back

=head3 Channel directory

=over

=item

0 => Don't create/use channel directories.

=item

1 => Create/use channel directories if the videos are chosen from a channel or a list.

=item

2 => Always create/use channel directories.

=back

=head2 File

=head3 Max filename length

Set the maximum length of the filename. Filenames longer as the maximum length are truncated.

=head3 Upload date is file date

Change the timestamps of the downloaded videos to the upload date.

=head2 Quality

=head3 Auto quality mode

Set the auto quality mode:

=over

=item

mode 0: choose the video quality always manually

=item

mode 1: keep the first quality chosen for a video of a playlist/channel for all videos of that playlist/channel if
possible.

=item

mode 2: keep the first quality chosen for a video of an extractor for all videos of that extractor if possible.

=item

mode 3: use preferred qualities.

=item

mode 4: use always the default (best) quality.

=back

=head3 Preferred qualities

Prints the set preferred qualities.

See L</Where to set the preferred qualities>.

=head2 Download

=head3 UserAgent

Set the useragent.

If entered nothing the default useragent (Mozilla/5.0) is used.

=head3 Overwrite

If I<Overwrite> is enabled, existing files are overwritten.

If not enabled, C<getvideo> appends to partially downloaded file with the same name.

=head3 Download retries

Set the number of download retries.

=head3 Timeout

I<Timeout> (seconds) is used as the value for the C<youtube-dl> parameter C<--socket-timeout>. I<timeout> is also used
as the value for the L<LWP::UserAgent> option C<timeout> when fetching the data required for the video download.

=head2 History

=head3 Logging

Enable info logging to a log file.

=head3 Channel history

If no arguments are passed to C<getvideo>, the user can choose from the channels saved in the channel-history and the
channel-sticky file.

I<Channel history> sets the limit of the number of channels saved in the channel history file. Setting
I<Channel history> to C<0> disables the channel history.

A channel can be made sticky. Channels made sticky don't count regarding the I<Channel history> limit. If a channel
is made sticky, it gets also a new timestamp.

When added to the channel history channels get the return value of C<time()> as a timestamp. If the limit is reached,
the channel with the oldest timestamp is removed first.

The supported extractors for the I<Channel history> are YouTube and Vimeo.

=head3 History sort

Sort the channels from the history file by name or by timestamp.

=head2 List menu

=head3 Size video list

=over

=item

All videos

Show (fetch info for) all videos of the channel/playlist.

=item

The latest 50 videos

If the channel/playlist has more than 50 videos, show (fetch info for) only the first 50 videos of the channel/playlist.

=back

=head3 Sort order

Choose how to sort the list (channel/playlist) menu entries: by "Upload date", "Title", "View count" or "Duration".

=head3 Show view count

=over

=item

0 => If ordered by view count

Show the view count in the list menu entries only when sorted by view count.

=item

1 => Always

Show the view count always int the list menu entries.

=back

=head3 Max info width

=head2 Appearance

=head3 Max info width

Set the maximum width of video info output.

=head3 Digits for "k/s"

Set the number of digits allocated for the "kilobyte per seconds" template.

=head2 Extractors

List the extractors supported by C<youtube-dl>.

=head1 REQUIREMENTS

=head2 Perl version

Requires Perl version 5.10.0 or greater.

=head2 youtube-dl

L<youtube-dl|http://rg3.github.io/youtube-dl/> is required.

=head2 Encoding layer

For a correct output it is required an appropriate encoding layer for STDOUT matching the terminal's character set.

=head2 Monospaced font

It is required a terminal that uses a monospaced font which supports the printed characters.

=head1 CREDITS

C<App::YTDL> uses L<youtube-dl|http://rg3.github.io/youtube-dl/> to get the data required for the video download.

Thanks to the L<Perl-Community.de|http://www.perl-community.de> and the people form
L<stackoverflow|http://stackoverflow.com> for the help.

=head1 AUTHOR

Kuerbis <cuer2s@gmail.com>

=head1 LICENSE AND COPYRIGHT

Copyright (C) 2013-2015 Kuerbis.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For
details, see the full text of the licenses in the file LICENSE.

=cut
