sub reload_sites { while ($site = shift) { for my $i (0..$#{$valid_site{lc($site)}}) { print "\n" if $DEBUG; print "First, checking superd's status before we go willy-nilly:\n" if $DEBUG; print scalar localtime(time) . ":\n"; if ((check_current_status($valid_site{lc($site)}->[$i])) and (check_current_status($valid_site{lc($site)}->[$i+1]))) { print "SuperD on $valid_site{lc($site)}->[$i] looks good...\n" if $DEBUG; print "AND SuperD on $valid_site{lc($site)}->[$i+1] looks good...\n" if $DEBUG; print "Executing ISFload on site $valid_site{lc($site)}->[$i]...\n\n"; print "Load the isf's or something...\n"; #if (remote_execute($valid_site{lc($site)}->[$i])) { # confirm_reload($valid_site{lc($site)}->[$i]); #} #else { # die ("It appears that the loadISF to $valid_site{lc($site)}->[$i] failed for some reason.\n"); #} } else { die ("Abort: superdns does not appear to be running/functioning on $valid_site{lc($site)}->[$i]\n"); } } } }