1: 2: /* -------------------------------------------------------------
3: This file is part of FreeNATS
4:
5: FreeNATS is (C) Copyright 2008 PurplePixie Systems
6:
7: FreeNATS is free software: you can redistribute it and/or modify
8: it under the terms of the GNU General Public License as published by
9: the Free Software Foundation, either version 3 of the License, or
10: (at your option) any later version.
11:
12: FreeNATS is distributed in the hope that it will be useful,
13: but WITHOUT ANY WARRANTY; without even the implied warranty of
14: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15: GNU General Public License for more details.
16:
17: You should have received a copy of the GNU General Public License
18: along with FreeNATS. If not, see www.gnu.org/licenses
19:
20: For more information see www.purplepixie.org/freenats
21: -------------------------------------------------------------- */
22:
23:
24: if (isset($NATS))
25: {
26: class FreeNATS_TCP_Test extends FreeNATS_Local_Test
27: {
28:
29: function DoTest($testname,$param,$hostname,$timeout,$params)
30: {
31: global $NATS;
32: $timer=new TFNTimer();
33: if ($timeout<=0) $timeout=$NATS->Cfg->Get("test.tcp.timeout",0); // if no test-specific param use sys default
34: if ($timeout<=0) $timeout=60; // if sys default is <=0 then default to 60 seconds
35: $ip=ip_lookup($hostname);
36: if ($ip=="0") return -2; // lookup failed
37: $errno=0;
38: $errstr="";
39: $timer->Start();
40: $fp=@fsockopen($ip,$param,$errno,$errstr,$timeout);
41: $elapsed=$timer->Stop();
42: if ($fp===false) return -1; // open failed
43: @fclose($fp);
44: return $elapsed;
45: }
46:
47: function Evaluate($result)
48: {
49: if ($result<0) return 2; // failure
50: return 0; // else success
51: }
52:
53: function DisplayForm(&$row)
54: {
55: echo "