Changeset 31864 for main/trunk/greenstone2/perllib/downloaders/WgetDownload.pm

Timestamp:

2017-08-09T20:24:33+12:00 (7 years ago)

Author:

ak19

Message:

1. Modified GLI and perl to set proxy_on, proxy_host and proxy_port for unix too, whereas in the past, only http(s)_proxy ENV vars were set by GLI for unix. If the env vars are not set, then perl assumes it's the wget setup for windows and passes the proxy vars that were set by GLI as flags to wget. If the env vars were set, then perl should run wget without setting the proxy vars as flags to wget, and wget will use the proxying info in the environment. So now, the decision as to whether proxy vars are set or not will result in context specific suggestion messages to the user when the Server Info button was pressed and if the URL could not be accessed for whatever reason. 2. Modified GLI code to not use proxy if proxying is toggled off, but use proxy when it's toggled back on. (Previously, if proxying was set at any point during a GLI session, then GLI remembered that even when proxying was turned off thereafter.)

File:

• main/trunk/greenstone2/perllib/downloaders/WgetDownload.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/downloaders/WgetDownload.pm

@@ -169 +169 @@
     my ($self) = @_;
     my $strOptions = "";
-    
-    if ($self->{'proxy_on'} && $self->{'proxy_host'} && $self->{'proxy_port'})
-    {
-
-    if($self->{'url'} =~ m/^https\:/) {
+
+    # If http_proxy ENV VARS are not set, but proxy Perl vars are set, then we're on Windows
+    # and need to use the proxy vars as flags to wget
+    # If http_proxy Env Vars are set, then we're on Linux, wget will use the http(s) proxy
+    # env vars and we shouldn't be passing any proxy perl vars as flags
+    
+    # Truth in Perl: https://home.ubalt.edu/abento/452/perl/perltruth.html
+    # http://www.perlmonks.org/?node=what%20is%20true%20and%20false%20in%20Perl%3F
+    
+    if (!$ENV{'http_proxy'} && !$ENV{'https_proxy'}) {
+    if ($self->{'proxy_on'} && $self->{'proxy_host'} && $self->{'proxy_port'})
+    {
+        
+        if($self->{'url'} =~ m/^https\:/) {
         $strOptions .= " -e https_proxy=$self->{'proxy_host'}:$self->{'proxy_port'} ";  
-    } else {
+        } else {
         $strOptions .= " -e http_proxy=$self->{'proxy_host'}:$self->{'proxy_port'} ";
-    }   
-
-    if ($self->{'user_name'} && $self->{'user_password'})
-    {
-        $strOptions .= "--proxy-user=$self->{'user_name'}"." --proxy-passwd=$self->{'user_password'}";
-    }
-    }
-
-    if ($self->{'proxy_on'}) {
-    $strOptions .= " --proxy ";
-    }
-
-    if($self->{'no_check_certificate'}) { #&& $self->{'url'} =~ m/^https\:/) { # URL may be http that gets redirected to https
-    
+        }   
+        
+        if ($self->{'user_name'} && $self->{'user_password'})
+        {
+        $strOptions .= "--proxy-user=$self->{'user_name'}"." --proxy-passwd=$self->{'user_password'}";
+        }
+    }
+
+    if ($self->{'proxy_on'}) {
+        $strOptions .= " --proxy ";
+    }
+    }
+
+    if($self->{'no_check_certificate'}) { #&& $self->{'url'} =~ m/^https\:/) { # URL may be http that gets redirected to https, so if no_check_certificate is on, turn it on even if URL is http
+
     $strOptions .= " --no-check-certificate ";
     }
@@ -259 +269 @@
     my $wget_file_path = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'}, "bin", $ENV{'GSDLOS'}, "wget");
     $command = "\"$wget_file_path\" $cmdWget";
-    #print STDOUT "Command is: $command\n";
-
+    #print STDOUT "Command is: $command\n"; # displayed in GLI output
+    #print STDERR "Command is: $command\n"; # goes into ServerInfoDialog
+    
     # Wget's output needs to be monitored to find out when it has naturally terminated.
     # Wget's output is sent to its STDERR so we can't use open2 without doing 2>&1.