From d1cf05f126174fd6a36f26faf17823b2baf6e86d Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Fri, 16 Oct 2015 02:01:43 -0400
Subject: sbosrcarch: make wget binary a config option

---
 sbosrcarch | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'sbosrcarch')

diff --git a/sbosrcarch b/sbosrcarch
index a6383c1..437a7d6 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -295,7 +295,7 @@ use POSIX 'getcwd';
 use File::Path qw/mkpath rmtree/;
 use File::Copy 'copy';
 
-our($sbogiturl, $sbogitdir, $archivedir, $maxfilemegs,
+our($sbogiturl, $sbogitdir, $archivedir, $maxfilemegs, $wget,
     $wgetargs, $symlinks, $wgetrc_contents, $wgetrc, %user_agent_overrides,
     @trim_empty_dirs, $skipcount, $urlcount, $archivecount,
     $attemptcount, $failcount, $dlcount, $nowarchived, $coverage,
@@ -352,6 +352,7 @@ sub read_config {
 	}
 
 # quietly use defaults if missing:
+	$wget = "wget" unless defined $wget;
 	$wgetargs = "" unless defined $wgetargs;
 	$symlinks = "" unless defined $symlinks;
 
@@ -515,7 +516,7 @@ sub toobig {
 sub wget_fake_head {
 	my $url = shift;
 	our $wget_config_arg;
-	my $cmd = "wget $wget_config_arg " .
+	my $cmd = "$wget $wget_config_arg " .
 		"--tries 1 --quiet -O- --save-headers " .
 		user_agent($url) . " " .
 		" $wgetargs " .
@@ -573,7 +574,7 @@ sub wget {
 
 	if(not defined $wget_config_arg) {
 		$wget_config_arg = "";
-		open my $fh, "wget --help|" or die "can't run wget: $!\n";
+		open my $fh, "$wget --help|" or die "can't run wget: $!\n";
 		while(<$fh>) {
 			$wget_config_arg = "--config=$wgetrc" if /--config/;
 		}
@@ -591,7 +592,7 @@ sub wget {
 	# TODO: open3?
 	# the -O is there to force the filename, in case of a redirect. newer
 	# versions of wget don't actually need this, but it doesn't hurt.
-	my $cmd = "wget $wget_config_arg " .
+	my $cmd = "$wget $wget_config_arg " .
 		user_agent($url) . " " .
 		($head ? "--spider --tries 1" : "-O '" . url_to_filename($url) . "'") .
 		" $wgetargs " .
-- 
cgit v1.2.3