#########
print $server "GET /front/check_pgsql.php HTTP/1.0\nHost: $hostname\n\n";
my @rh_set = IO::Select->select($read_set, undef, undef, $timeout);
if (@rh_set) {
undef $/;
my $buf = <$server>; #connection success와 메세지내용이 동일해야함
$buf =~ /<<([\w ]+)>>/;
$message = $1;
if ($message !~ /connection success/) {
do_page("$hostname : $message");
print("$hostname : pgsql connect fail\n");
}
} else {
do_page("$hostname : pgsql check response fail");
print("$hostname : pgsql check response fail");
}
close($server);
###########
print $server "GET /connect.asp HTTP/1.0\r\nHost: $hostname\r\n\r\n";
my @rh_set = IO::Select->select($read_set, undef, undef, $timeout);
if (@rh_set) {
undef $/;
my $message = <$server>; #print 라인의 GET에서 필요 정보를 출력하고 success에 해당 내용이 있을때 출력
if ($message !~ /success/) {
do_page("$hostname : $message");
#print("$hostname : mssql connect fail\n");
}
} else {
do_page("$hostname : mssql check response fail");
#print("$hostname : mssql check response fail");
}
close($server);
} |
|
