source: extensions/Mail_supervisor/main.inc.php @ 10388

Last change on this file since 10388 was 10388, checked in by cljosse, 14 years ago

[extensions] mail_supervisor fix bug on Bcc
File size: 12.4 KB
Line 
1<?php
2/*
3Plugin Name: Mail supervisor
4Version: auto
5Description: Mail supervisor surveille l'envoie des mails.
6Plugin URI: http://piwigo.org/ext/extension_view.php?eid=315
7Author: cljosse
8Author URI:http://cljosse.free.fr
9*/
10if (!defined('PHPWG_ROOT_PATH')) die('Hacking attempt!');
11if (!defined('mail_superv_DIR')) define('mail_superv_DIR' , basename(dirname(__FILE__)));
12if (!defined('MAIL_SUPERV_PATH')) define('MAIL_SUPERV_PATH' , PHPWG_PLUGINS_PATH.basename(dirname(__FILE__)).'/');
13
14$MAIL_SUPERV_PATH_ABS = str_replace('\\','/',dirname(__FILE__) );
15if (!defined('MAIL_SUPERV_PATH_ABS')) define(  'MAIL_SUPERV_PATH_ABS',   $MAIL_SUPERV_PATH_ABS."/");
16
17global $conf,$mails_options ;
18include_once (MAIL_SUPERV_PATH.'include/constants.php'); 
19include_once(MAIL_SUPERV_PATH.'mail_super.inc.php');
20
21$mail_supervisor = new mail_supervisor();
22add_event_handler('get_admin_plugin_menu_links', array(&$mail_supervisor,'admin_menu')  );
23
24$mails_options = mail_supervisor::Get_Options($mails_options,"mail_superv");
25/* EVENT_HANDLER_PRIORITY_NEUTRAL  */   
26//
27//
28include_once (PHPWG_ROOT_PATH.'include/functions_mail.inc.php' );
29include_once (MAIL_SUPERV_PATH.'include/fonctions.php'); 
30//===============loc_begin_index==============loc_after_page_header=============================================================
31add_event_handler('loc_begin_page_header',  array(&$mail_supervisor,'init')  );
32add_event_handler('loc_begin_page_tail',  array(&$mail_supervisor,'affiche_message')  );
33
34//==========================================================================================
35add_event_handler('send_mail', 'clj_mail',EVENT_HANDLER_PRIORITY_NEUTRAL - 10, 6);
36function clj_mail($result, $mailto, $subject, $content, $headers, $args) {
37  global $conf, $user, $lang_info; 
38  global $conf_mail,$mails_options,$mails_donnees ;
39  global  $template,$page ,$erreur_message,$infos_message, $lang; 
40  global $errors;
41  // lecture config table -------------
42  include_once (MAIL_SUPERV_PATH.'include/fonctions.php'); 
43  load_language('plugin.lang', MAIL_SUPERV_PATH); 
44  if (isset($_POST["Submit"]) ) {
45    if ($_POST["Submit"] != l10n('Sv_Envoyer') ) return true ;
46  } 
47  // remove_event_handler('send_mail', 'pwg_send_mail');     
48        $message ="";
49  if (!isset($infos_message))   {       $infos_message = "";    }
50  if (!isset($erreur_message))  {       $erreur_message = '';   }         
51   
52  // $mails_options = explode("," , $conf['mail_superv']);
53  $envoie_ok=true ;
54  //======== verification si envoie de mail ou blocage connexion =====================
55
56  if ($mails_options['no_mail_list']=='on' || $mails_options['no_connect'] == 'on' )    { 
57                if (kill_list()) {
58      $nb_destinataires=0; ;
59      $envoie_ok= false ;
60      $erreur_message .= "<BR />".l10n('Sv_is_a_spam') ;
61      $infos_message = l10n('Sv_mail_not_send')."<BR />"; 
62      if ($mails_options['no_connect'] == 'on' ){
63              if ($user['status'] == 'webmaster'){ 
64              //---------- continuer si web master ----------
65              }else{
66                      if (!isset($_GET['admin'])) {
67                                      die('Blacklist : <br />' .$erreur_message. '<br /> Hacking attempt!');
68                                        }elseif   ($_GET['admin'] != 'piwigo')
69                                                {
70                                      die('blacklist Hacking attempt!');
71                      }             
72              }                         
73      }
74         return true;
75                }
76        }
77  // lecture donnees       -------------
78  $mails_donnees = mail_supervisor::Get_Datas(); 
79  $nb_mails       =     $mails_donnees['nb_mails'] ;
80  $next_day  =  $mails_donnees['date_mail'] ;   
81  $reste =    $mails_donnees['reste'] ;         
82        $rest_mail =    $mails_donnees['rest_mail'] ; 
83        if ($rest_mail <=0 || $mails_donnees['nb_mails'] ==0 ){
84           $mails_donnees['nb_mails'] =0 ;
85           $mails_donnees['date_mail'] = time();
86        }       
87        $rest_spam =    $mails_donnees['rest_spam'] ;
88        if ($rest_spam <=0 || $mails_donnees['nb_spams'] ==0 ){
89           $mails_donnees['nb_spams'] =0 ;
90           $mails_donnees['date_spam'] = time();
91        }       
92        $alerte =   ( $mails_donnees['reste'] >0 ) ? true : false ;     
93        $alerte_mail =    ( $mails_donnees['nb_mails'] >   $mails_donnees['nb_mails_maxi']-1 ) ? true : false ;
94        $alerte_spam =    ( $mails_donnees['nb_spams'] >   $mails_donnees['nb_spams_maxi']-1 ) ? true : false ;
95
96  if ( ( !$alerte  && !$alerte_spam  && !$alerte_mail ) ) {             
97    $nb_destinataires=0; 
98  //====================================================
99    $match_email = $conf_mail['email_webmaster'];     
100    $new_args=array();
101    if( isset($args['Bcc']))
102    foreach($args['Bcc'] as $key => $val){ 
103      if (!preg_match('/'. $match_email.'/', $val)){ 
104          array_push($new_args, $val);
105      }else{
106                $mailto = $match_email;
107      }
108    }
109    $args['Bcc']=$new_args;
110     //=======================================================================
111     $nb_destinataires=0;
112    if ($mailto<>"" ) $nb_destinataires +=1;           
113                if (!empty($args['Cc']))  {     
114        $nb_destinataires += count($args['Cc']); 
115       
116    } 
117                if (!empty($args['Bcc']))  {   
118        $nb_destinataires += count($args['Bcc']);       
119    } 
120    if ($mailto == "" && $nb_destinataires==0 ) {
121      $mailto = $conf_mail['email_webmaster'];
122      $nb_destinataires ++;
123    }
124
125                if ($mails_options['check_mailto'] == 'on') {
126                        if ($mailto == "" && $nb_destinataires > 1 )    $mailto = $conf_mail['email_webmaster'];
127                }   
128
129        $infos_message .= "nb_destinataires : $nb_destinataires Theme :" . ($args['theme'] ) ."<br />";
130    //================= réecriture de l'entete ===============================
131    $match=array("<",">");
132    $string=array("&lt;","&gt;") ;                     
133    if ( $nb_destinataires  == 1 ) {   
134      if ($mailto == "" ) {     
135        if (!empty($args['Bcc'])){ 
136          $mailto = get_strict_email_list(implode(',', $args['Bcc']));
137          $args['Bcc']=array();
138        }else{   
139          if (!empty($args['Cc']) ){  $mailto=get_strict_email_list(implode(',', $args['Cc']));
140           $args['Cc']=array();
141          };
142        }
143      }
144      if ($mailto == "" ) {$nb_destinataires  = 0 ;}
145      $mailto  = $mailto ." \n"   ;
146      $headers =  preg_replace('/.*Bcc(.*).\n/i', '', $headers);
147      $headers =  preg_replace('/.*Cc(.*).\n/i', '', $headers);
148      $infos_message .="Destinataire:" .$mailto ;
149      //=============================================================================
150       
151    }else{
152          //=== plusieurs destinataires ===========
153      $cl_list_mail="";
154      if ($mailto !="") $infos_message .="To: " . $mailto . " "."<br />" ;     
155      if (!empty($args['Cc'])) {
156        $ret= corrige_header('Cc',$headers,$args,$cl_list_mail,$mailto);
157        $headers = $ret->headers;
158        if($ret->list_mail!="") $infos_message .="Cc: " .  ( $ret->list_mail)."  <br />" ;
159             
160      }
161      if (!empty($args['Bcc'])){ 
162          $ret  = corrige_header('Bcc',$headers,$args,$cl_list_mail,$mailto); 
163          $headers = $ret->headers ;
164          if($ret->list_mail!="") $infos_message .="Bcc: " . ( $ret->list_mail) ."  <br />";
165           
166       }     
167             $infos_message .=  " " ;
168    }
169     
170     
171            //=============================================================================
172            if ($mails_options['check_header_text']=='on')   {
173              $texte = "This is a multi-part message in MIME format.\n";       
174              $texte .= "-----=".$conf_mail['boundary_key']."\n"; 
175              $texte .= "Ceci est un message est au format MIME.\n"; 
176              $texte .= 'Content-Type: text/plain; charset="UTF-8"'."\n"; 
177              $texte .= 'Content-Transfer-Encoding: 8bit'."\n\n"; 
178              $texte .= $mails_donnees['header_text']; // A voir texte brut...     
179              $texte .= "\n\n";         
180              $content =$texte .$content ;
181            }   
182            // corrige erreur 'mail dropped, bare LF found'
183          /*   if ( preg_match('/\n\./',$content)){
184             $content=preg_replace('/\n\./', '/\n\.\./', $content);
185
186   //   $infos_message .= $content ;
187             }
188             $content = str_replace("\n.", "\n/./.", $content);
189             $headers = str_replace("\n.", "\n..", $headers);
190            $subject = str_replace("\n.", "\n..", $subject);
191             $mailto = str_replace("\n.", "\n..", $mailto);
192       */
193             
194            $ret=false; 
195                //======== Non mise en quarantaine ============= 
196         
197         
198                    ob_start();
199                      if ($nb_destinataires > 0) {   
200
201            if( $envoie_ok)  $ret = mail($mailto, $subject,$content, $headers); 
202           
203          }else{
204            $message .= l10n('Sv_no_receiver_available');
205          }
206        $message .= ob_get_contents();
207        ob_end_clean();
208        $mails_donnees['message']=$message;     
209        Gestion_erreurs($message,$ret,$nb_destinataires,$headers,$mailto);
210            } else {
211                    //================== Est en quarantaine =======================     
212                        $erreur_message .=      l10n('Sv_To_day_is')."<br />";
213                            if ($alerte_spam ) { 
214                                $type="Spams";                         
215                                        $d1=$mails_donnees['nb_spams'] . '  \\  ' . $mails_donnees['nb_spams_maxi'];
216                                        $d2=$mails_donnees['nb_spams'];
217                                        $d3= $mails_donnees['rest_spam'];
218                                        $d4=time()+$d3 ;
219                            } 
220                            if ($alerte_mail) {
221                    $type="Mails";                     
222                    $d1=$mails_donnees['nb_mails']. '  \\  ' . $mails_donnees['nb_mails_maxi'];;
223                    $d2=$mails_donnees['date_mail'];
224                    $d3= $mails_donnees['rest_mail'];
225                    $d4=time()+$d3 ;
226                            }
227                            if ($alerte) {
228                        $type="Spams(Quarantaine)";
229                                    $d1=$mails_donnees['nb_spams'] . '  \\  ' . $mails_donnees['nb_spams_maxi'];
230                                    $d2=$mails_donnees['date_quarantaine'];
231                                    $d3= $mails_donnees['reste'];
232                                    $d4=time()+$d3 ;
233                            } 
234            $d2=date(l10n('Sv_formatdate'),$d2);
235            $d3=int_to_heure($d3) ;
236            $d4=date(l10n('Sv_formatdate'),$d4);
237            if ($alerte_mail) {
238                    $erreur_message .='<br />'.sprintf(l10n('Sv_alerte_mail %s %s %s %s %s'),$type,$d1,$d2,$d3,$d4).'<br />';
239            }else{
240                        $erreur_message .='<br />'.sprintf(l10n('Sv_mise_en_quarantaine %s %s %s %s %s'),$type,$d1,$d2,$d3,$d4).'<br />';
241            }
242            $infos_message .= l10n('Sv_mail_not_send'); 
243            }           
244           $infos_message .= "<hr>";   
245    mail_supervisor::sauve_donnees();
246    mail_supervisor::affiche_message();
247    return true ;
248}
249//===========================================================================================   
250function Gestion_erreurs($message,$ret,$nb_destinataires,$headers,$mailto){                     
251         global $conf, $user,  $conf_mail,$mails_options,$mails_donnees , $template,$page ,$infos_message,$erreur_message,$args,$lang, $lang_info; 
252     $match=array("<",">");
253    $string=array("&lt;","&gt;") ;       
254//Warning: mail() has been disabled for security reasons
255       
256        $est_un_spam =!(strpos(strtolower($message), 'spam') === false);
257        $headers=str_replace( $match,$string, $headers); 
258       
259        if ( ($ret==false) || ($est_un_spam==true) || ($nb_destinataires == 0) ) {
260                 ;                              // Bad recipient address syntax
261                $pos1 = strpos(strtolower($message), 'bad recipient address syntax');
262                if (  !($pos1 === false) ){
263                        $erreur_message .= l10n('Sv_detection_de').' Bad recipient address syntax .';
264                        $erreur_message .= l10n('Sv_verifiez_les_destinataires').' (Bcc,Cc,To)<br />';
265                        }       
266       
267        $erreur_message .= sprintf(l10n('Sv_debug_message'),
268        ($ret==true)? "true" : "false",
269        $message ,
270        $mailto ,
271        $headers ,
272        $nb_destinataires );
273       //=============== La fonction mail retourne une erreur =========================         
274                                }       
275                               
276        if ($est_un_spam == false) 
277                        {
278                        if ($mails_donnees['nb_mails']==0) {    $mails_donnees['date_mail'] =  time();  }       
279                        $mails_donnees['nb_mails'] += $nb_destinataires;
280                        }
281                        else
282                        {
283                                $mails_donnees['nb_spams'] += $nb_destinataires;                       
284                            //--- Detection de spam ------------------
285                                if ($mails_donnees['nb_spams']==0) {$mails_donnees['date_spam'] = time();       }
286
287                                $trop_de_spam =!(strpos(strtolower($message), 'trop de spam') === false);
288                                if ( $trop_de_spam ) {
289                                                $mails_donnees['nb_spams_maxi']=$mails_donnees['nb_spams'];
290
291                                                $mails_donnees['date_quarantaine']= time()  ;   
292                                                $mails_donnees['quarantaine']= true    ;       
293                                                $infos_message .= mail_supervisor::Memo_Var($mails_donnees);
294                                        }
295                        }
296 $ret=true;
297 return $ret ; 
298}
299?>
Note: See TracBrowser for help on using the repository browser.