<?php

// (c) z3n - R1V1@081114 - Port Check

define('is_debug',0);							// debug mode
define('w_sw',1);									// enable warning by email
define('_e','root@localhost');		// warning email address
define('_timeout',2);							// fsockopen timeout in seconds
define('_max_timeout',5);					// max fsockopen timeout loops
define('_dt',"Y-m-d \@ H:i:s");		// date/time format

$p=array( // Servers to Check - Server Name , IP/Hostname , Port
	array('WebServer 1','1.2.3.4','80'),
	array('WebServer 2','5.4.2.1','80'),
	array('ParaChat Server','4.2.3.1','7777'),
	array('RTMPE Streaming Server','1.2.3.4','1935'),
	array('MySQL Server','1.2.3.4','3306')
);

function f($x) { return number_format($x,0,'.',','); }
function a($t) { if ($t > 1000) { if ($t > 1000000) { if ($t > 1000000000) { if ($t > 1000000000000) { if ($t > 1000000000000000) { if ($t > 1000000000000000000) { if ($t > 1000000000000000000000) { $u="o";$t=$t/1000000000000000000000; } else { $u="E";$t=$t/1000000000000000000; } } else { $u="P";$t=$t/1000000000000000; } } else { $u="T";$t=$t/1000000000000; } } else { $u="G";$t=$t/1000000000; } } else { $u="M";$t=$t/1000000; } } else { $u="K";$t=$t/1000; } } else { $u=""; } return round($t,3).$u; }
function p($i,$p,$t=5) {
	$f=@fsockopen($i,$p,$e,$s,$t); // ip/hostname, port, error number, error description, timeout (sec)
	@fclose($f);
	if(!$f) {
		if (is_debug) { echo "\n[ERROR] ".$e.": ".$s."\n"; }
		return 0;
	} else {
		return 1;
	}
}

echo "(c) z3n - R1V1@081114 - Ping by Port Check\n";

for ($i=$b=$o=0,$k=count($p),$u=array_fill(0,$k,0);0 < 1;$i++) {
	echo "\r[".date(_dt)."] L:".a($i)." G:".a(($i*$k)-$o)." B:".f($b)." T:".a($o); // Loops , Good , Bad , Timeout
	for ($j=0;$j<$k;$j++) {
		if (!p($p[$j][1],$p[$j][2],_timeout)) {
			$u[$j]++;$o++;
			if ($u[$j] == _max_timeout) {
				$m="[".date(_dt).":".$i."@".$u[$j]."] ".$p[$j][0].": (".$p[$j][1].":".$p[$j][2].") Down";
				if (w_sw) { mail(_e,$p[$j][0]." is Down",$m,"From: "._e); }
				echo "\n".$m."\n";$b++;
			}
		} else {
			if ($u[$j] >= _max_timeout) {
				$m="[".date(_dt).":".$i."@".$u[$j]."] ".$p[$j][0].": (".$p[$j][1].":".$p[$j][2].") Online";
				if (w_sw) { mail(_e,$p[$j][0]." Back Online",$m,"From: "._e); }
				echo "\n".$m."\n";$b--;
			}
			$u[$j]=0;
		}
	}	
}

?>