SVN: toys/rsget.pl/Get: BadongoCom EasyShare FileFactory FileServe FreakShare GigaSize HotFile MegaS...

sparky sparky at pld-linux.org
Tue Jul 27 22:18:28 CEST 2010 

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: &nbsp;</td><td>(.*?)</td></tr>};
 		$name .= $1;
 	}
-	! m{<tr><td style="padding-left:4px;">Filesize: &nbsp;</td><td>\s*($STDSIZE)\s*</td></tr>};
+	! m{<tr><td style="padding-left:4px;">Filesize: &nbsp;</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" );

More information about the pld-cvs-commit mailing list