mirror of
https://github.com/vrag86/Mediafire-Api
synced 2026-01-13 13:24:28 -08:00
383 lines
10 KiB
Perl
383 lines
10 KiB
Perl
package Mediafire::Api;
|
|
|
|
use 5.008001;
|
|
use utf8;
|
|
use strict;
|
|
use warnings;
|
|
use open qw(:std :utf8);
|
|
use Carp qw/croak carp/;
|
|
use URI::Escape;
|
|
use LWP::UserAgent;
|
|
use File::Basename;
|
|
use HTTP::Request;
|
|
use JSON::XS;
|
|
|
|
use Mediafire::Api::UploadFile;
|
|
use Mediafire::Api::DownloadFile;
|
|
|
|
our $VERSION = '0.01';
|
|
|
|
############################ PRIVATE METHODS ############################################
|
|
|
|
my $openMainPage = sub {
|
|
# Open main page for set cookies
|
|
my ($self) = @_;
|
|
my $url = 'https://www.mediafire.com';
|
|
my $res = $self->{ua}->get($url);
|
|
my $code = $res->code;
|
|
if ($code ne '200') {
|
|
croak "Wrong response code from url: '$url'. Code: $code";
|
|
}
|
|
return 1;
|
|
};
|
|
|
|
my $getSessionToken = sub {
|
|
my ($self) = @_;
|
|
my $url = 'https://www.mediafire.com/apps/myfiles/?shared=0&multikeys=0';
|
|
|
|
my %headers = (
|
|
'referer' => 'https://www.mediafire.com/',
|
|
'upgrade-insecure-requests' => '1',
|
|
);
|
|
|
|
my $res = $self->{ua}->get($url, %headers);
|
|
my $code = $res->code;
|
|
if ($code ne '200') {
|
|
croak "Can't get session_token by url: '$url'. Code: $code";
|
|
}
|
|
my $body = $res->decoded_content;
|
|
if ($body =~ /token=(.+?)['&"]/) {
|
|
return $1;
|
|
}
|
|
croak "Can't found session_token from response. Url: '$url'";
|
|
};
|
|
|
|
my $getLoginSecurityValue = sub {
|
|
my ($self) = @_;
|
|
my $ua = $self->{ua};
|
|
my $url = 'https://www.mediafire.com/login/';
|
|
|
|
my $res = $ua->get($url);
|
|
my $code = $res->code;
|
|
if ($code ne '200') {
|
|
croak "Can't get login_security_value. Code: $code";
|
|
}
|
|
if ($res->decoded_content =~ /<(input [^<>]*name="security".+?)>/) {
|
|
my $tag = $1;
|
|
if ($tag =~ /value="(.+?)"/) {
|
|
return $1;
|
|
}
|
|
}
|
|
croak "Can't find tag with name 'securyty' or can't get value of tag";
|
|
};
|
|
|
|
########################################################################################
|
|
|
|
sub new {
|
|
my ($class) = @_;
|
|
my $self = {};
|
|
bless $self, $class;
|
|
|
|
$self->{ua} = LWP::UserAgent->new (
|
|
agent => 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.167 Safari/537.36',
|
|
cookie_jar => {},
|
|
);
|
|
$self->{ua}->default_header('accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8');
|
|
$self->{ua}->default_header('accept-encoding' => 'gzip, deflate, br');
|
|
$self->{ua}->default_header('accept-language' => 'ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7');
|
|
|
|
return $self;
|
|
}
|
|
|
|
sub login {
|
|
my ($self, %opt) = @_;
|
|
$self->{login} = $opt{-login} // croak "You must specify '-login' param";
|
|
$self->{password} = $opt{-password} // croak "You must specify '-password' param";
|
|
|
|
$self->$openMainPage();
|
|
|
|
my $security_value = $self->$getLoginSecurityValue();
|
|
|
|
my ($res, $code);
|
|
my $ua = $self->{ua};
|
|
|
|
my $url = 'https://www.mediafire.com/dynamic/client_login/mediafire.php';
|
|
|
|
my %param = (
|
|
security => $security_value,
|
|
login_email => $self->{login},
|
|
login_pass => $self->{password},
|
|
login_remember => 'on',
|
|
);
|
|
|
|
my %headers = (
|
|
'accept-language' => 'ru,en-US;q=0.9,en;q=0.8',
|
|
'cache-control' => 'max-age=0',
|
|
'content-type' => 'application/x-www-form-urlencoded',
|
|
'origin' => 'https://www.mediafire.com',
|
|
'referer' => 'https://www.mediafire.com/login/',
|
|
'upgrade-insecure-requests' => '1',
|
|
);
|
|
|
|
$res = $ua->post($url, \%param, %headers);
|
|
$code = $res->code;
|
|
if ($code ne '200') {
|
|
croak "Wrong response code on login url: '$url'. Code: $code";
|
|
}
|
|
my $cookie = $res->header('set-cookie');
|
|
# If logged in, server set 'session' cookie
|
|
if (not $cookie =~ /session=/) {
|
|
croak "Can't login to mediafire.com";
|
|
}
|
|
|
|
$self->renewSessionToken();
|
|
|
|
return 1;
|
|
}
|
|
|
|
sub renewSessionToken {
|
|
my ($self) = @_;
|
|
|
|
if (not $self->{session_token}) {
|
|
$self->{session_token} = $self->$getSessionToken();
|
|
return 1;
|
|
}
|
|
|
|
my %headers = (
|
|
'referer' => 'https://www.mediafire.com/widgets/notifications.php?event_load=1',
|
|
'x-requested-with' => 'XMLHttpRequest',
|
|
);
|
|
|
|
my $url = 'https://www.mediafire.com/api/1.4/user/renew_session_token.php?r=jrko&session_token=' . $self->{session_token} . '&response_format=json';
|
|
my $res = $self->{ua}->get($url, %headers);
|
|
my $code = $res->code;
|
|
if ($code ne '200') {
|
|
croak "Can't renew session token by url: '$url'. Code: $code";
|
|
}
|
|
|
|
my $json_res = eval {
|
|
decode_json($res->decoded_content);
|
|
};
|
|
if ($@) {
|
|
croak "Can't decode response to json: $res->decoded_content";
|
|
}
|
|
|
|
my $response_result = $json_res->{response}->{result};
|
|
if ($response_result eq 'Success') {
|
|
$self->{session_token} = $json_res->{response}->{session_token};
|
|
return 1;
|
|
}
|
|
croak "Wrong result from response for renewSessionToken. Result: $response_result";
|
|
}
|
|
|
|
sub uploadFile {
|
|
my ($self, %opt) = @_;
|
|
|
|
$self->renewSessionToken();
|
|
my $upload_file = Mediafire::Api::UploadFile->new(
|
|
-ua => $self->{ua},
|
|
-session_token => $self->{session_token},
|
|
);
|
|
my $mediafire_file = $upload_file->uploadFile(%opt);
|
|
return $mediafire_file;
|
|
}
|
|
|
|
sub findFileByName {
|
|
my ($self, %opt) = @_;
|
|
my $filename = $opt{-filename} // croak "You must specify '-filename' param";
|
|
|
|
my @mediafire_files;
|
|
my $url = 'https://www.mediafire.com/api/1.4/folder/search.php';
|
|
my %param = (
|
|
'r' => 'qzpa',
|
|
'search_text' => $filename,
|
|
'version' => '2.5',
|
|
'search_all' => 'yes',
|
|
'folder_key' => '',
|
|
'filter' => 'all',
|
|
'session_token' => $self->{session_token},
|
|
'response_format' => 'json',
|
|
);
|
|
my $full_url = $url . '?' . join('&', map {"$_=" . uri_escape($param{$_})} keys %param);
|
|
my $res = $self->{ua}->get($full_url);
|
|
my $code = $res->code;
|
|
if ($code ne '200') {
|
|
croak "Can't search file. Wrong response code on url '$full_url'. Code: $code";
|
|
}
|
|
|
|
my $json_res = eval {
|
|
decode_json($res->decoded_content);
|
|
};
|
|
if ($@) {
|
|
croak "Can't decode response to json. Response: '" . $res->decoded_content . "'";
|
|
}
|
|
|
|
for my $f (@{$json_res->{response}->{results}}) {
|
|
# If not file
|
|
if ($f->{type} ne 'file') {
|
|
next;
|
|
}
|
|
|
|
# If in Trash folder
|
|
if ($f->{parent_name} eq 'Trash') {
|
|
next;
|
|
}
|
|
|
|
push @mediafire_files,
|
|
Mediafire::Api::File->new(
|
|
-size => $f->{size},
|
|
-key => $f->{quickkey},
|
|
);
|
|
}
|
|
|
|
return \@mediafire_files;
|
|
}
|
|
|
|
sub downloadFile {
|
|
my ($self, %opt) = @_;
|
|
|
|
my $download_file = Mediafire::Api::DownloadFile->new(
|
|
-ua => $self->{ua},
|
|
);
|
|
$download_file->downloadFile(%opt);
|
|
|
|
|
|
}
|
|
|
|
|
|
1;
|
|
|
|
__END__
|
|
=pod
|
|
|
|
=encoding UTF-8
|
|
|
|
=head1 NAME
|
|
|
|
B<Mediafire::Api> - Upload and Download files from mediafire.com file sharing
|
|
|
|
=head1 VERSION
|
|
|
|
version 0.01
|
|
|
|
=head1 SYNOPSYS
|
|
|
|
=head1 METHODS
|
|
|
|
use Mediafire::Api;
|
|
|
|
# Create Mediafire::Api object
|
|
my $mediafire = Mediafire::Api->new();
|
|
|
|
# Login on service
|
|
$mediafire->login(
|
|
-login => $login,
|
|
-password => $password,
|
|
);
|
|
|
|
# Upload file to server
|
|
my $remote_dir = 'myfiles'; # Directory name on server
|
|
my $filename = '/tmp/test_file.zip'; # Full file path to upload
|
|
|
|
# Upload file on server. Return Mediafire::Api::UploadFile object
|
|
my $mediafire_file = $mediafire->uploadFile(
|
|
-file => $filename,
|
|
-path => $remote_dir,
|
|
);
|
|
# Get uploaded file key
|
|
print "Uploaded file key: " . $mediafire_file->getDouploadKey() . "\n";
|
|
|
|
# Find file on mediafire.com by name. Return arrayref to Mediafire::Api::File objects
|
|
my $find_result = $mediafire->findFileByName(
|
|
-filename => 'file_to_find.txt',
|
|
);
|
|
if (@$find_result) {
|
|
print "Found files: " . join(' ', map {$_->name()} @$find_result);
|
|
}
|
|
|
|
# Download file from mediafire.com
|
|
$mediafire->downloadFile(
|
|
-mediafire_file => $mediafire_file,
|
|
-dest_file => './test_file.zip',
|
|
);
|
|
|
|
|
|
|
|
=head1 Upload Files to server
|
|
|
|
|
|
=head2 new()
|
|
|
|
=head2 login(%opt)
|
|
|
|
=head1 Mediafire::Api::File
|
|
|
|
=head2 name
|
|
|
|
Set/Get name of file
|
|
$mediafire_file->name("New name");
|
|
my $name = $mediafire->name;
|
|
|
|
=head2 key
|
|
|
|
Set/Get download key of file
|
|
|
|
$mediafire_file->key("downloadfilekey");
|
|
my $key = $mediafire_file->key;
|
|
|
|
=head2 size
|
|
|
|
Set/Get size of file
|
|
|
|
$mediafire->size(2343);
|
|
my $size = $mediafire->size;
|
|
|
|
=head2 hash
|
|
|
|
Set/Get sha256sum hashsum of file
|
|
|
|
$mediafire_file->hash('dffdf');
|
|
my $hash = $mediafire_file->hash;
|
|
|
|
=head1 Find files on mediafire.com
|
|
|
|
=head2 findFileByName(%opt)
|
|
|
|
Return arrayref with Mediafire::Api::file objects
|
|
|
|
%opt:
|
|
-filename => Name of file to find
|
|
|
|
=head1 Download files from mediafire.com
|
|
|
|
=head2 downloadFile(%opt)
|
|
|
|
Download file from mediafire.com to $dest_file
|
|
|
|
%opt:
|
|
-mediafire_file => Mediafire::Api::File object to download
|
|
-dest_file => Name of file on local disk, in which will be downloaded mediafire file
|
|
|
|
=head1 DEPENDENCE
|
|
|
|
L<LWP::UserAgent>, L<JSON::XS>, L<URI::Escape>, L<Encode>, L<HTTP::Request>, L<Carp>, L<File::Basename>, L<MIME::Detect>, L<HTTP::Request>, L<Crypt::Digest::SHA256>
|
|
|
|
=head1 AUTHORS
|
|
|
|
=over 4
|
|
|
|
=item *
|
|
|
|
Pavel Andryushin <vrag867@gmail.com>
|
|
|
|
=back
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
This software is copyright (c) 2019 by Pavel Andryushin.
|
|
|
|
This is free software; you can redistribute it and/or modify it under
|
|
the same terms as the Perl 5 programming language system itself.
|
|
|
|
=cut
|