SVN: toys/rsget.pl/Get/MegaUpload
sparky
sparky at pld-linux.org
Sun Jan 24 03:37:57 CET 2010
Author: sparky
Date: Sun Jan 24 03:37:56 2010
New Revision: 11120
Modified:
toys/rsget.pl/Get/MegaUpload
Log:
- fix unify
Modified: toys/rsget.pl/Get/MegaUpload
==============================================================================
--- toys/rsget.pl/Get/MegaUpload (original)
+++ toys/rsget.pl/Get/MegaUpload Sun Jan 24 03:37:56 2010
@@ -37,7 +37,7 @@
unify:
my ($id) = /d=([A-Z0-9]*)/;
my $host = "megaupload";
- $host = "megaporn" if m{^http://?:(www\.)?(?:megarotic|sexuploader)};
+ $host = "megaporn" if m{^http://(?:www\.)?(?:megarotic|sexuploader|megaporn)};
return "http://$host.com/?d=$id";
start:
More information about the pld-cvs-commit
mailing list