Changeset 31898 for main/trunk/greenstone2/perllib

Timestamp:

2017-08-17T16:15:10+12:00 (7 years ago)

Author:

ak19

Message:

With Kathy's commit 31896 doing away with the need for the recently introduced gsprintf_multiline() by moving the regex replacements of backslash-n (and backslash-t) with newline and tab into gsprint::lookup_string, can now shift WebDownload calls to gsprintf_multine to use regular gsprintf. Putting back the original gsprintf method as gsprintf_multiline is no longer needed.

Location:

main/trunk/greenstone2/perllib

Files:

• downloaders/WebDownload.pm (modified) (2 diffs)
• gsprintf.pm (modified) (2 diffs)

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

@@ -203 +203 @@
     
     if ($self->{'proxy_on'}) { # if proxying set, the settings may be wrong
-        &gsprintf::gsprintf_multiline(STDERR, "{WebDownload.proxied_connect_failed_info}\n");
+        &gsprintf::gsprintf(STDERR, "{WebDownload.proxied_connect_failed_info}\n");
         
         if($self->{'http_proxy_host'} && defined $self->{'http_proxy_port'}) {
-        &gsprintf::gsprintf_multiline(STDERR, "{WebDownload.http_proxy_settings}\n", $self->{'http_proxy_host'}, $self->{'http_proxy_port'});
+        &gsprintf::gsprintf(STDERR, "{WebDownload.http_proxy_settings}\n", $self->{'http_proxy_host'}, $self->{'http_proxy_port'});
         }
         if($self->{'https_proxy_host'} && defined $self->{'https_proxy_port'}) {
-        &gsprintf::gsprintf_multiline(STDERR, "{WebDownload.https_proxy_settings}\n", $self->{'https_proxy_host'}, $self->{'https_proxy_port'});
+        &gsprintf::gsprintf(STDERR, "{WebDownload.https_proxy_settings}\n", $self->{'https_proxy_host'}, $self->{'https_proxy_port'});
         }
         if($self->{'ftp_proxy_host'} && defined $self->{'ftp_proxy_port'}) {
-        &gsprintf::gsprintf_multiline(STDERR, "{WebDownload.ftp_proxy_settings}\n", $self->{'ftp_proxy_host'}, $self->{'ftp_proxy_port'});
+        &gsprintf::gsprintf(STDERR, "{WebDownload.ftp_proxy_settings}\n", $self->{'ftp_proxy_host'}, $self->{'ftp_proxy_port'});
         }
     } else { # else no proxy set, the user may need proxy settings
-        &gsprintf::gsprintf_multiline(STDERR, "{WebDownload.proxyless_connect_failed_info}\n");
+        &gsprintf::gsprintf(STDERR, "{WebDownload.proxyless_connect_failed_info}\n");
     }
     
@@ -221 +221 @@
     # but the site had no valid certificate and no_check_certificate wasn't turned on
     # suggest to the user to try turning it on
-    &gsprintf::gsprintf_multiline(STDERR, "{WebDownload.connect_failed_info}\n");
+    &gsprintf::gsprintf(STDERR, "{WebDownload.connect_failed_info}\n");
     
     print STDERR "<<Finished>>\n";

main/trunk/greenstone2/perllib/gsprintf.pm

@@ -71 +71 @@
 sub gsprintf
 {
-    my ($handle, $text_string, @text_arguments) = @_;    
-    _gsprintf($handle, $text_string, 0, @text_arguments);
-}
-
-sub gsprintf_multiline
-{
     my ($handle, $text_string, @text_arguments) = @_;
-    _gsprintf($handle, $text_string, 1, @text_arguments);
-}
-
-sub _gsprintf
-{
-    my ($handle, $text_string, $multiline, @text_arguments) = @_;
 
     # Return unless the required arguments were supplied
@@ -93 +81 @@
     # Resolve the string arguments using sprintf, then write out to the handle
     my $text_string_resolved = sprintf($text_string, @text_arguments);
-
-    if($multiline) { # replace newlines
-    $text_string_resolved =~ s@\\n@\n@g;
-    }
     
     if ($freetext_xml_mode) {