Changeset 21687 for main/trunk/greenstone2/perllib
- Timestamp:
- 2010-01-27T20:54:06+13:00 (14 years ago)
- Location:
- main/trunk/greenstone2/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/g2futil.pm
r21588 r21687 291 291 # The top of this file has already made sure that FEDORA_HOME is set, but for GS3 292 292 # CATALINA_HOME is set to GS' own tomcat. Since we'll be working with fedora, we need 293 # to temporarily set CATALINA_HOME to fedora's tomcat. (Catalina is undefined for GS2 ).293 # to temporarily set CATALINA_HOME to fedora's tomcat. (Catalina is undefined for GS2.) 294 294 my $gs_catalina_home = $ENV{'CATALINA_HOME'} if defined $ENV{'CATALINA_HOME'}; 295 295 $ENV{'CATALINA_HOME'} = &util::filename_cat($ENV{'FEDORA_HOME'}, "tomcat"); … … 396 396 print STDERR "Fedora server restarted. Waiting for it to become ready...\n"; 397 397 #print STDERR "****$protocol://$hostname:$port/fedora/search\n"; 398 399 398 $! = 0; 400 401 399 #my $fedoraServerReady = system("wget -q --spider --waitretry=10 --tries=20 $protocol://$hostname:$port/fedora/search"); 400 402 401 # The retries above won't work if the server isn't running: 403 402 # 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. 407 406 408 # retry fedora server every second for a total of 15times until the server is ready407 # retry fedora server every second for a total of 20 times until the server is ready 409 408 my $fedoraServerReady = 0; 410 409 my $count = 0; … … 416 415 #print STDERR "$count second(s)\n"; 417 416 } 418 } while($fedoraServerReady != 0 && $count < 15);417 } while($fedoraServerReady != 0 && $count < 20); 419 418 420 419 if($fedoraServerReady != 0) { -
main/trunk/greenstone2/perllib/plugouts/FedoraMETSPlugout.pm
r20414 r21687 543 543 $gsdl_href =~ s/^$collectparent(\/|\\)?//; # remove the collectparent path in gsdl_href and any trailing slash 544 544 $gsdl_href =~ s/\\/\//g; # make sure we have url paths (which only use / not \) 545 $gsdl_href = "/gsdl/$gsdl_href"; # prepend gsdl 545 my $localfedora = &util::filename_cat($ENV{'GSDL3SRCHOME'}, "packages", "tomcat", "conf", "Catalina", "localhost", "fedora.xml"); 546 if($ENV{'GSDL3SRCHOME'} && -e $localfedora) { # prepend gsdl 547 $gsdl_href = "/greenstone3/sites/localsite/$gsdl_href"; # Fedora uses Greenstone's tomcat 548 } else { 549 $gsdl_href = "/gsdl/$gsdl_href"; 550 } 546 551 547 552 my $fserver = $ENV{'FEDORA_HOSTNAME'}; … … 550 555 my $fdomain = "http://$fserver:$fport"; 551 556 $xlink_href = "$fdomain$gsdl_href"; 552 } 553 557 #ERROR: $xlink_href = "$fname"; 558 } 554 559 555 560 return $xlink_href; … … 674 679 $gsdl_href =~ s/^$collectparent(\/|\\)?//; # remove the collectparent path in gsdl_href and any trailing slash 675 680 $gsdl_href =~ s/\\/\//g; # make sure we have url paths (which only use / not \) 676 $gsdl_href = "/gsdl/$gsdl_href"; # prepend gsdl 681 my $localfedora = &util::filename_cat($ENV{'GSDL3SRCHOME'}, "packages", "tomcat", "conf", "Catalina", "localhost", "fedora.xml"); 682 if($ENV{'GSDL3SRCHOME'} && -e $localfedora) { # prepend gsdl 683 $gsdl_href = "/greenstone3/sites/localsite/$gsdl_href"; # Fedora uses Greenstone's tomcat 684 } else { 685 $gsdl_href = "/gsdl/$gsdl_href"; 686 } 677 687 678 688 my $fserver = $ENV{'FEDORA_HOSTNAME'}; … … 681 691 my $fdomain = "http://$fserver:$fport"; 682 692 $xlink_href = "xlink:href=\"$fdomain$gsdl_href\""; 693 #ERROR: $xlink_href = "xlink:href=\"$assfilePath\""; 683 694 } 684 695
Note:
See TracChangeset
for help on using the changeset viewer.