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