Some additions.

Author: tim.besard

ChangeLog

@@ -1,3 +1,8 @@
+2009-08-03 Tim Besard  <tim-dot-besard-at-gmail-dot-com>
+
+    * proxy: more work on the proxy manager.
+
+
 2009-08-09  Přemek Vyhnal  <premysl.vyhnal gmail com>
 
     * plugins: zSHARE added

proxies

@@ -0,0 +1,20 @@
+# Sample proxy list for slimrat
+#
+# Should reside in ~/.slimrat/proxies when relying on automatic loading.
+
+# The full proxy specification consists out of two parts:
+#   - the URI
+#   - the protocol specification
+http://a.b.c.d:1234	http,ftp
+
+# When the protocols are omitted, by default the "http" protocol is used
+http://a.b.c.d:1234
+
+# Similarly, when not specifying the type of proxy in the URI, slimrat
+# will use it as an HTTP proxy
+a.b.c.d:1234	http,ftp
+
+# SOCKS is supported too (in combination with e.g. TOR), but needs
+# the cpan module LWP::Protocol::socks
+socks://localhost:9050	http,https
+

queue

@@ -0,0 +1,8 @@
+# Sample queue file for slimrat
+#
+# This file contains URLs to be loaded by command line parameter using the
+# slimrat CLI client.
+
+# An entry consists out of a single part: the URL
+http://my-download.site.com/download/file_1.tar
+

src/Proxy.pm

@@ -206,9 +206,12 @@ sub file_read() {
 		next if /^\s*$/;	# Skip blank lines
 
 		# Process a valid proxy
-		if ($_ =~ m/^\s*(\S+)\t(\S+)\s*/) {
-			my $link = $1;
-			my $protocols_string = $2;
+		if ($_ =~ m/^\s*(\S+)\t*(\S*)\s*/) {
+			my $link = $1;			
+			my $protocols_string = $2 || "http";
+			if ($link !~ m/^\S+:\/\//) {
+				$link = 'http://' . $link;
+			}
 			my @protocols = [split(/,/, $protocols_string)];
 
 			my $proxy = ProxyData->new();