Changeset 22465


Ignore:
Timestamp:
2010-07-21T13:51:53+12:00 (12 years ago)
Author:
ak19
Message:

Improved checking of environment variables for Fedora values in BEGIN block

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugouts/FedoraMETSPlugout.pm

    r22372 r22465  
    3636sub BEGIN {
    3737    @FedoraMETSPlugout::ISA = ('METSPlugout');
     38
     39    if ((!defined $ENV{'FEDORA_HOME'}) || (!defined $ENV{'FEDORA_VERSION'})) {
     40    if (defined $ENV{'FEDORA_HOME'}) {
     41        print STDERR "FEDORA_HOME = $ENV{'FEDORA_HOME'}";
     42    }
     43
     44    if (defined $ENV{'FEDORA_VERSION'}) {
     45        print STDERR "FEDORA_VERSION = $ENV{'FEDORA_VERSION'}";
     46    }
     47
     48    die "Need both environment variables FEDORA_HOME and FEDORA_VERSION to be set\n";
     49    }
     50
     51    $ENV{'FEDORA_HOSTNAME'} = "localhost" if (!defined $ENV{'FEDORA_HOSTNAME'});
     52    $ENV{'FEDORA_SERVER_PORT'} = "8080" if (!defined $ENV{'FEDORA_SERVER_PORT'});
     53    $ENV{'FEDORA_USER'}     = "fedoraAdmin" if (!defined $ENV{'FEDORA_USER'});
     54    $ENV{'FEDORA_PASS'}     = "fedoraAdmin" if (!defined $ENV{'FEDORA_PASS'});
     55    $ENV{'FEDORA_PROTOCOL'} = "http" if (!defined $ENV{'FEDORA_PROTOCOL'});
     56    $ENV{'FEDORA_PID_NAMESPACE'} = "greenstone" if (!defined $ENV{'FEDORA_PID_NAMESPACE'});
     57    $ENV{'FEDORA_PREFIX'} = "/fedora" if (!defined $ENV{'FEDORA_PREFIX'});
    3858}
    3959
Note: See TracChangeset for help on using the changeset viewer.