SVN: toys/rsget.pl/Get/SendSpace

sparky sparky at pld-linux.org
Sat Jun 5 02:05:11 CEST 2010


Author: sparky
Date: Sat Jun  5 02:05:12 2010
New Revision: 11533

Modified:
   toys/rsget.pl/Get/SendSpace
Log:
- updated / fixed


Modified: toys/rsget.pl/Get/SendSpace
==============================================================================
--- toys/rsget.pl/Get/SendSpace	(original)
+++ toys/rsget.pl/Get/SendSpace	Sat Jun  5 02:05:12 2010
@@ -11,7 +11,7 @@
 tos: "http://sendspace.com/terms.html"
 uri: qr{sendspace\.com/file/}
 cookie: ss
-status: BROKEN 2010-06-04
+status: OK 2010-06-05
 
 start:
 	GET( $-{_uri} );
@@ -19,7 +19,7 @@
 	ERROR( "file not found" )
 		if /Sorry, the file you requested is not available/;
 
-	! m#<b>Name:</b>\s*(.*?)\s*<br><b>Size:</b>\s*(\d+MB)\s*<br>#;
+	! m#<b>Name:</b>\s*(.*?)\s*<br><b>Size:</b>\s*([\d\.]+MB)\s*<br>#;
 	INFO( name => $1, asize => $2 );
 
 	! my $form = $self->form( match => { body => qr/"download"/ } );


More information about the pld-cvs-commit mailing list