Author: sparky
Date: Tue Oct 13 16:22:17 2009
New Revision: 10776
Modified:
toys/rsget.pl/README
toys/rsget.pl/RSGet/Main.pm
Log:
- still thinking about multiuser support
Modified: toys/rsget.pl/README
==============================================================================
--- toys/rsget.pl/README (original)
+++ toys/rsget.pl/README Tue Oct 13 16:22:17 2009
@@ -4,6 +4,10 @@
- When continuing partially downloaded data start few kb before the end and
compare old with new.
+Planned features:
+- Multiuser support (may require major changes in the code).
+- XML-RPC (or similar) to allow writing GUIs.
+
Features:
- Perfect for screen session
- Support for many download services
Modified: toys/rsget.pl/RSGet/Main.pm
==============================================================================
--- toys/rsget.pl/RSGet/Main.pm (original)
+++ toys/rsget.pl/RSGet/Main.pm Tue Oct 13 16:22:17 2009
@@ -198,10 +198,11 @@
$user = $1;
$usettings{ $user } = {};
next;
- } elsif ( /^\s*([a-z_]+)\s*=\s*(.*?)\s*$/ ) {
+ } elsif ( my ( $key, $value ) = /^\s*([a-z_]+)\s*=\s*(.*?)\s*$/
) {
die "User not defined, at user config file, line
($line):\n$_\n"
unless $user;
- $usettings{ $user }->{$1} = [ $2, "user config file,
section [$user], line $line" ];
+ $value =~ s/\${([a-zA-Z0-9_]+)}/$ENV{$1} || ""/eg;
+ $usettings{ $user }->{$key} = [ $value, "user config
file, section [$user], line $line" ];
next;
}
warn "Incorrect config line: $_\n";
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
