Added lot of junk laying around on harvie.cz

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

diff --git a/php/skripty/mailcheck.php b/php/skripty/mailcheck.php
new file mode 100644 (file)
index 0000000..6d10d6f
--- /dev/null
+++ b/php/skripty/mailcheck.php
@@ -0,0 +1,83 @@
+<?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