SVN: toys/rsget.pl/Get/UploadingCom

[sparky]

Author: sparky
Date: Sat Dec 12 00:02:53 2009
New Revision: 11030

Modified:
   toys/rsget.pl/Get/UploadingCom
Log:
- updated for page changes
- force lang to english


Modified: toys/rsget.pl/Get/UploadingCom
==============================================================================
--- toys/rsget.pl/Get/UploadingCom	(original)
+++ toys/rsget.pl/Get/UploadingCom	Sat Dec 12 00:02:53 2009
@@ -10,24 +10,26 @@
 web: "http://uploading.com/"
 tos: "http://uploading.com/terms/"
 uri: qr{uploading\.com/(../)?files/(get/)?[A-Za-z0-9]{8}}
-cookie: uc
-status: OK 2009-10-22
+cookie: !uc
+status: OK 2009-12-11
 
 unify:
 	return "http://uploading.com/files/$1/"
 		if m{uploading\.com/(?:../)?files/(?:get/)?([A-Za-z0-9]{8})/?};
 
 start:
+	COOKIE( [ (qw(.uploading.com TRUE / FALSE), time() + 43200, 'lang', 1 ) ] );
+
 	GET( $-{_uri} );
 
 	RESTART( irand( 60, 300 ), "temporarily unavailable" )
 		if m{<h1>Service Not Available</h1>};
 	ERROR( "file not found" ) if /Requested file not found/;
 
-	! m{<h2 style=".*?">File download</h2><br/>\s*<h2>(.*?)</h2><br/>\s*File size: <b>($STDSIZE)</b>};
+	! m{.*<h2>(.+?)</h2><br/>\s*File size: <b>($STDSIZE)</b>}so;
 	my $name = $1; my $size = $2;
 	if ( $name =~ /\.\..{1,5}$/ ) {
-		! m{<title>Download (.*?) for free on uploading\.com</title>};
+		! m{<title>Download (.+?) for free on uploading\.com</title>};
 		$name = $1;
 	}
 	INFO( name => $name, asize => $size );