Author: sparky
Date: Tue Jul 27 22:18:28 2010
New Revision: 11716
Modified:
toys/rsget.pl/Get/BadongoCom
toys/rsget.pl/Get/EasyShare
toys/rsget.pl/Get/FileFactory
toys/rsget.pl/Get/FileServe
toys/rsget.pl/Get/FreakShare
toys/rsget.pl/Get/GigaSize
toys/rsget.pl/Get/HotFile
toys/rsget.pl/Get/MegaShares
toys/rsget.pl/Get/NetLoad
toys/rsget.pl/Get/PrzeklejPL
toys/rsget.pl/Get/RapidShark
toys/rsget.pl/Get/SharePlace
toys/rsget.pl/Get/StorageTo
toys/rsget.pl/Get/UploadedTo
toys/rsget.pl/Get/ZippyShare
toys/rsget.pl/Get/zSHARE
Log:
- compile once regexps containing $STDSIZE
Modified: toys/rsget.pl/Get/BadongoCom
==============================================================================
--- toys/rsget.pl/Get/BadongoCom (original)
+++ toys/rsget.pl/Get/BadongoCom Tue Jul 27 22:18:28 2010
@@ -33,7 +33,7 @@
my $part = $1;
! m{<div class="finfo">(.*?)</div>};
my $name = $1;
- ! m{<div class="ffileinfo">Views : \d+ \| Filesize :
($STDSIZE)</div>};
+ ! m{<div class="ffileinfo">Views : \d+ \| Filesize :
($STDSIZE)</div>}o;
my $size = $1;
if ( $part ) {
INFO( name => "$name.$part", quality => "part of $1" );
Modified: toys/rsget.pl/Get/EasyShare
==============================================================================
--- toys/rsget.pl/Get/EasyShare (original)
+++ toys/rsget.pl/Get/EasyShare Tue Jul 27 22:18:28 2010
@@ -21,7 +21,7 @@
ERROR( "file not found" ) if /File not found/;
ERROR( "file removed" ) if /Requested file is deleted/;
- ! m{<p class="pt15 pb0 px18 txtgray family2 c">You are
requesting\s+(.*?) \(($STDSIZE)\)</p>};
+ ! m{<p class="pt15 pb0 px18 txtgray family2 c">You are
requesting\s+(.*?) \(($STDSIZE)\)</p>}o;
INFO( name => $1, asize => $2 );
RESTART( - irand( 60, 300 ), "free limit reached" )
Modified: toys/rsget.pl/Get/FileFactory
==============================================================================
--- toys/rsget.pl/Get/FileFactory (original)
+++ toys/rsget.pl/Get/FileFactory Tue Jul 27 22:18:28 2010
@@ -22,7 +22,7 @@
ERROR( "file not found" ) if /File Not Found|This file has been
deleted/;
! m{<title>(.*?) - download now for free};
my $name = $1;
- ! m{<div id="info" class="metadata">\s*<span>($STDSIZE) file uploaded}s;
+ ! m{<div id="info" class="metadata">\s*<span>($STDSIZE) file
uploaded}so;
my $size = $1;
INFO( name => $name, asize => $size );
Modified: toys/rsget.pl/Get/FileServe
==============================================================================
--- toys/rsget.pl/Get/FileServe (original)
+++ toys/rsget.pl/Get/FileServe Tue Jul 27 22:18:28 2010
@@ -25,7 +25,7 @@
! m#<h1>(.+?)<br/></h1>#;
my $fname = $1;
- ! m#<span><strong>($STDSIZE)</strong> \| Uploaded on #;
+ ! m#<span><strong>($STDSIZE)</strong> \| Uploaded on #o;
INFO( name => $fname, asize => $1 );
CLICK( $-{_uri}, post => { downloadLink => "wait" } );
Modified: toys/rsget.pl/Get/FreakShare
==============================================================================
--- toys/rsget.pl/Get/FreakShare (original)
+++ toys/rsget.pl/Get/FreakShare Tue Jul 27 22:18:28 2010
@@ -23,7 +23,7 @@
RESTART( - irand( 60, 300 ), "free limit reached" )
if /Sorry, your Traffic is used up for today/;
- ! m#<h1 class="box_heading" style="text-align:center;">(.*?) -
($STDSIZE)yte</h1>#;
+ ! m#<h1 class="box_heading" style="text-align:center;">(.*?) -
($STDSIZE)yte</h1>#o;
INFO( name => $1, asize => $2 );
! $-{form} = $self->form( match => { body => qr/"Free Download"/ } );
Modified: toys/rsget.pl/Get/GigaSize
==============================================================================
--- toys/rsget.pl/Get/GigaSize (original)
+++ toys/rsget.pl/Get/GigaSize Tue Jul 27 22:18:28 2010
@@ -18,7 +18,7 @@
ERROR( "file not found" ) if /The file\s+has been deleted/;
- !
m{<strong>Name</strong>:\s*<b>(.*?)</b></p>\s*<p>Size:\s*<span>($STDSIZE)</span>};
+ !
m{<strong>Name</strong>:\s*<b>(.*?)</b></p>\s*<p>Size:\s*<span>($STDSIZE)</span>}o;
my ( $name, $size ) = ( $1, $2 );
$name =~ s/\.\.\.$/\0/;
INFO( iname => $name, asize => $size );
Modified: toys/rsget.pl/Get/HotFile
==============================================================================
--- toys/rsget.pl/Get/HotFile (original)
+++ toys/rsget.pl/Get/HotFile Tue Jul 27 22:18:28 2010
@@ -24,7 +24,7 @@
ERROR( "file not found" ) unless length $_;
ERROR( "file not found" ) if /This file is either removed|File is
removed/;
- ! m{<strong>Downloading:</strong> (.*?) <span>\|</span>
<strong>($STDSIZE)</strong>};
+ ! m{<strong>Downloading:</strong> (.*?) <span>\|</span>
<strong>($STDSIZE)</strong>}o;
INFO( name => $1, asize => $2 );
MULTI() if /You are currently downloading/;
Modified: toys/rsget.pl/Get/MegaShares
==============================================================================
--- toys/rsget.pl/Get/MegaShares (original)
+++ toys/rsget.pl/Get/MegaShares Tue Jul 27 22:18:28 2010
@@ -28,7 +28,7 @@
my $fnf = join "|",
"Link was removed", "Invalid link", "Could not download file";
ERROR( "file not found" )
- if m{<dd class="red">([^<]|<br>)*($fnf)([^<]|<br>)*</dd>};
+ if m{<dd class="red">([^<]|<br>)*($fnf)([^<]|<br>)*</dd>}o;
ERROR( "file not found" )
if m{<dd class="red">Link has been deleted};
MULTI()
Modified: toys/rsget.pl/Get/NetLoad
==============================================================================
--- toys/rsget.pl/Get/NetLoad (original)
+++ toys/rsget.pl/Get/NetLoad Tue Jul 27 22:18:28 2010
@@ -26,7 +26,7 @@
ERROR( "file not found or something" )
if />Code: ER_NFF_/;
- m#<div class="dl_first_filename">\s*(.+?)<span.*?>,
($STDSIZE)</span></div>#s;
+ m#<div class="dl_first_filename">\s*(.+?)<span.*?>,
($STDSIZE)</span></div>#so;
INFO( name => $1, asize => $2 );
RESTART( 60, "Not prepared" )
Modified: toys/rsget.pl/Get/PrzeklejPL
==============================================================================
--- toys/rsget.pl/Get/PrzeklejPL (original)
+++ toys/rsget.pl/Get/PrzeklejPL Tue Jul 27 22:18:28 2010
@@ -19,7 +19,7 @@
ERROR( "file not found" )
if /Plik nie istnieje|Plik został usunięty/;
- ! m{<h1><a href="(/download/.*?)" title="Pobierz
plik">(.*?)</a></h1><span class="size".*?> \(($STDSIZE)\)</span>};
+ ! m{<h1><a href="(/download/.*?)" title="Pobierz
plik">(.*?)</a></h1><span class="size".*?> \(($STDSIZE)\)</span>}o;
my ( $file_uri, $name, $size ) = ( $1, $2, $3 );
$name =~ s/(.*) \./$1_www.przeklej.pl./
Modified: toys/rsget.pl/Get/RapidShark
==============================================================================
--- toys/rsget.pl/Get/RapidShark (original)
+++ toys/rsget.pl/Get/RapidShark Tue Jul 27 22:18:28 2010
@@ -27,7 +27,7 @@
ERROR( "file not found" )
if m{<font style="font-size:12px;">Probujesz otworzyć adres
<font color="red">.*//</font> \(\)</font>};
- ! m{<font style="font-size:12px;">Probujesz otworzyć adres <font
color="red">.*/(.*?)</font> \(($STDSIZE)\)</font>};
+ ! m{<font style="font-size:12px;">Probujesz otworzyć adres <font
color="red">.*/(.*?)</font> \(($STDSIZE)\)</font>}o;
INFO( name => $1, asize => $2 );
! my $form = $self->form( match => { body => qr/"method_free"/ } );
Modified: toys/rsget.pl/Get/SharePlace
==============================================================================
--- toys/rsget.pl/Get/SharePlace (original)
+++ toys/rsget.pl/Get/SharePlace Tue Jul 27 22:18:28 2010
@@ -24,7 +24,7 @@
ERROR( "file not found" )
if /Your requested file is not found/;
- !
m#Filename:</font></b>\s*(.*?)<b><br>\s*Filesize:</font></b>\s*($STDSIZE)<b>#s;
+ !
m#Filename:</font></b>\s*(.*?)<b><br>\s*Filesize:</font></b>\s*($STDSIZE)<b>#so;
INFO( name => $1, asize => $2 );
RESTART( - irand( 60, 300 ), "limit reached" )
Modified: toys/rsget.pl/Get/StorageTo
==============================================================================
--- toys/rsget.pl/Get/StorageTo (original)
+++ toys/rsget.pl/Get/StorageTo Tue Jul 27 22:18:28 2010
@@ -15,7 +15,7 @@
GET( $-{_uri} );
ERROR( "file not found" ) if /File not found\./;
- ! m{<span class="orange">.*?:</span> (.*?) <span
class="light">\(($STDSIZE)\)</span>};
+ ! m{<span class="orange">.*?:</span> (.*?) <span
class="light">\(($STDSIZE)\)</span>}o;
INFO( name => $1, asize => $2 );
!
/onclick='javascript:startcountdown\("(.*?)",\s*"(?:.*?)",\s*"(.*?)"\);'/;
Modified: toys/rsget.pl/Get/UploadedTo
==============================================================================
--- toys/rsget.pl/Get/UploadedTo (original)
+++ toys/rsget.pl/Get/UploadedTo Tue Jul 27 22:18:28 2010
@@ -37,7 +37,7 @@
! m{<tr><td style="padding-left:4px;">Filetype:
</td><td>(.*?)</td></tr>};
$name .= $1;
}
- ! m{<tr><td style="padding-left:4px;">Filesize:
</td><td>\s*($STDSIZE)\s*</td></tr>};
+ ! m{<tr><td style="padding-left:4px;">Filesize:
</td><td>\s*($STDSIZE)\s*</td></tr>}o;
INFO( name => $name, asize => $1 );
! $-{form} = $self->form( name => "download_form" );
Modified: toys/rsget.pl/Get/ZippyShare
==============================================================================
--- toys/rsget.pl/Get/ZippyShare (original)
+++ toys/rsget.pl/Get/ZippyShare Tue Jul 27 22:18:28 2010
@@ -24,7 +24,7 @@
! m#<font.*?>Name:\s*</font>\s*<font.*?>(.+?)</font><#;
my $name = $1;
- ! m#<font.*?>Size:\s*</font>\s*<font.*?>($STDSIZE)</font><#;
+ ! m#<font.*?>Size:\s*</font>\s*<font.*?>($STDSIZE)</font><#o;
INFO( name => $name, asize => $1 );
! m#var ziptime = (\d+);#s;
Modified: toys/rsget.pl/Get/zSHARE
==============================================================================
--- toys/rsget.pl/Get/zSHARE (original)
+++ toys/rsget.pl/Get/zSHARE Tue Jul 27 22:18:28 2010
@@ -25,7 +25,7 @@
! m{>File Name:\s*<font.*?>(.*?)</font></td>}s;
my $name = $1;
- ! m{>File Size:\s*<font.*?>($STDSIZE)</font></td>}s;
+ ! m{>File Size:\s*<font.*?>($STDSIZE)</font></td>}so;
INFO( name => $name, asize => $1 );
! my $form = $self->form( name => "form1" );
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
