SVN: toys/rsget.pl/Get/MediaFire

[sparky]

Author: sparky
Date: Thu Oct 22 18:02:11 2009
New Revision: 10821

Modified:
   toys/rsget.pl/Get/MediaFire
Log:
- use new tools; checked


Modified: toys/rsget.pl/Get/MediaFire
==============================================================================
--- toys/rsget.pl/Get/MediaFire	(original)
+++ toys/rsget.pl/Get/MediaFire	Thu Oct 22 18:02:11 2009
@@ -4,12 +4,11 @@
 short: MF
 uri: qr{mediafire\.com/}
 cookie: mf
-slots: 8
-status: OK 2009-08-31
+slots: max
+status: OK 2009-10-22
 
 start:
 	GET( $-{_uri} );
-	$-{first_page} = $-{_referer};
 
 	if ( $-{_referer} =~ /error\.php/ ) {
 		ERROR( "file not found" ) if /Invalid File/;
@@ -20,7 +19,7 @@
 	INFO( name => $1, asize => $2 );
 
 	! /cu\('(.*?)','(.*?)','(.*?)'\);/;
-	GET( "/dynamic/download.php?qk=$1&pk=$2&r=$3" );
+	GET( "/dynamic/download.php?qk=$1&pk=$2&r=$3", keep_referer => 1 );
 
 	! /^(var.*var.*var.*)\s*function/m;
 	my $vars = $1;
@@ -31,7 +30,6 @@
 	my $code = join "", map { /'(.*)'/ ? $1 : $vars{ $_ } } split /\s*\+\s*/, $order;
 	my $uri = "http://" . $code;
 
-	$-{_referer} = $-{first_page};
-	DOWNLOAD( $uri );
+	CLICK_DOWNLOAD( $uri );
 
 # vim:ts=4:sw=4