Added lot of junk laying around on harvie.cz

[mirrors/Programs.git] / php / skripty / pop3test.php

diff --git a/php/skripty/pop3test.php b/php/skripty/pop3test.php
new file mode 100644 (file)
index 0000000..9124684
--- /dev/null
+++ b/php/skripty/pop3test.php
@@ -0,0 +1,33 @@
+<?php\r
+\r
+$server = "pop3.seznam.cz";\r
+$port = "110";\r
+$timeout = "5";\r
+$user = "harvie@seznam.cz";\r
+$pass = "heslo";\r
+\r
+$fp = fsockopen ($server, $port, &$errno, &$errstr, $timeout);\r
+if ($fp) { echo("GOOD CONNECTION\n"); }\r
+if (!$fp) { echo("BAD CONNECTION\n"); }\r
+\r
+$resp = (" ".fread($fp, 1000));\r
+echo($resp);\r
+if (strpos($resp, "+OK") != 0) { echo("GOOD SERVER\n"); }\r
+if (strpos($resp, "-ERR") != 0) { echo("BAD SERVER\n"); }\r
+\r
+fwrite($fp, "USER $user\n");\r
+$resp = (" ".fread($fp, 1000));\r
+echo($resp);\r
+if (strpos($resp, "+OK") != 0) { echo("GOOD USERNAME\n"); }\r
+if (strpos($resp, "-ERR") != 0) { echo("BAD USERNAME\n"); }\r
+\r
+fwrite($fp, "PASS $pass\n");\r
+$resp = (" ".fread($fp, 1000));\r
+echo($resp);\r
+if (strpos($resp, "+OK") != 0) { echo("GOOD PASSWORD\n"); }\r
+if (strpos($resp, "-ERR") != 0) { echo("BAD PASSWORD\n"); }\r
+\r
+if(fclose($fp)) { echo("CONNECTION CLOSED\n"); } else\r
+                { echo("CAN'T CLOSE CONNECTION\n"); }\r
+\r
+?>\r