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

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

[Mail_Supervisor] compatibility with piwigo 2.2
File size: 11.4 KB
Line 
1<?php
2/*
3Plugin Name: Mail supervisor
4Version: 1.4.4 Beta
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__)).'/');
13include_once (MAIL_SUPERV_PATH.'include/constants.php'); 
14
15/* EVENT_HANDLER_PRIORITY_NEUTRAL  */
16
17 global $conf ;
18add_event_handler('send_mail', 'clj_mail',EVENT_HANDLER_PRIORITY_NEUTRAL - 1 , 6);
19function clj_mail($result, $mailto, $subject, $content, $headers, $args)
20{
21    global $conf, $user, $lang_info,  $conf_mail,$mails_options,$mails_donnees , $template,$page ,$erreur_message,$infos_message, $lang; 
22        // lecture config table -------------
23         include_once (MAIL_SUPERV_PATH.'include/fonctions.php'); 
24     load_language('plugin.lang', MAIL_SUPERV_PATH);
25         
26         if (isset($_POST["Submit"]) )
27         {
28         if ($_POST["Submit"] != l10n('Sv_Envoyer') ) return true ;
29         }
30        $message ="";
31        if (!isset($infos_message))
32        {
33        $infos_message = "";
34        }
35if (!isset($erreur_message))
36        {
37        $erreur_message = '';
38        }       
39         $mails_options = explode("," , $conf['mail_superv']);
40//======== verification si envoie de mail ou blocage connexion =====================
41        if ($mails_options[no_mail_list]=='on' || $mails_options[no_connect] == 'on' )
42        {
43                if (kill_list())
44                 {
45                  $erreur_message .= "<BR />".l10n('Sv_is_a_spam') ;
46                 if ($mails_options[no_connect] == 'on' ){
47                  if ($user['status'] == 'webmaster'  )
48                        { 
49                          //---------- continuer si web master ----------
50                        }else{
51                                  if (!isset($_GET['admin'])) {
52                                                 die('Blacklist : <br />' .$erreur_message. '<br /> Hacking attempt!');
53                                       }elseif   ($_GET['admin'] != 'piwigo')
54                                               {
55                                                 die('blacklist Hacking attempt!');
56                                        }
57                      return true;
58                          } 
59                         
60                        }
61                       
62                 }
63        }
64       
65
66        // lecture donnees       -------------
67    $mails_donnees = Get_Datas();
68 
69        $nb_mails         =     $mails_donnees['nb_mails'] ;
70        $next_day  =  $mails_donnees['date_mail'] ;
71       
72        $reste =    $mails_donnees['reste'] ;
73       
74       
75        $rest_mail =    $mails_donnees['rest_mail'] ;
76        if ($rest_mail <=0 || $mails_donnees['nb_mails'] ==0 ){
77           $mails_donnees['nb_mails'] =0 ;
78           $mails_donnees['date_mail'] = time();
79        }
80       
81        $rest_spam =    $mails_donnees['rest_spam'] ;
82        if ($rest_spam <=0 || $mails_donnees['nb_spams'] ==0 ){
83           $mails_donnees['nb_spams'] =0 ;
84           $mails_donnees['date_spam'] = time();
85        }
86       
87        $alerte =   ( $mails_donnees['reste'] >0 ) ? true : false ; 
88       
89        $alerte_mail =    ( $mails_donnees['nb_mails'] >   $mails_donnees['nb_mails_maxi']-1 ) ? true : false ;
90        $alerte_spam =    (  $mails_donnees['nb_spams'] >   $mails_donnees['nb_spams_maxi']-1 ) ? true : false ;
91       
92 
93 if ( ( !$alerte  && !$alerte_spam  && !$alerte_mail ) ) 
94        {
95                 
96  $nb_destinataires=0;
97                if ($mails_options[check_mailto] == 'on') {
98                        if ($mailto == "" )     $mailto = $conf_mail['email_webmaster'];
99                }   
100 if ($mailto<>"" )            $nb_destinataires +=1; 
101
102                if (!empty($args['Bcc'])) { $nb_destinataires += count($args['Bcc']);   } 
103                if (!empty($args['Cc']))  {     $nb_destinataires += count($args['Cc']);        }
104
105   
106        $infos_message .= "<hr> Theme :" . ($args['theme'] ) ."<br />";
107    $infos_message .="nombre de destinataire:".$nb_destinataires." <br />" ;
108
109   //================= reecriture de l'entete ===============================
110    $match=array("<",">");
111    $string=array("&lt;","&gt;") ;     
112       
113if ( $nb_destinataires  == 1 && $mailto != "" )
114        {   
115    $infos_message .="--> Mailto: " . $mailto." \n" ;
116   
117                if ($mailto != "" ) 
118                  {
119
120                 $mailto  = $mailto ." \n"   ;
121                $headers =  preg_replace('/.*Bcc(.*).\n/i', '', $headers);
122                                $headers =  preg_replace('/.*Cc(.*).\n/i', '', $headers);
123               
124                       
125                  }
126     //=============================================================================
127             
128           
129                if (!empty($args['Bcc']) ) $infos_message .="Bcc: " . memo_var($args['Bcc']) ." \n";
130                if (!empty($args['Cc']) ) $infos_message .="Cc: " . memo_var($args['Cc'])." \n" ;
131                $infos_message .="Mailto: [" . $mailto . "]"." \n".$headers;             
132         
133        }else{
134//=== plusieurs destinataires ===========
135$cl_list_mail="";
136
137  if ($mailto !="") $infos_message .="To: " . $mailto . " "." /n" ;     
138        if (!empty($args['Cc'])) {
139        $ret= corrige_header('Cc',$headers,$args,$cl_list_mail);
140          $headers = $ret->headers;
141          $infos_message .="Cc: " .  ( $ret->list_mail)."  <br />" ;
142        }
143        if (!empty($args['Bcc'])){ 
144           $ret = corrige_header('Bcc',$headers,$args,$cl_list_mail); 
145         
146           $headers = $ret->headers ;
147           $infos_message .="Bcc: " . ( $ret->list_mail) ."  <br />";
148        }
149     
150        $infos_message .=  " " ;
151}
152// $infos_message .= $content ;
153//=============================================================================
154if ($mails_options[check_header_text]=='on')   {
155
156        $texte = "This is a multi-part message in MIME format.\n"; 
157       
158        $texte .= "-----=".$conf_mail['boundary_key']."\n"; 
159        $texte .= "Ceci est un message est au format MIME.\n"; 
160        $texte .= 'Content-Type: text/plain; charset="UTF-8"'."\n"; 
161        $texte .= 'Content-Transfer-Encoding: 8bit'."\n\n"; 
162        $texte .= $mails_donnees['header_text']; // A voir texte brut...
163           
164                $texte .= "\n\n"; 
165       
166                $content =$texte .$content ;
167}
168 
169$ret=false;
170
171            //======== Non mise en quarantaine =============
172                ob_start();
173                $ret = false;
174                 if ($nb_destinataires > 0) {
175                 // corrige erreur 'mail dropped, bare LF found'
176                 $content = str_replace("\n.", "\n..", $content);
177                 $headers = str_replace("\n.", "\n..", $headers);
178                 $subject = str_replace("\n.", "\n..", $subject);
179                 $mailto = str_replace("\n.", "\n..", $mailto);
180             $ret = mail($mailto, $subject, $content, $headers);
181       
182                        }else{
183                           $message .= l10n('Sv_no_receiver_available');
184                        }
185                        $message .= ob_get_contents();
186            ob_end_clean();
187                        $mails_donnees['message']=$message;     
188                        Gestion_erreurs($message,$ret,$nb_destinataires,$headers,$mailto);
189               
190       
191       
192        } else {
193
194        //================== Est en quarantaine =======================
195                $erreur_message .=      l10n('Sv_To_day_is')."<br />";
196                        if ($alerte_spam ) { 
197                        $type="Spams";
198                               
199                                $d1=$mails_donnees['nb_spams'] . '  \\  ' . $mails_donnees['nb_spams_maxi'];
200                                $d2=$mails_donnees['nb_spams'];
201                                $d3= $mails_donnees['rest_spam'];
202                                $d4=time()+$d3 ;
203                        } 
204 
205                        if ($alerte_mail) {
206                        $type="Mails";
207                       
208                                $d1=$mails_donnees['nb_mails']. '  \\  ' . $mails_donnees['nb_mails_maxi'];;
209                                $d2=$mails_donnees['date_mail'];
210                                $d3= $mails_donnees['rest_mail'];
211                                $d4=time()+$d3 ;
212                               
213                               
214                        }
215                        if ($alerte) {
216                        $type="Spams(Quarantaine)";
217                                $d1=$mails_donnees['nb_spams'] . '  \\  ' . $mails_donnees['nb_spams_maxi'];
218                                $d2=$mails_donnees['date_quarantaine'];
219                                $d3= $mails_donnees['reste'];
220                                $d4=time()+$d3 ;
221                        } 
222
223
224$d2=date(l10n('Sv_formatdate'),$d2);
225$d3=int_to_heure($d3) ;
226$d4=date(l10n('Sv_formatdate'),$d4);
227
228        if ($alerte_mail) {
229              $erreur_message .='<br />'.sprintf(l10n('Sv_alerte_mail %s %s %s %s %s'),$type,$d1,$d2,$d3,$d4).'<br />';
230                }else{
231                           $erreur_message .='<br />'.sprintf(l10n('Sv_mise_en_quarantaine %s %s %s %s %s'),$type,$d1,$d2,$d3,$d4).'<br />';
232
233                }
234 $infos_message .= l10n('Sv_mail_not_send');
235 
236 }                     
237 sauve_donnees();
238 return true ;
239}
240//===========================================================================================   
241function Gestion_erreurs($message,$ret,$nb_destinataires,$headers,$mailto)
242{                       
243         global $conf, $user,  $conf_mail,$mails_options,$mails_donnees , $template,$page ,$infos_message,$erreur_message,$args,$lang, $lang_info; 
244
245         
246         
247    $match=array("<",">");
248    $string=array("&lt;","&gt;") ;       
249//Warning: mail() has been disabled for security reasons
250       
251        $est_un_spam =!(strpos(strtolower($message), 'spam') === false);
252        $headers=str_replace( $match,$string, $headers); 
253       
254        if ( ($ret==false) || ($est_un_spam==true) || ($nb_destinataires == 0) ) {
255                 ;                              // Bad recipient address syntax
256                $pos1 = strpos(strtolower($message), 'bad recipient address syntax');
257                if (  !($pos1 === false) ){
258                        $erreur_message .= l10n('Sv_detection_de').' Bad recipient address syntax .';
259                        $erreur_message .= l10n('Sv_verifiez_les_destinataires').' (Bcc,Cc,To)<br />';
260                        }       
261       
262        $erreur_message .= sprintf(l10n('Sv_debug_message'),
263        ($ret==true)? "true" : "false",
264        $message ,
265        $mailto ,
266        $headers ,
267        $nb_destinataires );
268       //=============== La fonction mail   retourneeune erreur =========================               
269
270                               
271                                }       
272                               
273        if ($est_un_spam == false) 
274                        {
275                        if ($mails_donnees['nb_mails']==0) {    $mails_donnees['date_mail'] =  time();  }       
276                        $mails_donnees['nb_mails'] += $nb_destinataires;
277                        }
278                        else
279                        {
280                                $mails_donnees['nb_spams'] += $nb_destinataires;                       
281                            //--- Detection de spam ------------------
282                                if ($mails_donnees['nb_spams']==0) {$mails_donnees['date_spam'] = time();       }
283
284                                $trop_de_spam =!(strpos(strtolower($message), 'trop de spam') === false);
285                                if ( $trop_de_spam ) {
286                                                $mails_donnees['nb_spams_maxi']=$mails_donnees['nb_spams'];
287
288                                                $mails_donnees['date_quarantaine']= time()  ;   
289                                                $mails_donnees['quarantaine']= true    ;       
290                                                $infos_message .=memo_var($mails_donnees);
291                                        }
292
293                        }
294 $ret=true;
295 return $ret ;
296 
297}
298
299//==========================================================================================
300add_event_handler('get_admin_plugin_menu_links', 'admin_menu');
301function admin_menu($menu)
302{
303    array_push($menu, array('NAME' => 'Mail_Superv',
304      'URL' => get_admin_plugin_menu_link(MAIL_SUPERV_PATH . 'admin/mail_superv_admin.php')));
305    return $menu;
306}
307//==========================================================================================
308add_event_handler('loc_after_page_header','affiche_spam' );//
309function affiche_spam ()
310
311{
312include_once (MAIL_SUPERV_PATH.'include/fonctions.php'); 
313
314  affiche_message();
315   
316}
317    include_once (MAIL_SUPERV_PATH.'include/fonctions.php');
318        $mails_options = explode("," , $conf['mail_superv']);
319
320//==========================================================================================
321if ($mails_options[set_id]=='on'  ) {
322 add_event_handler('register_user_check', 'Test_spam_g', EVENT_HANDLER_PRIORITY_NEUTRAL +2  , 2);
323 }
324function Test_spam_g ($err, $user)
325{
326
327if (count($err)!=0 ) return $err ; 
328if ( !isset($_POST['submit_add']) && !isset($_POST['submit'])  ) return $err ; 
329//Liableelard
330include_once (MAIL_SUPERV_PATH.'include/fonctions.php');
331
332if ( isset($_POST['submit'])) {
333        $mail  =  $_POST['mail_address'] ;
334        $user_name = $_POST['login'] ;
335}else{
336        $mail  = $user['email'];
337        $user_name = $user['username'];
338}
339 $user_name =""; // suppression du test sur user name.
340 $ip='0'; 
341 
342                if (test_spam($ip,$user_name ,$mail ))
343                 { 
344                 //if (test_spam($ip,$user_name ,"" )) {
345                 // $err[] = $user_name . " ". l10n('Sv_is_a_login_spam')   ;
346                // }else                 
347                    $err[] = $user_name . " : " .$mail . " ". l10n('Sv_is_a_spam')   ;
348                 }
349                 
350return $err ; 
351}
352
353
354?>
Note: See TracBrowser for help on using the repository browser.