Subversion Repositories DevTools

Rev

Rev 6241 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6241 Rev 7367
Line 163... Line 163...
163 
ErrorConfig( 'name'    => 'QUARANTINE',
 163 
ErrorConfig( 'name'    => 'QUARANTINE',
164 
             'verbose' => $opt_verbose );
 164 
             'verbose' => $opt_verbose );
165 
 
 165 
 
166 
#
 166 
#
167 
#   This utility must be run on the package server
 167 
#   This utility must be run on the package server
168 
my $runHost = 'auperaarc01';
 168 
my $runHost = 'auawsaarc001';
169 
my $hostname = lc $ENV{HOSTNAME} || 'Unknown';
 169 
my $hostname = lc $ENV{HOSTNAME} || 'Unknown';
170 
Warning("Not running on $runHost") unless ( $hostname eq $runHost );
 170 
Warning("Not running on $runHost") unless ( $hostname eq $runHost );
171 
 
 171 
 
172 
#
 172 
#
173 
#   Needs to run as root so that packages can be moved no matter what the
 173 
#   Needs to run as root so that packages can be moved no matter what the