Ark/Mediafire-Api
1
0
Fork 0
mirror of https://github.com/vrag86/Mediafire-Api synced 2026-01-13 13:24:28 -08:00
Code Issues Packages Projects Releases Wiki Activity

Added dowmloadFile() method

Browse Source
This commit is contained in:
vrag
2019-05-23 12:30:01 +03:00
parent e2b970339d
commit e3a714c056
6 changed files with 177 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/Mediafire/Api/UploadFile.pm
View File

@@ -8,22 +8,17 @@ use open qw(:std :utf8);
use Carp qw/croak carp/;
use URI::Escape;
use LWP::UserAgent;
use LWP::ConnCache;
use File::Basename;
use HTTP::Request;
use JSON::XS;
use MIME::Detect;
use Crypt::Digest::SHA256 qw/sha256_hex/;
use Time::HiRes qw/gettimeofday/;
use IO::Socket::SSL;
use Mediafire::Api::File;
use Data::Printer;
our $VERSION = '0.01';
my $DEFAULT_BUFF_SIZE = 1048576;
############################ PRIVATE METHODS ############################################
@@ -82,8 +77,6 @@ $checkUploadFile = sub {
croak "Can't checkUploadFile. Storage limit exceeded";
}
p $response;
my $file_key = $response->{preemptive_quickkey} // $response->{duplicate_quickkey};
$self->{file}->key($file_key);
$self->{upload_url} = $response->{upload_url}->{resumable};
@@ -256,7 +249,7 @@ sub new {
my $self = {};
$self->{ua} = $opt{-ua} // croak "You must specify param '-ua' for method new";
$self->{session_token} = $opt{-session_token} // croak "You must specify '-session_token' param";
$self->{buff_size} = $opt{-buff_zize} // $DEFAULT_BUFF_SIZE;
$self->{buff_size} = $opt{-buff_size} // $DEFAULT_BUFF_SIZE;
bless $self, $class;
return $self;
}