SVN: toys/rsget.pl/Get/UploadedTo

[sparky]

Author: sparky
Date: Fri Sep 11 19:08:41 2009
New Revision: 10572

Modified:
   toys/rsget.pl/Get/UploadedTo
Log:
- find better name if the one in <title> is shortened


Modified: toys/rsget.pl/Get/UploadedTo
==============================================================================
--- toys/rsget.pl/Get/UploadedTo        (original)
+++ toys/rsget.pl/Get/UploadedTo        Fri Sep 11 19:08:41 2009
@@ -18,8 +18,14 @@
 
        ! m{<title>(.*?) \.\.\. at uploaded\.to - };
        my $name = $1;
+       if ( length $name >= 60 ) {
+               ! m{<tr><td style="padding-left:4px;">Filename: 
&nbsp;</td><td><b>\s+(.*?)\s+</b></td></tr>}s;
+               $name = $1;
+               ! m{<tr><td style="padding-left:4px;">Filetype: 
&nbsp;</td><td>(.*?)</td></tr>};
+               $name .= $1;
+       }
        ! m{<tr><td style="padding-left:4px;">Filesize: 
&nbsp;</td><td>\s*(\d+\.\d+ [KM]B)\s*</td></tr>};
-       INFO( name => $name, size => $1 );
+       INFO( name => $name, asize => $1 );
 
 
        ! m#<form name="download_form" method="post" action="(.*)">#;
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit