Author: sparky
Date: Fri Apr 30 16:47:19 2010
New Revision: 11355
Modified:
toys/rsget.pl/Get/MegaUpload
Log:
- allow lower-case ID
Modified: toys/rsget.pl/Get/MegaUpload
==============================================================================
--- toys/rsget.pl/Get/MegaUpload (original)
+++ toys/rsget.pl/Get/MegaUpload Fri Apr 30 16:47:19 2010
@@ -35,7 +35,8 @@
}
unify:
- my ($id) = /d=([A-Z0-9]*)/;
+ my ($id) = /d=([A-Z0-9]*)/i;
+ $id = uc $id;
my $host = "megaupload";
$host = "megaporn" if
m{^http://(?:www\.)?(?:megarotic|sexuploader|megaporn)};
return "http://$host.com/?d=$id";;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
