Changeset 31518 for main/trunk/greenstone2/perllib/util.pm

Timestamp:

2017-03-14T20:10:07+13:00 (7 years ago)

Author:

ak19

Message:

Found servercontrol::get_library_url() largely duplicated in util.pm as get_fullgreenstone_url_prefix(). Merging the two functions. Tested that solr-jdbm-demo collection still rebuilds (with and without tomcat running, and with and without port change between sessions).

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -1227 +1227 @@
 sub get_full_greenstone_url_prefix
 {   
+    my ($gs_mode, $lib_name) = @_;
+    
     # if already set on a previous occasion, just return that
     # (Don't want to keep repeating this: cost of re-opening and scanning files.)
     return $ENV{'FULL_GREENSTONE_URL_PREFIX'} if($ENV{'FULL_GREENSTONE_URL_PREFIX'});
 
-    my $gs_mode = ($ENV{'GSDL3SRCHOME'}) ? "gs3" : "gs2";
+    # set gs_mode if it was not passed in (servercontrol.pm would pass it in, any other callers won't)
+    $gs_mode = ($ENV{'GSDL3SRCHOME'}) ? "gs3" : "gs2" unless defined $gs_mode;
     
     my $url = undef;    
@@ -1328 +1331 @@
         }
         close(PIN);
+        
+        if (defined $lib_name) { # url won't be undef now
+            # replace the servlet_name portion of the url found, with the given library_name
+            $url =~ s@/[^/]*$@/$lib_name@;
+        }
     } else {
         print STDERR "util::get_full_greenstone_url_prefix() failed to run $perl_command to work out library URL for $gs_mode\n";