Subversion Repositories sysadmin_scripts

Rev

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

Rev 169 Rev 170
Line 164... Line 164...
164
push @status, "remote machine ($configuration->{'remoteMachine'}->{'ip'}) is " . ( $configuration->{'remoteMachine'}->{'up'} ? 'Up' : 'Down' ) . "\n";
164
push @status, "remote machine ($configuration->{'remoteMachine'}->{'ip'}) is " . ( $configuration->{'remoteMachine'}->{'up'} ? 'Up' : 'Down' ) . "\n";
165
# check for maintenance flags, exit if we should go into mainteannce mode
165
# check for maintenance flags, exit if we should go into mainteannce mode
166
if ( my $result = &checkMaintenance( $configuration ) ) {
166
if ( my $result = &checkMaintenance( $configuration ) ) {
167
   push @status,$result;
167
   push @status,$result;
168
   &sendMail( join( "\n", @status), $configuration, "Maintenance Mode" );
168
   &sendMail( join( "\n", @status), $configuration, "Maintenance Mode" );
169
   exit;
169
   die;
170
}
170
}
171
 
171
 
172
# we can not connect to the remote server, so just shut down
172
# we can not connect to the remote server, so just shut down
173
&shutdownMachine( $configuration, "No connection to remote machine", @status ) unless $configuration->{'remoteMachine'}->{'up'};
173
&shutdownMachine( $configuration, "No connection to remote machine", @status ) unless $configuration->{'remoteMachine'}->{'up'};
174
 
174