function checkPort()
{
global $gbl, $sgbl, $login, $ghtml;
$num = $this->portnumber;
$sname = $this->getParentO()->servername;
dprint("Checking Port {$sname}: {$num}\n");
print_time("checkprot");
$sip = gethostbyname($sname);
if (validate_ipaddress($sip)) {
$res = fsockopen($sip, $num, $erno, $erstr, 10);
} else {
$res = null;
$erno = 1;
$erstr = "Dns failed";
}
print_time("checkprot", "Fsockopen");
$name = $sgbl->thisserver . "___" . $this->nname;
$obj = new PortStatus(null, "localhost", $name);
$obj->initThisDef();
if (!$res) {
$obj->portstatus = 'off';
$obj->errornumber = $erno;
$obj->errorstring = $erstr;
} else {
fclose($res);
$obj->portstatus = 'on';
}
$obj->portnname = $this->nname;
$obj->servername = $sgbl->thisserver;
$obj->updatetime = time();
$obj->setUpdateSubaction();
return $obj;
}
