Added lot of junk laying around on harvie.cz

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

<?php\r
$serv = "pop3.seznam.cz";\r
$port = "110";\r
$mail = "harvie@seznam.cz";\r
$pass = "harddaysnight";\r
$delay = 5;\r
\r
///FUNCS///////////////////////////////////////////////////////////////\r
\r
function pop3_connect($mail, $pass, $serv, $port=110) {\r
  $fserv = fsockopen($serv, $port);\r
  if(!$fserv) return -1; //Cannot connect\r
  $resp = fgets($fserv); //echo($resp); //Debug\r
  $request = "USER $mail\nPASS $pass\n";\r
  \r
  fwrite($fserv, $request);\r
  $resp = fgets($fserv); if (!eregi("\\+", $resp)) return -2; //Bad username\r
  //echo($resp);\r
  $resp = fgets($fserv); if (!eregi("\\+", $resp)) return -3; //Bad password \r
  //echo($resp);\r
\r
  return($fserv);\r
}\r
\r
function pop3_cmd($fserv, $cmd) {\r
  $request = "$cmd\n";\r
  fwrite($fserv, $request);\r
  return trim(fgets($fserv));\r
}\r
\r
function pop3_check($fserv) {\r
  echo($fserv."\n");\r
  switch($fserv) {\r
    case -1: echo("Cannot conect!\n"); break;\r
    case -2: echo("Bad username!\n"); break;\r
    case -3: echo("Bad password!\n"); break;\r
  }\r
}\r
\r
function pop3_unread($fserv) {\r
  $resp = pop3_cmd($fserv, "STAT");\r
  $resp = explode(" ", $resp);\r
  return trim($resp[1]);\r
}\r
\r
function pop3_quit($fserv) {\r
  pop3_cmd($fserv, "QUIT");\r
  fclose($fserv);\r
}\r
///CODE/////////////////////////////////////////////\r
\r
\r
//pop3_check($fserv);\r
//echo pop3_cmd($fserv, "STAT")."\n";\r
\r
$last_unread = 0;\r
while(1) {\r
  if(!isset($fserv) || !$fserv) {\r
    $fserv = pop3_connect($mail, $pass, $serv, $port);\r
  }\r
\r
  $unread = pop3_unread($fserv);\r
  if($unread != $last_unread && $unread != "") {\r
    echo("You have $unread messages!\n");\r
    $last_unread = $unread;\r
  }\r
\r
  pop3_quit($fserv);\r
  sleep($delay);\r
}\r
\r
/*\r
USER harvie@seznam.cz\r
PASS harddaysnight\r
*/\r
\r
/*\r
+OK Hello, this is Seznam POP3 server 2.3.16.\r
USER harvie@seznam.cz\r
PASS harddaysnight\r
+OK Enter your password please.\r
+OK 79 1298041\r
*/\r