Added script to find files not owned by pacman package manager (ArchLinux)

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

<?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