sub set_local_config { # RSD: Remote Software Deployment: Set local configuration. # Contact: N. West, Oxford. # Parameters:- # ========== # None # Specification:- # ============= # o Initialise site-specific globals based on $SYS::SITE_NAME use English; use strict; if ( $SYS::SITE_NAME eq "oxford" ) { $JBS::TICKET_DIR = "/data/minos/minos2/west/rsd_tests/rsd_job_tickets"; $SYS::WORK_DIR_PARENT = "/data/minos/minos2/west/rsd_tests/work"; $SYS::WORK_DIR = "$SYS::WORK_DIR_PARENT/rsd_tmp_$$"; } elsif ( $SYS::SITE_NAME eq "ral_ui" or $SYS::SITE_NAME eq "ral_tier1" ) { $JBS::TICKET_DIR = "/rutherford/minos-soft2/rsd_job_tickets"; $SYS::WORK_DIR_PARENT = "/rutherford/minos-soft2/rsd_work"; $SYS::WORK_DIR = "$SYS::WORK_DIR_PARENT/rsd_tmp_$$"; } elsif ( $SYS::SITE_NAME eq "laptop_nick" ) { $JBS::TICKET_DIR = "/usr/west/minos/test_rsd/job_tickets"; $SYS::WORK_DIR_PARENT = "/usr/west/minos/test_rsd/work"; $SYS::WORK_DIR = "$SYS::WORK_DIR_PARENT/rsd_tmp_$$"; } # Switch to user tick directory if it exists. my $user = getpwuid $UID; $JBS::TICKET_DIR .= "/$user" if -d "$JBS::TICKET_DIR/$user"; } 1; # Return O.K. from module loading.