Author: sparky Date: Sun Dec 13 16:02:48 2009 New Revision: 11039 Modified: toys/rsget.pl/Get/MediaFire Log: - updated for web page changes - limit uris to files
Modified: toys/rsget.pl/Get/MediaFire ============================================================================== --- toys/rsget.pl/Get/MediaFire (original) +++ toys/rsget.pl/Get/MediaFire Sun Dec 13 16:02:48 2009 @@ -9,26 +9,27 @@ short: MF web: "http://www.mediafire.com/"; tos: "http://www.mediafire.com/terms_of_service.php"; -uri: qr{mediafire\.com/} +uri: qr{mediafire\.com/file/[a-z0-9]+} cookie: mf slots: max -status: OK 2009-10-22 +status: OK 2009-12-13 start: GET( $-{_uri} ); +stage_init: if ( $-{_referer} =~ /error\.php/ ) { ERROR( "file not found" ) if /Invalid File/; ERROR( "some error" ); } - ! m{You requested: (.*?) \(($STDSIZE)\)</div>}; + ! m{<div class="download_file_title".*> (.+?) <div.*>\(($STDSIZE)\)</div> </div>}o; INFO( name => $1, asize => $2 ); ! /cu\('(.*?)','(.*?)','(.*?)'\);/; GET( "/dynamic/download.php?qk=$1&pk=$2&r=$3", keep_referer => 1 ); - ! /^(var.*var.*var.*)\s*function/m; + ! /^\s*(var.*var.*var.*)\s*function/m; my $vars = $1; my %vars = map { /var (.*?)='(.*?)'/ } split /;/, $vars; @@ -37,6 +38,8 @@ my $code = join "", map { /'(.*)'/ ? $1 : $vars{ $_ } } split /\s*\+\s*/, $order; my $uri = "http://"; . $code; - CLICK_DOWNLOAD( $uri ); + DOWNLOAD( $uri ); + + GOTO stage_init; # vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
