Changeset 22465

Show
Ignore:
Timestamp:
21.07.2010 13:51:53 (9 years ago)
Author:
ak19
Message:

Improved checking of environment variables for Fedora values in BEGIN block

Files:
1 modified

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