Adding support to kjanime.

This commit is contained in:
sergiotarxz 2021-01-04 04:38:21 +01:00
parent fb6585cf60
commit 8800060355
Signed by: sergiotarxz
GPG Key ID: E5903508B6510AC2
5 changed files with 133 additions and 16 deletions

View File

@ -5,20 +5,56 @@ use feature 'say';
use strict;
use warnings;
use Getopt::Long::Descriptive;
use Peertube::DL::URLHandler;
my ( $opt, $usage ) = describe_options(
'peertube-dl %o <url>',
[ 'recurse|r', 'Recursive in reproduction lists.', { default => 0 } ],
[],
[ 'help|h', 'Show this help.', { shortcircuit => 1 } ],
);
print( $usage->text ), exit if $opt->help;
my $recurse = $opt->recurse;
die "No url passed" unless @ARGV;
my $download_data = Peertube::DL::URLHandler::getDownloadDataFromURL( $ARGV[0] );
my $filename = $download_data->{filename};
my $url = $download_data->{url};
my $ua = Peertube::DL::URLHandler::generateUA();
my $response = $ua->get($url);
die "Cannot retrieve video data" unless $response->is_success;
my $ua = Peertube::DL::URLHandler::generateUA();
my $content = $response->decoded_content;
if ( defined $download_data->{options}{list} && $download_data->{options}{list} ) {
my $urls = $download_data->{urls};
if ($recurse) {
for my $url (@$urls) {
say "Handling nested url: $url";
my $url_download_data = Peertube::DL::URLHandler::getDownloadDataFromURL( $url );
downloadVideo( $ua, $url_download_data );
}
} else {
say "The urls are:\n" . join "\n", @$urls;
}
open my $fh, '>', $filename or die "Cannot open $filename";
$fh->print( $response->decoded_content ) or die "Cannot write to $filename";
close $fh;
} else {
downloadVideo( $ua, $download_data );
}
sub downloadVideo {
my $ua = shift;
my $download_data = shift;
my $filename = $download_data->{filename};
my $url = $download_data->{url};
my $response = $ua->get($url);
die "Cannot retrieve video data" unless $response->is_success;
my $content = $response->decoded_content;
say "Writing into $filename.";
open my $fh, '>', $filename or die "Cannot open $filename";
$fh->print( $response->decoded_content ) or die "Cannot write to $filename";
close $fh;
}

View File

@ -6,3 +6,4 @@ requires 'Mojolicious::Lite';
requires 'Test::Most';
requires 'Test::MockObject';
requires 'Mojo::Server::Hypnotoad';
requires 'Getopt::Long::Descriptive';

View File

@ -8,6 +8,62 @@ use feature 'say';
use JSON;
use Peertube::DL::Utils;
use Data::Dumper;
use Mojo::DOM;
sub kjanime {
my $ua = shift;
my $response = shift;
my $dom = Mojo::DOM->new( $response->decoded_content );
my $hotlink_span = $dom->find('.spoikj .ddserver')->grep(
sub {
my $i = shift;
$i->text =~ /HotLink/;
}
)->first;
my ($k_poi) = $hotlink_span->attr('onclick') =~ /getKpoi\((.*)\)/;
$k_poi =~ s/'//g;
my ( $t, $s, $l ) = ( split /,/, $k_poi );
my $url_get_php =
'https://kjanime.net/link/get.php?t='
. Peertube::DL::Utils::uri_encode($t) . '&s='
. Peertube::DL::Utils::uri_encode($s) . '&l='
. Peertube::DL::Utils::uri_encode($l);
my $get_php_response = $ua->get(
$url_get_php,
'X-Requested-With' => 'XMLHttpRequest',
);
$dom = Mojo::DOM->new( $get_php_response->decoded_content );
my $links = [ map { $_->attr('href') =~ s/^http:\/\//https:\/\//r } @{ $dom->find('a')->to_array } ];
return { options => { list => 1 }, urls => $links };
}
sub kjanime_ch {
my $ua = shift;
my $response = shift;
my ($id) = $response->filename;
say $id;
my $param = join '', map { Peertube::DL::Utils::uri_decode("%$_") } unpack( "(A2)*", $id );
say $param;
# FORMAT: KJA://70714B6E314943383135712B72582B70713768797A4B6E4D734D474775773D3D/1
# REQUEST: GET https://hotlink-api.kjanime.net/dl/serie.php?id=70714B6E314943383135712B72582B70713768797A4B6E4D734D474775773D3D&ep=1
$param =~ s/^KJA:\/\///;
my ( $real_id, $ep ) = split '/', $param;
my $url_serie_php =
'https://hotlink-api.kjanime.net/dl/serie.php?id='
. Peertube::DL::Utils::uri_encode($real_id) . '&ep='
. Peertube::DL::Utils::uri_encode($ep);
say $url_serie_php;
my $response_serie_php = $ua->get(
$url_serie_php,
'X-Requested-With' => 'XMLHttpRequest',
);
my $download_data = JSON::decode_json( $response_serie_php->decoded_content );
say Data::Dumper::Dumper $download_data;
$download_data->{filename} = delete $download_data->{name};
$download_data->{url} = delete $download_data->{link};
return $download_data;
}
sub gocdn {
my $ua = shift;

View File

@ -11,12 +11,22 @@ use Peertube::DL::Downloaders;
sub getDownloadDataFromURL {
my $url_origen = shift;
my $ua = Peertube::DL::URLHandler::generateUA();
my $response = $ua->get($url_origen);
my %handlers = (
$ua->set_redirect_ok(1);
my $response = $ua->get($url_origen);
my %handlers = (
gocdn => { reg => qr/gocdn\.html#/, subr => \&Peertube::DL::Downloaders::gocdn },
animeid => { reg => qr/animeid\.to\/streaming\.php\?/, subr => \&Peertube::DL::Downloaders::animeid },
kjanime => {
reg => qr/kjanime - Anime en formato ligero y HQ - kjanime/,
subr => \&Peertube::DL::Downloaders::kjanime
},
kjanime_ch => {
reg => qr/Link de descarga . kjanime/,
subr => \&Peertube::DL::Downloaders::kjanime_ch
},
,
);
$ua->set_redirect_ok(0);
my $handled = 0;
my $download_data;
for my $x ( keys %handlers ) {
@ -36,13 +46,23 @@ sub getDownloadDataFromURL {
unless $handled;
die "Download data not defined" unless defined $download_data;
die "Download data not hashref" unless ref($download_data) eq 'HASH';
die "Filename not defined" unless exists $download_data->{filename} && $download_data->{filename};
die "Download url not defined" unless exists $download_data->{url} && defined $download_data->{url};
if ( defined $download_data->{options}{list}
&& $download_data->{options}{list} )
{
say 'Reproduction list detected.';
die 'No url list.'
unless defined $download_data->{urls};
die 'Urls is not an array'
unless ref $download_data->{urls} eq 'ARRAY';
return $download_data;
}
die "Filename not defined" unless exists $download_data->{filename} && $download_data->{filename};
die "Download url not defined" unless exists $download_data->{url} && defined $download_data->{url};
return $download_data;
}
sub generateUA {
my $ua = Peertube::DL::UserAgent->new( timeout => 10 );
my $ua = Peertube::DL::UserAgent->new( timeout => 10, );
$ua->agent('Mozilla/5.0 (X11; Linux x86_64; rv:84.0) Gecko/20100101 Firefox/84.0');
$ua;
}

View File

@ -8,7 +8,11 @@ use feature 'say';
use URI::Encode;
sub uri_encode {
return map { URI::Encode::uri_encode($_) =~ s/ /+/rg } @_;
if (wantarray) {
return map { URI::Encode::uri_encode($_) =~ s/ /+/rg } @_;
} else {
return URI::Encode::uri_encode( $_[0] ) =~ s/ /+/rg;
}
}
sub uri_decode {