Changeset 21687 for main/trunk/greenstone2/perllib/g2futil.pm

Timestamp:

2010-01-27T20:54:06+13:00 (14 years ago)

Author:

ak19

Message:

1. Minor changes for when when fedora uses Greenstone 3's tomcat: Only for GS3 in this case, don't need the file gsdl.xml since the file greenstone3.xml in GS3's tomcat already contains the necessary information. 2. In g2futil.pm: When writing out the file gsdl.xml, tries for 1 x 20 seconds to see whether the fedora server has started up again.

File:

• main/trunk/greenstone2/perllib/g2futil.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/g2futil.pm

@@ -291 +291 @@
     # The top of this file has already made sure that FEDORA_HOME is set, but for GS3
     # CATALINA_HOME is set to GS' own tomcat. Since we'll be working with fedora, we need
-    # to temporarily set CATALINA_HOME to fedora's tomcat. (Catalina is undefined for GS2).
+    # to temporarily set CATALINA_HOME to fedora's tomcat. (Catalina is undefined for GS2.)
     my $gs_catalina_home = $ENV{'CATALINA_HOME'} if defined $ENV{'CATALINA_HOME'};
     $ENV{'CATALINA_HOME'} = &util::filename_cat($ENV{'FEDORA_HOME'}, "tomcat");
@@ -396 +396 @@
     print STDERR "Fedora server restarted. Waiting for it to become ready...\n";
     #print STDERR "****$protocol://$hostname:$port/fedora/search\n";
-    
     $! = 0;
-
     #my $fedoraServerReady = system("wget -q --spider --waitretry=10 --tries=20 $protocol://$hostname:$port/fedora/search");
+
     # The retries above won't work if the server isn't running: 
     # http://www.gnu.org/software/wget/manual/wget.html
@@ -406 +405 @@
     # with the exception of fatal errors like "connection refused" or "not found" (404), which ARE NOT RETRIED.
 
-    # retry fedora server every second for a total of 15 times until the server is ready
+    # retry fedora server every second for a total of 20 times until the server is ready
     my $fedoraServerReady = 0;
     my $count = 0;
@@ -416 +415 @@
         #print STDERR "$count second(s)\n";
     }
-    } while($fedoraServerReady != 0 && $count < 15);
+    } while($fedoraServerReady != 0 && $count < 20);
 
     if($fedoraServerReady != 0) {