NAME
Mediafire::Api - Upload and Download files from mediafire.com file sharing
VERSION
version 0.01
SYNOPSYS
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',
);
Upload Files to server
new()
login(%opt)
Mediafire::Api::File
name
Set/Get name of file $mediafire_file->name("New name"); my $name = $mediafire->name;
key
Set/Get download key of file
$mediafire_file->key("downloadfilekey");
my $key = $mediafire_file->key;
size
Set/Get size of file
$mediafire->size(2343);
my $size = $mediafire->size;
hash
Set/Get sha256sum hashsum of file
$mediafire_file->hash('dffdf');
my $hash = $mediafire_file->hash;
Find files on mediafire.com
findFileByName(%opt)
Return arrayref with Mediafire::Api::file objects
%opt:
-filename => Name of file to find
Download files from mediafire.com
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
DEPENDENCE
LWP::UserAgent, JSON::XS, URI::Escape, Encode, HTTP::Request, Carp, File::Basename, MIME::Detect, HTTP::Request, Crypt::Digest::SHA256
AUTHORS
Pavel Andryushin <vrag867@gmail.com>
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.