// Debug Flag
$debug = False;
$reportemail = 'report@emailaddress.com';
$presidentemail = 'president@bemailaddress.com';
$webmasteremail = 'webmaster@emailaddress.com';
//$pwd = 'password';
//check for new messages
$mailbox = imap_open("{localhost/pop3:110}INBOX", 'email@emailaddress.com', 'password');
if ($mailbox)
{
// Check messages
$check = imap_check($mailbox);
if ($debug) {
print("");
print(" ");
print(" imap_check");
print(" ");
print(" ");
print(" ");
print(" Date most recent message : " . $check->Date) ;
copie (« ") ;
copie (« type de raccordement : ». $check->Driver) ;
copie (« ") ;
copie (« nom de la boîte aux lettres : ». $check->Mailbox) ;
copie (« ") ;
copie (« nombre de messages : ». $check->Nmsgs) ;
copie (« ") ;
copie (« nombre des messages récents : ». $check->Recent) ;
copie (« ") ;
copie (« ") ; } // allant devoir faire une boucle et trouver les nouveaux messages qui // que nous n'avons pas encore analysé. stocker le dernier message // numérique dans un dossier des textes. // ouvrent le contre- dossier et reçoivent le dernier message vérifié. // font une boucle alors par les messages commençant au message de // de bout vérifié + 1. $lastmsg = file_get_contents (« msgcounter.dat ") + 1 ; // obtiennent l'en-tête pour des messages pour ($index = $lastmsg-1 ; $index <>Nmsgs ; $index++) {$games = rangée () ; $recips = rangée () ; $header = imap_header ($mailbox, $index) ; si ($debug) {copie ( »
") ;
copie (« date d'en-tête : ». $header->Date. « ") ;
>personal de $toname = de $header->to [0] - ;
$toaddress = « < ». >mailbox de $header->to [0] -. « @ ». >host de $header->to [0] -. « > » ;
copie (« en-tête : ». $toname. « « . $toaddress. » ") ;
>personal de $fromname = de $header->from [0] - ;
$fromaddress = « < ». >mailbox de $header->from [0] -. « @ ». >host de $header->from [0] -. « > » ;
copie (« en-tête de : ». $fromname. « « . $fromaddress. » ") ;
copie (« en-tête cc : ». $header->cc. « ") ;
copie (« en-tête ReplyTo : ». $header->ReplyTo. « ") ;
copie (« objet d'en-tête : ». $header->Subject. «
") ; copie ( » ") ;
copie ( htmlspecialchars (quoted_printable_decode (imap_body ($mailbox, $index))));
copie (« ") ; } autrement {la liste de // Score-221-4-0-42 ($sub, $gamenum, $visitorscore, $homescore, $teamnum) = s'est dédoublé ( » - « , $header->Subject) ; // mettent à jour maintenant la table de jeux SEULEMENT si le vaiable $sub = des « points » si == 0 (de strcasecmp ($sub, « POINTS ")) {$sql = « jeux de mise à jour \ n » ; $sql. = « placer le visitorscore = ». $visitorscore. », homescore = « . $homescore. » \ n " ; $sql. = « où gamenum = ». $gamenum. « et \ n » ; $sql. = » (\ n " ; $sql. = « (homeid = ». $teamnum.") \ n » ; $sql. = » ou \ n " ; $sql. = « (visitorid = ». $teamnum.") \ n » ; $sql. = ") \ n " ; // font la copie de substance de DB ici… ($sql) ; // s'ajoutent à la rangée de $games pour l'array_push postérieur de reportage ($games, rangée ($gamenum, $visitorscore, $homescore)); // ajoutent l'expéditeur de cet email à la rangée // de $recips pour l'email de envoi postérieur de confirmation >personal de $fromname = de $header->from [0] - ; $fromaddress = « <>[0] - de >mailbox. « @ ». >host de $header->from [0] -. « > » ; array_push ($recips, $fromname. » « . $fromaddress) ; } imap_close ($mailbox) ; Magasin de // le dernier nombre de message vérifié au contre- dossier. copie ($index. » \ n ") ; //file_put_contents (« msgcounter.dat », $index) ; si (! $handle = fopen (« msgcounter.dat », « W ")) {l'écho « ne peut pas le dossier ouvert (« msgcounter.dat ") » ; sortie ; } // écrivent $index à notre dossier ouvert. si === (de fwrite ($handle, $index) FAUX) {l'écho « ne peut pas écrire au dossier (« msgcounter.dat ") » ; sortie ; } fclose ($handle) ; }} // envoient maintenant des confirmations à l'expéditeur de message, au président de ligue et au Webmaster $headers = « Pantomime-Version : 1.0 \ n » ; $headers. = « Contenu-type : texte/plat ; charset=iso-8859-1 \ n » ; $headers. = « X-Priorité : 3 \ n » ; $headers. = « X-MS-Mail-Priorité : Normale \ n » ; $headers. = « X-Annonce : PHP \ n » ; $headers. = « de : \ « points automatisés \ » <>\ n " ; $message = « les points pour ces jeux ont été rapportés : \ n » ; pour ($i = 0 ; sujet <>de $i, $message, $headers) ; courrier ($webmasteremail, « points rapportés » + $header->Subject, $message, $headers) ; pour ($i = 0 ; sujet <>de $i, $message, $headers) ; }} autrement {copie (« ne peut pas ouvrir la boîte aux lettres ») ; } ? >
|