Changeset 22465 for main

Timestamp:

2010-07-21T13:51:53+12:00 (14 years ago)

Author:

ak19

Message:

Improved checking of environment variables for Fedora values in BEGIN block

File:

• main/trunk/greenstone2/perllib/plugouts/FedoraMETSPlugout.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugouts/FedoraMETSPlugout.pm

@@ -36 +36 @@
 sub BEGIN {
     @FedoraMETSPlugout::ISA = ('METSPlugout');
+
+    if ((!defined $ENV{'FEDORA_HOME'}) || (!defined $ENV{'FEDORA_VERSION'})) {
+    if (defined $ENV{'FEDORA_HOME'}) {
+        print STDERR "FEDORA_HOME = $ENV{'FEDORA_HOME'}";
+    }
+
+    if (defined $ENV{'FEDORA_VERSION'}) {
+        print STDERR "FEDORA_VERSION = $ENV{'FEDORA_VERSION'}";
+    }
+
+    die "Need both environment variables FEDORA_HOME and FEDORA_VERSION to be set\n";
+    }
+
+    $ENV{'FEDORA_HOSTNAME'} = "localhost" if (!defined $ENV{'FEDORA_HOSTNAME'});
+    $ENV{'FEDORA_SERVER_PORT'} = "8080" if (!defined $ENV{'FEDORA_SERVER_PORT'});
+    $ENV{'FEDORA_USER'}     = "fedoraAdmin" if (!defined $ENV{'FEDORA_USER'});
+    $ENV{'FEDORA_PASS'}     = "fedoraAdmin" if (!defined $ENV{'FEDORA_PASS'});
+    $ENV{'FEDORA_PROTOCOL'} = "http" if (!defined $ENV{'FEDORA_PROTOCOL'});
+    $ENV{'FEDORA_PID_NAMESPACE'} = "greenstone" if (!defined $ENV{'FEDORA_PID_NAMESPACE'});
+    $ENV{'FEDORA_PREFIX'} = "/fedora" if (!defined $ENV{'FEDORA_PREFIX'});
 }