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

[sparky]

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";