abnazhor/Peertube-dl
1
0
Fork 0
forked from sergiotarxz/Peertube-dl
Code Issues Pull Requests Releases Wiki Activity

Sugar for users.

Browse Source
This commit is contained in:
sergiotarxz 2020-12-26 03:52:11 +01:00
parent 26d25a60f6
commit f09cf125e5
Signed by untrusted user who does not match committer: sergiotarxz
GPG Key ID: E5903508B6510AC2
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
README.md
View File

@ -9,4 +9,34 @@ Of course the name means Peertube will be supported someday.
## Supported webpages: ## Supported webpages:
animeflv.net animeflv.net
animeflv.cc animeflv.cc
## Installation
```
sudo apt install perl make libwww-perl liburi-encode-perl libjson-perl
perl Makefile.PL
make
make install
```
## Usage
`peertube-dl <Supported url>`
You can assume the supported url are the ones which have a media player.
## Disclaimer
SEEING THE ADS TO SUPPORT THE JOB OF THE DISTRIBUTORS AND CONTENT CREATORS
ASSOCIATED WITH THESE PAGES IS CURRENTLY NOT SUPPORTED BUT CAN BE OPTIONAL
IN A FUTURE.
THIS SOFTWARE COMES WITH THE HOPE IT WILL BE USEFUL BUT WITHOUT ANY WARRANTY.
A COPY OF THE LICENSE WHICH APPLIES FOR THIS SOFTWARE (AGPLV3) CAN BE FOUND IN
THE LICENSE FILE.
IF YOU RUN ANY PART OF THIS CODE ON A SERVER OR DISTRIBUTE IT YOU MUST CONVEY
THE SOURCE CODE IN A HUMAN READABLE FORM.

2
bin/peertube-dl
View File

@ -19,6 +19,8 @@ my %handlers = (
animeid => { reg => qr/animeid\.to\/streaming\.php\?/, subr => \&Peertube::Downloaders::animeid }, animeid => { reg => qr/animeid\.to\/streaming\.php\?/, subr => \&Peertube::Downloaders::animeid },
); );
die "No url passed" unless @ARGV;
for my $x ( keys %handlers ) { for my $x ( keys %handlers ) {
if ( $response->decoded_content =~ m/$handlers{$x}{reg}/ ) { if ( $response->decoded_content =~ m/$handlers{$x}{reg}/ ) {
eval { $handlers{$x}{subr}->( $ua, $response ); }; eval { $handlers{$x}{subr}->( $ua, $response ); };