Added lot of junk laying around on harvie.cz

[mirrors/Programs.git] / php / skripty / service_checker.php
diff --git a/php/skripty/service_checker.php b/php/skripty/service_checker.php

new file mode 100644 (file)

index 0000000..1dd69f1
--- /dev/null
+++ b/php/skripty/service_checker.php
@@ -0,0 +1,19 @@
+<html>\r
+<h1>TCP Service Checker</h1>\r
+<form>\r
+   Host: <input type="text" name="host"><br />\r
+   Port: <input type="text" name="port"><br />\r
+   Timeout: <input type="text" name="timeout" value="3"><br />\r
+</form>\r
+\r
+<pre><?php\r
+\r
+@$fp = fsockopen ("127.0.0.1", 80, &$errno, &$errstr, 5);\r
+   if (!$fp)\r
+   { echo "<font color=\"#FF0000\"> UNRECHEABLE <br> ".$errno." - ".$errstr."</font>"; }\r
+   else\r
+   { echo "<font color=\"#00FF00\"> RECHEABLE </font>"; }\r
+\r
+?></pre>\r
+\r
+</html>\r