2 /////////////////////////////////////////////////
3 // PukiWiki - Yet another WikiWikiWeb clone.
5 // $Id: mail.php,v 1.1 2003/09/24 00:37:27 arino Exp $
9 function pop_before_smtp()
11 global $pop_auth_use_apop,$pop_port,$pop_server,$pop_userid,$pop_passwd;
13 $fp = @fsockopen($pop_server,$pop_port,$errno,$errstr,30);
16 return "$errstr ($errno)";
19 $rc = pop_result($fp);
25 // APOP »ØÄê»þ¤ÎÍøÍÑȽÄê
26 if ($pop_auth_use_apop)
29 preg_match("(<.*>)", $buf, $regs);
30 // digest ¤¬Ãê½Ð¤Ç¤¤Ê¤«¤Ã¤¿¾ì¹ç¤Ï¡¢¶¯À©Åª¤Ë POP ¤ËÀÚ¤êÂؤ¨
33 $pop_auth_use_apop = 0;
38 if ($pop_auth_use_apop)
40 fputs($fp, "APOP ".$pop_userid." ".md5($regs[0].$pop_passwd)."\r\n");
41 $rc = pop_result($fp);
49 fputs($fp, "USER ".$pop_userid."\r\n");
50 $rc = pop_result($fp);
56 fputs($fp, "PASS ".$pop_passwd."\r\n");
57 $rc = pop_result($fp);
64 fputs($fp, "QUIT\r\n");
70 function pop_result($fp)
72 $buf = fgets($fp, 2048);
73 $tok = strtok($buf,' ');
79 return substr($buf, strlen($tok) + 1);