NAME
Win32::IEAutomation::RapidShare - Perl extension for downloading files hosted by RapidShare
SYNOPSIS
use Win32::IEAutomation::RapidShare;
my $ie = Win32::IEAutomation::RapidShare->new(
visible => 0,
debug => 1,
links => \@rsURL,
loopServer => 'yes',
stopIfBroken => 'yes'
);
my $url = 'http://rapidshare.com/users/ISWUF5';
$num = $ie->add_rslinks( url => $url );
$num = $ie->add_rslinks( array => \@uuu );
$num = $ie->add_rslinks( file => "rsList.txt");
$num = $ie->check_rslinks();
$ie->downloadrs();
DESCRIPTION
This module uses RapidShare free user account to batch download files. No interactive user action is involved. If waiting between downloads is annoy, please upgrade to premium users. Time works for you.
METHODS
Win32::IEAutomation::RapidShare->new( )
This is the constructor for new Internet Explorer instance through Win32::OLE. Calling this function will create a perl object which internally contains a automation object for internet explorer. In addition to Win32::IEAutomation's options, RapidShare specific options are supported.
visible
It sets the visibility of Internet Explorer window. The default value is 0, means by default it will be invisible if you don't set to 1.
debug
It prints more information in DOS prompt if it is defined. By default the debug mode is off.
dltool
Specify your favorite download utility. The default tool is lwp-download that comes with LWP. You also can specify utility's option.
links
Pass download URLs as an array reference to constructor.
loopServer
There are bunch of alternative download URLs that are point to different server. If this option is defined, different server's URL will be used for each file download. By exam the onscreen download information - download speed and time, users might figure out which server is fast, and then users could use that particular server later.
preferServer
Specify the download server that users like to use for downloading.
stopIfBroken
RapidShare hosted file has max file size limitation (200M?). Lots of big files are zipped and splitted before uploading to RapidShare. So please always validate all links firstly. If any link is broken, it might not a good idea to continue to download files. You could end up with files that cannot be merged and uncompressed.
$ie->add_rslinks( )
Import download links from different resource. Duplicated links will be removed from download list. This method returns the number of links.
array
Get from a array reference: $ie->add_rslinks( array => \@uuu )
file
Get from a URL list file: $ie->add_rslinks( file => "rsList.txt")
url
Get from a URL whose page has links: $ie->add_rslinks( url => 'http://rapidshare.com/users/ISWUF5' )
$ie->check_rslinks( )
Validate all links by using RapidShare file checking tool. This method returns the number of broken links. if stopIfBroken is defined and some links broken, the script will exit.
$ie->downloadrs( )
Download all links you jus imported.
Sample Script rs.pl to download a single file
use Win32::IEAutomation::RapidShare;
my $ie = Win32::IEAutomation::RapidShare->new(
links =>[$ARGV[0]],
);
$ie->check_rslinks();
$ie->downloadrs();
SEE ALSO
AUTHOR
Jing Kang <kxj@hotmail.com>