SOURCES: slimrat-wget.patch (NEW) - pass extra params to wget

[duddits]

Author: duddits                      Date: Sat Jan 24 13:16:09 2009 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- pass extra params to wget

---- Files affected:
SOURCES:
   slimrat-wget.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/slimrat-wget.patch
diff -u /dev/null SOURCES/slimrat-wget.patch:1.1
--- /dev/null	Sat Jan 24 14:16:09 2009
+++ SOURCES/slimrat-wget.patch	Sat Jan 24 14:16:03 2009
@@ -0,0 +1,133 @@
+diff -pruN slimrat-0.9.2.orig/slimrat slimrat-0.9.2/slimrat
+--- slimrat-0.9.2/slimrat	2009-01-13 21:21:00.000000000 +0700
++++ slimrat-patched/slimrat	2009-01-13 21:23:05.000000000 +0700
+@@ -21,7 +21,7 @@
+ use Plugin;
+ use warnings;
+ 
+-my ($list, $link, @links, $check, @failedlinks, @oklinks, $download_to);
++my ($list, $link, @links, $check, @failedlinks, @oklinks, $download_to, $wget_opts);
+ 
+ sub usage { print "
+ SlimRat 
+@@ -36,23 +36,24 @@
+    -l | --list   filename   load links from file (one per line)
+    -c | --check             check links instead of downloading them
+    -t | --to     directory  destination directory (where to download)
+-	
++   -w | --wget   wget options, enclosed in quotes
++    
+ "; exit; }
+ 
+ &usage if(scalar @ARGV==0);
+ 
+ GetOptions (
+-	"help!"		=> \&usage,
+-	"check!"	=> \$check,
+-	"list=s"	=> \$list,
+-	"to=s"		=> \$download_to,
+-	);
+-
++    "help!"     => \&usage,
++    "check!"    => \$check,
++    "list=s"    => \$list,
++    "to=s"      => \$download_to,
++    "wget=s"    => \$wget_opts,
++    );
+ if($list){ # load links from file
+-	if(open (LIST, $list)){
+-		m/^\s*(\S+)\s*/ and push @links, $1 while(<LIST>);
+-		close LIST;
+-	} else {warn "Can't open '$list'\n";}
++    if(open (LIST, $list)){
++        m/^\s*(\S+)\s*/ and push @links, $1 while(<LIST>);
++        close LIST;
++    } else {warn "Can't open '$list'\n";}
+ }
+ 
+ push @links, $link while($link = shift); # read links from command line
+@@ -63,45 +64,51 @@
+ 
+ if($check){ check($_) foreach @links;}
+ else {
+-	download($_) foreach @links;
+-	if(scalar @oklinks){
+-		print GREEN, "\nDOWNLOADED:\n", RESET;
+-		print $_,"\n" foreach @oklinks;
+-		print "to '",YELLOW, $download_to, RESET, "'\n" if ($download_to);
+-	}
+-	if(scalar @failedlinks){
+-		print RED, "\nFAILED:\n", RESET;
+-		print $_,"\n" foreach @failedlinks;
+-	}
++    download($_) foreach @links;
++    if(scalar @oklinks){
++        print GREEN, "\nDOWNLOADED:\n", RESET;
++        print $_,"\n" foreach @oklinks;
++        print "to '",YELLOW, $download_to, RESET, "'\n" if ($download_to);
++    }
++    if(scalar @failedlinks){
++        print RED, "\nFAILED:\n", RESET;
++        print $_,"\n" foreach @failedlinks;
++    }
+ }
+ 
+ 
+ sub check{
+-	$link = shift;
+-	my $pluginname = Plugin::get_name($link);
+-	my $check = eval $pluginname."::check('$link')";
+-	$check ||=0;
+-	if($check>0) {print GREEN, "[OK]", RESET;}
+-	elsif($check<0) {print RED, "[DEAD]", RESET; $return++}
+-	else {print "[?]";}
+-	print "\t", YELLOW, $link, RESET, " (", $pluginname, ")\n";
++    $link = shift;
++    my $pluginname = Plugin::get_name($link);
++    my $check = eval $pluginname."::check('$link')";
++    $check ||=0;
++    if($check>0) {print GREEN, "[OK]", RESET;}
++    elsif($check<0) {print RED, "[DEAD]", RESET; $return++}
++    else {print "[?]";}
++    print "\t", YELLOW, $link, RESET, " (", $pluginname, ")\n";
+ }
++
+ sub download{
+-	$link = shift;
+-	my $pluginname = Plugin::get_name($link);
+-	print "\nDownloading '", YELLOW, $link, RESET, "' using '", YELLOW, $pluginname, RESET, "' plugin.\n";
+-	if(my $fileurl = eval $pluginname."::download('$link')"){ # rename download to get_link????
+-		if(!system("wget ".($download_to?"-P '$download_to' ":"")."'$fileurl'")){ #success
+-			print GREEN "OK", RESET, "\n\n";
+-			push @oklinks, $link;
+-		} else { # wget failed
+-			print RED "Download failed\n\n";
+-			push @failedlinks, $link;
+-		}
+-	} else { # get fileurl failed
+-		print RED "Plugin failed\n\n";
+-		push @failedlinks, $link;
+-	}
++    $link = shift;
++    my $pluginname = Plugin::get_name($link);
++    print "\nDownloading '", YELLOW, $link, RESET, "' using '", YELLOW, $pluginname, RESET, "' plugin.\n";
++    if(my $fileurl = eval $pluginname."::download('$link')"){ # rename download to get_link????
++        my $wget = 'wget ' .
++                   ($wget_opts ? qq($wget_opts ) : '') .
++                   ($download_to? "-P '$download_to' " : "") .
++                   "'$fileurl'";
++
++        if(!system $wget){ #success
++            print GREEN "OK", RESET, "\n\n";
++            push @oklinks, $link;
++        } else { # wget failed
++            print RED "Download failed\n\n";
++            push @failedlinks, $link;
++        }
++    } else { # get fileurl failed
++        print RED "Plugin failed\n\n";
++        push @failedlinks, $link;
++    }
+ }
+ 
+ 
================================================================