SVN: toys/rsget.pl/Get: MediaFire TurboBit

sparky sparky at pld-linux.org
Tue Sep 15 16:17:31 CEST 2009


Author: sparky
Date: Tue Sep 15 16:17:30 2009
New Revision: 10607

Modified:
   toys/rsget.pl/Get/MediaFire
   toys/rsget.pl/Get/TurboBit
Log:
- updated


Modified: toys/rsget.pl/Get/MediaFire
==============================================================================
--- toys/rsget.pl/Get/MediaFire	(original)
+++ toys/rsget.pl/Get/MediaFire	Tue Sep 15 16:17:30 2009
@@ -22,23 +22,14 @@
 	! /cu\('(.*?)','(.*?)','(.*?)'\);/;
 	GET( "/dynamic/download.php?qk=$1&pk=$2&r=$3" );
 
-	! /var sServer = '(.*?)';/;
-	my $server = $1;
-
-	! /var sQk = '(.*?)';/;
-	my $sqk = $1;
-
-	! /var sFile = '(.*?)';/;
-	my $file = $1;
-
-	! /^(var.*var.*var.*)$/m;
+	! /^(var.*var.*var.*)\s*function/m;
 	my $vars = $1;
 	my %vars = map { /var (.*?)='(.*?)'/ } split /;/, $vars;
 
-	! m{href=\\"http://"\s*\+\s*sServer\s*\+'/'\s*\+(.*?)\+\s*'g/' \+ sQk \+ '/' \+ sFile \+ '"> Click here to start download..</a>';};
+	! m{href=\\"http://"\s*\+\s*(.*?)\s*\+'"};
 	my $order = $1;
-	my $code = join "", map { $vars{ $_ } } split /\+/, $order;
-	my $uri = "http://$server/${code}g/$sqk/$file";
+	my $code = join "", map { /'(.*)'/ ? $1 : $vars{ $_ } } split /\s*\+\s*/, $order;
+	my $uri = "http://" . $code;
 
 	$-{_referer} = $-{first_page};
 	DOWNLOAD( $uri );

Modified: toys/rsget.pl/Get/TurboBit
==============================================================================
--- toys/rsget.pl/Get/TurboBit	(original)
+++ toys/rsget.pl/Get/TurboBit	Tue Sep 15 16:17:30 2009
@@ -2,7 +2,7 @@
 
 name: TurboBit
 short: TB
-uri: qr{turbobit\.net/}
+uri: qr{turbobit\.(net|ru)/}
 cookie: tb
 slots: 8
 status: OK 2009-09-13


More information about the pld-cvs-commit mailing list