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