Author: sparky
Date: Thu Mar 11 01:14:33 2010
New Revision: 11236
Modified:
toys/rsget.pl/RSGet/HTTPRequest.pm
Log:
- added list processor callers
Modified: toys/rsget.pl/RSGet/HTTPRequest.pm
==============================================================================
--- toys/rsget.pl/RSGet/HTTPRequest.pm (original)
+++ toys/rsget.pl/RSGet/HTTPRequest.pm Thu Mar 11 01:14:33 2010
@@ -214,6 +214,14 @@
sub f_dllist
{
my $r = '<fieldset id="f_dllist"><legend>download list</legend>';
+
+ $main_ids{list} = { 0 => 1 };
+ $r .= '<div id="list_0">';
+
+ my @tools = sort keys %RSGet::FileList::processors;
+
+ $r .= '<div class="tools">' . (join " | ", map "<span>$_</span>",
@tools) .
+ '</div></div>';
my %cmd_to_color = (
DONE => "blue",
@@ -416,6 +424,8 @@
return;
}
RSGet::FileList::save( $data, @save );
+ } elsif ( $grp eq "list" ) {
+ RSGet::FileList::process( $cmd );
} else {
warn "Invalid command group: $cmd, $grp, $exec\n";
return;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
