Adding support to kjanime.
This commit is contained in:
sergiotarxz
parent
fb6585cf60
commit
8800060355
GPG Key ID:
E5903508B6510AC2
@ -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;
|
||||
}
|
||||
|
||||
1
cpanfile
1
cpanfile
@ -6,3 +6,4 @@ requires 'Mojolicious::Lite';
|
||||
requires 'Test::Most';
|
||||
requires 'Test::MockObject';
|
||||
requires 'Mojo::Server::Hypnotoad';
|
||||
requires 'Getopt::Long::Descriptive';
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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;
|
||||
}
|
||||
|
||||
@ -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 {
|
||||
|
||||
Loading…
Reference in New Issue
Block a user