SVN: toys/rsget.pl/Get/MegaUpload

[sparky]

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";