DBSERVER0 = \\PLYSDEV03\DEV03-
DBSERVER1 =
####
printf "$_: $dbSrvrUNC\n";
my $dbSrvrBox = $dbSrvrUNC;
$dbSrvrBox =~ s/^(\\\\)//; # Get rid of any leading "\" for UNC
if ($dbSrvrBox =~ /\w+/)
{$dbSrvrBox = $&}; # Save only the box name
printf "DB Server to be tested for accessibility: $dbSrvrBox\n\n";
# Ensure the connection to the DB Server is available
if (pingecho($dbSrvrBox, $timeout)) {
&msgLog ("DB Server ($dbSrvrBox) is accessible at startup.\n");
printf "\n$dbSrvrBox is accessible at startup.\n\n";
}
else {
&msgLog ("Cannot access $dbSrvrBox - abending.\n\n");
&stdErr ("Cannot access $dbSrvrBox - abending.\n\n");
&abend ("Cannot access $dbSrvrBox ");
};
##
##
DBSERVER0: \\PLYSDEV03\DEV03-
DB Server to be tested for accessibility: PLYSDEV03
PLYSDEV03 is accessible at startup.
DBSERVER1:
DB Server to be tested for accessibility:
is accessible at startup.
Processing to be performed for: