phpDocumentor lodel
[ class tree: lodel ] [ index: lodel ] [ all elements ]
lodel
Packages:
default
Cache_Lite
lodel
lodel-dao
lodel-install
lodel-logic
lodel-source
lodel-source-lodel-admin
lodel-source-lodel-edition
lodeladmin
Log
Mail
Mail_Mime
PEAR
servooclient

Source for file imapfunc.php

Documentation is available at imapfunc.php

  1. <?php
  2. /**
  3.  * Fichier de fonction IMAP
  4.  *
  5.  * PHP versions 4 et 5
  6.  *
  7.  * LODEL - Logiciel d'Edition ELectronique.
  8.  *
  9.  * Copyright (c) 2001-2002, Ghislain Picard, Marin Dacos
  10.  * Copyright (c) 2003, Ghislain Picard, Marin Dacos, Luc Santeramo, Nicolas Nutten, Anne Gentil-Beccot
  11.  * Copyright (c) 2004, Ghislain Picard, Marin Dacos, Luc Santeramo, Anne Gentil-Beccot, Bruno Cénou
  12.  * Copyright (c) 2005, Ghislain Picard, Marin Dacos, Luc Santeramo, Gautier Poupeau, Jean Lamy, Bruno Cénou
  13.  * Copyright (c) 2006, Marin Dacos, Luc Santeramo, Bruno Cénou, Jean Lamy, Mikaël Cixous, Sophie Malafosse
  14.  * Copyright (c) 2007, Marin Dacos, Bruno Cénou, Sophie Malafosse, Pierre-Alain Mignot
  15.  *
  16.  * Home page: http://www.lodel.org
  17.  *
  18.  * E-Mail: lodel@lodel.org
  19.  *
  20.  * All Rights Reserved
  21.  *
  22.  * This program is free software; you can redistribute it and/or modify
  23.  * it under the terms of the GNU General Public License as published by
  24.  * the Free Software Foundation; either version 2 of the License, or
  25.  * (at your option) any later version.
  26.  *
  27.  * This program is distributed in the hope that it will be useful,
  28.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  29.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30.  * GNU General Public License for more details.
  31.  *
  32.  * You should have received a copy of the GNU General Public License
  33.  * along with this program; if not, write to the Free Software
  34.  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  35.  *
  36.  * @author Ghislain Picard
  37.  * @author Jean Lamy
  38.  * @copyright 2005, Ghislain Picard, Marin Dacos, Luc Santeramo, Gautier Poupeau, Jean Lamy, Bruno Cénou
  39.  * @copyright 2006, Marin Dacos, Luc Santeramo, Bruno Cénou, Jean Lamy, Mikaël Cixous, Sophie Malafosse
  40.  * @copyright 2007, Marin Dacos, Bruno Cénou, Sophie Malafosse, Pierre-Alain Mignot
  41.  * @licence http://www.gnu.org/copyleft/gpl.html
  42.  * @version CVS:$Id:
  43.  * @package lodel
  44.  */
  45.  
  46. require_once "func.php";
  47.  
  48. /**
  49.  * Retire les pièces jointes des mails sur une boîte mail donnée
  50.  *
  51.  * Cette fonction utilise les options lodelmail.host, lodelmail.user, lodelmail.passwd.
  52.  *
  53.  * @return le nombre de pièces jointes
  54.  */
  55. function checkmailforattachments()
  56. {
  57.     $options = getoption(array ("lodelmail.host", "lodelmail.user", "lodelmail.passwd"), "");
  58.     if (count($options) != 3 || !$options['lodelmail.host']) {
  59.         die('ERROR: To use this feature, you must create and fill the options host, user and passwd in the group lodelmail. See in the administration interface ');
  60.     }
  61.  
  62.     list ($host, $port) = explode(":", $options['lodelmail.host']);
  63.     $mailserver = "{".$host.":". ($port ? $port : "110")."/pop3}INBOX";
  64.     $passwd = $options['lodelmail.passwd'];
  65.     $user = $options['lodelmail.user'];
  66.  
  67.     $mbox = imap_open($mailserver, $user, $passwd);
  68.  
  69.     if ($mbox === false) {
  70.         die(imap_last_error());
  71.         return;
  72.     }
  73.  
  74.     $nbattachment = 0;
  75.     $nbmsg = imap_num_msg($mbox);
  76.  
  77.     for ($msgno = 1; $msgno <= $nbmsg; $msgno ++) {
  78.         $nbattachment += extractattachments($mbox, $msgno, "(je?pg|png|gif|tiff|sxw|doc|rtf|html?)");
  79.         imap_delete($mbox, $msgno);
  80.     }
  81.     imap_expunge($mbox);
  82.  
  83.     return $nbattachment;
  84. }
  85.  
  86. /**
  87.  * Extrait les pièces jointes des mails d'une boîte donnée
  88.  *
  89.  * @param object $mbox la boîte mail
  90.  * @param integer $mnum le numéro du mail
  91.  * @param string $extre extension acceptées
  92.  * @param integer $struct par défaut 0.la structure des pièces jointes
  93.  * @param integer $pno par défaut vide la partie des attachements (cas des mails multiparts)
  94.  *
  95.  */
  96. function extractattachments($mbox, $mnum, $extre, $struct = 0, $pno = "")
  97. {
  98.     $nbattachment = 0;
  99.     if ($struct === 0) {
  100.         $struct = imap_fetchstructure($mbox, $mnum);
  101.     }
  102.     switch ($struct->type) {
  103.     case 1 : // multipart
  104.         // look for the subpart
  105.         $partno = 1;
  106.         if ($pno) {
  107.             $pno .= ".";
  108.         }
  109.         while (list ($j) = each($struct->parts)) {
  110.             $nbattachment += extractattachments($mbox, $mnum, $extre, $struct->parts[$j], $pno.$partno);
  111.             $partno ++;
  112.         }
  113.         break;
  114.     case 2 : // message
  115.         // decode
  116.         $nbattachment += extractattachments($mbox, $mnum, $extre, $struct->parts[0], $pno);
  117.         break;
  118.     case 5 :
  119.     default : // other
  120.         // fetch the body of the part
  121.         $body = imap_fetchbody($mbox, $mnum, $pno);
  122.  
  123.         // dcode
  124.         if ($struct->encoding == 3) {
  125.             $body = imap_base64($body);
  126.         }
  127.         elseif ($struct->encoding == 4) {
  128.             $body = imap_qprint($body);
  129.         }
  130.  
  131.         // get the filename
  132.         if ($struct->parameters[0]->attribute == "NAME") {
  133.             $filename = $struct->parameters[0]->value;
  134.         }    else {
  135.             return; // no filename don't download
  136.         }
  137.         $filename = preg_replace("/[^\w\.]/", "_", $filename);
  138.         $extpos = strrpos($filename, ".");
  139.         $ext = substr($filename, $extpos);
  140.  
  141.         // check the extension is valid
  142.         if (!preg_match("/^\.".$extre."$/i", $ext)) {
  143.             return;
  144.         }
  145.  
  146.         if (strlen($filename) > 127) { // limit the length of the filename
  147.             $filename = substr($filename, 0, 127 - strlen($ext)).$ext;
  148.         }
  149.  
  150.         // save the attachment as $filename
  151.         writefile(SITEROOT."upload/".$filename, $body);
  152.         $nbattachment ++;
  153.         break;
  154.     }
  155.     return $nbattachment;
  156. }
  157. ?>
Documentation generated on Thu, 19 Jun 2008 05:07:52 +0200 by phpDocumentor 1.4.0a2