SVN: toys/rsget.pl/RSGet: HTTPRequest.pm Main.pm

[sparky]

Author: sparky
Date: Tue Jul 20 18:49:54 2010
New Revision: 11686

Modified:
   toys/rsget.pl/RSGet/HTTPRequest.pm
   toys/rsget.pl/RSGet/Main.pm
Log:
- added http_outdir option


Modified: toys/rsget.pl/RSGet/HTTPRequest.pm
==============================================================================
--- toys/rsget.pl/RSGet/HTTPRequest.pm  (original)
+++ toys/rsget.pl/RSGet/HTTPRequest.pm  Tue Jul 20 18:49:54 2010
@@ -235,6 +235,9 @@
                ADD => "orange",
        );
 
+       my $out_uri = setting( "http_outdir" );
+       my $out_dir = setting( "outdir" );
+
        $main_ids{file} = {};
        $main_ids{uri} = {};
        $r .= '<ul class="flist">';
@@ -259,6 +262,13 @@
                $r .= qq#<li id="$fileid" class="file $color">#;
                my $size = $g->{fsize} ? bignum( $g->{fsize} ) : "?";
                my $fname = $g->{fname} ? sgml( $g->{fname} ) : "???";
+               if ( $out_uri and $cmd eq "DONE" ) {
+                       my $file = "/" . $g->{fname};
+                       $file = "/" . $g->{dir} . $file if $g->{dir};
+                       if ( -r $out_dir . $file ) {
+                               $fname = '<a href="' . sgml( $out_uri . $file ) 
. '">' . $fname . '</a>';
+                       }
+               }
                $r .= qq#<div class="info"><span class="cmd">$cmd</span><span 
class="size">$size bytes</span>$fname</div>#;
 
                $r .= '<div class="tools">' . (join " | ", map 
"<span>$_</span>", @tools) . '</div>';
@@ -353,6 +363,7 @@
        s/&/&amp;/g;
        s/</&lt;/g;
        s/>/&gt;/g;
+       s/"/&quot;/g;
        s#\0#<small>(???)</small>#g;
        return $_;
 }

Modified: toys/rsget.pl/RSGet/Main.pm
==============================================================================
--- toys/rsget.pl/RSGet/Main.pm (original)
+++ toys/rsget.pl/RSGet/Main.pm Tue Jul 20 18:49:54 2010
@@ -34,6 +34,11 @@
                desc => "HTTP password, as plain text, user is 'root'.",
                allowed => qr/\S+/,
        },
+       http_outdir => {
+               desc => "URI to outdir. Useful if you have some http server 
with"
+                       . " access to your downloaded files.",
+               allowed => qr{\S+},
+       },
        verbose => {
                desc => "Verbosity level.",
                default => 0,
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit