SVN: toys/rsget.pl/Get/DepositFiles

[sparky]

Author: sparky
Date: Sun Sep 13 13:24:27 2009
New Revision: 10593

Modified:
   toys/rsget.pl/Get/DepositFiles
Log:
- allow gigabyte-sized files


Modified: toys/rsget.pl/Get/DepositFiles
==============================================================================
--- toys/rsget.pl/Get/DepositFiles      (original)
+++ toys/rsget.pl/Get/DepositFiles      Sun Sep 13 13:24:27 2009
@@ -10,7 +10,7 @@
 
        ERROR( "file not found" ) if /Such file does not exist /;
 
-       ! m{<div class="info">.*?<b title="(.*?)">.*?</b>\s*<span 
.*?>.*?<b>(\d+(\.\d+)?)&nbsp;([KM]B)</b></span>}s;
+       ! m{<div class="info">.*?<b title="(.*?)">.*?</b>\s*<span 
.*?>.*?<b>(\d+(\.\d+)?)&nbsp;([KMG]B)</b></span>}s;
        my $name = $1;
        my $size = "$2$4";
        INFO( iname => $name, asize => $size );
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit