SVN: toys/rsget.pl/Get/UploadedTo

[sparky]

Author: sparky
Date: Sun Dec 13 01:48:03 2009
New Revision: 11035

Modified:
   toys/rsget.pl/Get/UploadedTo
Log:
- limit uris to files
- unify uris
- mark very long file names as incomplete


Modified: toys/rsget.pl/Get/UploadedTo
==============================================================================
--- toys/rsget.pl/Get/UploadedTo        (original)
+++ toys/rsget.pl/Get/UploadedTo        Sun Dec 13 01:48:03 2009
@@ -9,9 +9,13 @@
 short: UT
 web: "http://uploaded.to/";
 tos: "http://uploaded.to/agb";
-uri: qr{uploaded\.to/}
-uri: qr{ul\.to/}
-status: OK 2009-10-22
+uri: qr{uploaded\.to/(?:file/|\?id=)[0-9a-z]{6}}
+uri: qr{ul\.to/[0-9a-z]{6}}
+status: OK 2009-12-12
+
+unify:
+       return "http://uploaded.to/file/$1"; if
+               m{ul\.to/([0-9a-z]{6})} or 
m{uploaded\.to/(?:file/|\?id=)([0-9a-z]{6})};
 
 start:
        GET( $-{_uri} );
@@ -29,6 +33,7 @@
        if ( length $name >= 60 ) {
                ! m{<tr><td style="padding-left:4px;">Filename: 
&nbsp;</td><td><b>\s+(.*?)\s+</b></td></tr>}s;
                $name = $1;
+               $name =~ s/\.\.\.$/\0/;
                ! m{<tr><td style="padding-left:4px;">Filetype: 
&nbsp;</td><td>(.*?)</td></tr>};
                $name .= $1;
        }
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit