Context Navigation

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

Last change on this file since 11814 was 11814, checked in by cljosse, 13 years ago
[extensions] set_plugins
File size: 17.8 KB

Rev	Line
[4020]	1	<?php
	2	/*
	3	Plugin Name: Mail supervisor
[9702]	4	Version: auto
[4225]	5	Description: Mail supervisor surveille l'envoie des mails.
[4023]	6	Plugin URI: http://piwigo.org/ext/extension_view.php?eid=315
[4020]	7	Author: cljosse
[4199]	8	Author URI:http://cljosse.free.fr
[4020]	9	*/
	10	if (!defined('PHPWG_ROOT_PATH')) die('Hacking attempt!');
[9702]	11	if (!defined('mail_superv_DIR')) define('mail_superv_DIR' , basename(dirname(__FILE__)));
[4041]	12	if (!defined('MAIL_SUPERV_PATH')) define('MAIL_SUPERV_PATH' , PHPWG_PLUGINS_PATH.basename(dirname(__FILE__)).'/');
[10385]	13
	14	$MAIL_SUPERV_PATH_ABS = str_replace('\\','/',dirname(__FILE__) );
[9702]	15	if (!defined('MAIL_SUPERV_PATH_ABS')) define( 'MAIL_SUPERV_PATH_ABS', $MAIL_SUPERV_PATH_ABS."/");
[10385]	16
[9702]	17	global $conf,$mails_options ;
[10419]	18	include_once (MAIL_SUPERV_PATH.'include/constants.php');
[9702]	19	include_once(MAIL_SUPERV_PATH.'mail_super.inc.php');
[10385]	20
[9702]	21	$mail_supervisor = new mail_supervisor();
	22	add_event_handler('get_admin_plugin_menu_links', array(&$mail_supervisor,'admin_menu') );
[4020]	23
[11807]	24	mail_supervisor::Get_Options($mails_options,"mail_superv");
	25
[10419]	26	/* EVENT_HANDLER_PRIORITY_NEUTRAL */
[9702]	27	//
	28	//
[10385]	29	include_once (PHPWG_ROOT_PATH.'include/functions_mail.inc.php' );
[10419]	30	include_once (MAIL_SUPERV_PATH.'include/fonctions.php');
[11807]	31	//===============loc_begin_index
	32	//==== loc_begin_page_header
	33	//========== loc_after_page_header
[10564]	34	add_event_handler('loc_after_page_header', array(&$mail_supervisor,'init') );
[9702]	35	add_event_handler('loc_begin_page_tail', array(&$mail_supervisor,'affiche_message') );
[4020]	36
[11807]	37	include_once(MAIL_SUPERV_PATH.'mail_send.inc.php');
	38	$clj = new clj();
	39
	40	add_event_handler('send_mail',array(&$clj,'send_mail'),EVENT_HANDLER_PRIORITY_NEUTRAL - 1, 6);
	41	add_event_handler('send_mail_to',array(&$clj,'send_mail_to') );
	42	add_event_handler('send_mail_subject',array(&$clj,'send_mail_subject') );
	43	add_event_handler('send_mail_content',array(&$clj,'send_mail_content') );
	44	add_event_handler('send_mail_headers',array(&$clj,'send_mail_headers'),EVENT_HANDLER_PRIORITY_NEUTRAL,6 );
	45
[9702]	46	//==========================================================================================
[11807]	47	//add_event_handler('send_mail', 'clj_send_mail',EVENT_HANDLER_PRIORITY_NEUTRAL - 10, 6);
	48
	49	function clj_send_mail($result, $mailto, $subject, $content, $headers, $args) {
[10419]	50	global $conf, $user, $lang_info;
[10385]	51	global $conf_mail,$mails_options,$mails_donnees ;
[10419]	52	global $template,$page ,$erreur_message,$infos_message, $lang;
[10385]	53	global $errors;
	54	// lecture config table -------------
[11807]	55
	56
[10419]	57	include_once (MAIL_SUPERV_PATH.'include/fonctions.php');
	58	load_language('plugin.lang', MAIL_SUPERV_PATH);
	59
[10816]	60	$arg_trigg= array($mailto, $subject, $content, $headers, $args);
	61
	62	trigger_event('mail_supervisor_clj_mail',$arg_trigg);
	63
[10419]	64	// remove_event_handler('send_mail', 'pwg_send_mail');
	65	$message ="";
	66	if (!isset($infos_message)) { $infos_message = ""; }
	67	if (!isset($erreur_message)) { $erreur_message = ''; }
	68
[10385]	69	// $mails_options = explode("," , $conf['mail_superv']);
	70	$envoie_ok=true ;
	71	//======== verification si envoie de mail ou blocage connexion =====================
[9702]	72
[10419]	73	if ($mails_options['no_mail_list']=='on' \|\| $mails_options['no_connect'] == 'on' ) {
[10816]	74	if (kill_list()) {
[9702]	75	$nb_destinataires=0; ;
	76	$envoie_ok= false ;
	77	$erreur_message .= "<BR />".l10n('Sv_is_a_spam') ;
[10419]	78	$infos_message = l10n('Sv_mail_not_send')."<BR />";
[10816]	79	if ($mails_options['no_connect'] == 'on' ){
[10419]	80	if ($user['status'] == 'webmaster'){
	81	//---------- continuer si web master ----------
	82	}else{
[10816]	83	trigger_event('mail_supervisor_send_mail', "DIE(KILL) : " . $ip . ' = ' . $user['status']);
[10419]	84	if (!isset($_GET['admin'])) {
	85	die('Blacklist : <br />' .$erreur_message. '<br /> Hacking attempt!');
	86	}elseif ($_GET['admin'] != 'piwigo')
	87	{
	88	die('blacklist Hacking attempt!');
	89	}
	90	}
[10385]	91	}
[10816]	92	trigger_event('mail_supervisor_send_mail', "Kill : " . $ip . ' = ' . $user['status'] . "noconnect==off");
	93	return true;
	94	}
[10419]	95	}
[10385]	96	// lecture donnees -------------
[10419]	97	$mails_donnees = mail_supervisor::Get_Datas();
	98	$nb_mails = $mails_donnees['nb_mails'] ;
	99	$next_day = $mails_donnees['date_mail'] ;
	100	$reste = $mails_donnees['reste'] ;
	101	$rest_mail = $mails_donnees['rest_mail'] ;
	102	if ($rest_mail <=0 \|\| $mails_donnees['nb_mails'] ==0 ){
	103	$mails_donnees['nb_mails'] =0 ;
	104	$mails_donnees['date_mail'] = time();
	105	}
	106	$rest_spam = $mails_donnees['rest_spam'] ;
	107	if ($rest_spam <=0 \|\| $mails_donnees['nb_spams'] ==0 ){
	108	$mails_donnees['nb_spams'] =0 ;
	109	$mails_donnees['date_spam'] = time();
	110	}
	111	$alerte = ( $mails_donnees['reste'] >0 ) ? true : false ;
	112	$alerte_mail = ( $mails_donnees['nb_mails'] > $mails_donnees['nb_mails_maxi']-1 ) ? true : false ;
	113	$alerte_spam = ( $mails_donnees['nb_spams'] > $mails_donnees['nb_spams_maxi']-1 ) ? true : false ;
[4049]	114
[10419]	115	if ( ( !$alerte && !$alerte_spam && !$alerte_mail ) ) {
	116	$nb_destinataires=0;
[10385]	117	//====================================================
[10419]	118	$match_email = $conf_mail['email_webmaster'];
	119
[10385]	120	$new_args=array();
[10388]	121	if( isset($args['Bcc']))
[10419]	122	foreach($args['Bcc'] as $key => $val){
	123	if (!preg_match('/'. $match_email.'/', $val)){
[10385]	124	array_push($new_args, $val);
	125	}else{
[10419]	126	$mailto = $match_email;
[10385]	127	}
	128	}
	129	$args['Bcc']=$new_args;
	130	//=======================================================================
	131	$nb_destinataires=0;
[10419]	132	if ($mailto<>"" ) $nb_destinataires +=1;
	133	if (!empty($args['Cc'])) {
	134	$nb_destinataires += count($args['Cc']);
	135
	136	}
	137	if (!empty($args['Bcc'])) {
	138	$nb_destinataires += count($args['Bcc']);
	139	}
	140	if ($mailto == "" && $nb_destinataires==0 ) {
[10385]	141	$mailto = $conf_mail['email_webmaster'];
	142	$nb_destinataires ++;
	143	}
[8917]	144
[10419]	145	if ($mails_options['check_mailto'] == 'on') {
	146	if ($mailto == "" && $nb_destinataires > 1 ) $mailto = $conf_mail['email_webmaster'];
	147	}
[8917]	148
[10419]	149	$infos_message .= "nb_destinataires : $nb_destinataires Theme :" . ($args['theme'] ) ."{". $lang_info['language_name'] ."}"."<br />";
[11807]	150	//================= réecriture de l'entete ===============================
[10385]	151	$match=array("<",">");
[10419]	152	$string=array("<",">") ;
	153	if ( $nb_destinataires == 1 ) {
	154	if ($mailto == "" ) {
	155	if (!empty($args['Bcc'])){
[10385]	156	$mailto = get_strict_email_list(implode(',', $args['Bcc']));
	157	$args['Bcc']=array();
[10419]	158	}else{
[10385]	159	if (!empty($args['Cc']) ){ $mailto=get_strict_email_list(implode(',', $args['Cc']));
	160	$args['Cc']=array();
	161	};
	162	}
	163	}
	164	if ($mailto == "" ) {$nb_destinataires = 0 ;}
	165	$mailto = $mailto ." \n" ;
	166	$headers = preg_replace('/.Bcc(.).\n/i', '', $headers);
	167	$headers = preg_replace('/.Cc(.).\n/i', '', $headers);
	168	$infos_message .="Destinataire:" .$mailto ;
	169	//=============================================================================
[10419]	170
[10385]	171	}else{
	172	//=== plusieurs destinataires ===========
	173	$cl_list_mail="";
[10419]	174	if ($mailto !="") $infos_message .="To: " . $mailto . " "."<br />" ;
[10385]	175	if (!empty($args['Cc'])) {
	176	$ret= corrige_header('Cc',$headers,$args,$cl_list_mail,$mailto);
	177	$headers = $ret->headers;
	178	if($ret->list_mail!="") $infos_message .="Cc: " . ( $ret->list_mail)." <br />" ;
[10419]	179
[10385]	180	}
[10419]	181	if (!empty($args['Bcc'])){
	182	$ret = corrige_header('Bcc',$headers,$args,$cl_list_mail,$mailto);
[10385]	183	$headers = $ret->headers ;
	184	if($ret->list_mail!="") $infos_message .="Bcc: " . ( $ret->list_mail) ." <br />";
[10419]	185
	186	}
	187	$infos_message .= " " ;
[10385]	188	}
[10816]	189
[11807]	190	//======================================================
	191	// si adresse avec ip , certaine boite aux lettres traite ces messages
	192	// en spam (orange+windowsmail)
	193	//======================================================
	194	if ( $mails_options['no_ipaddress'] == 'on' ){
	195	$pattern ="/(http:\/\/)(((25[0-5]\|2[0-4][0-9]\|1[0-9]{2}\|[1-9]{1}[0-9]\|[1-9])\.){1}((25[0-5]\|2[0-4][0-9]\|[1]{1}[0-9]{2}\|[1-9]{1}[0-9]\|[0-9])\.){2}((25[0-5]\|2[0-4][0-9]\|[1]{1}[0-9]{2}\|[1-9]{1}[0-9]\|[0-9]){1}))/" ;
	196	if(preg_match($pattern, $content)){
	197	$replacement = "http://localhost";
	198	$content = preg_replace( $pattern, $replacement, $content );
	199	}
	200	}
	201	//======================================================
[11813]	202	// Format TEXTE
	203	//======================================================
[11814]	204	if(isset($args['content_format']) &&
	205	isset($args['email_format']) &&
	206	$args['content_format'] == 'text/plain'
	207	&& $args['email_format'] == 'text/plain'){
[11813]	208	$pattern ="/" . preg_quote("Content-Type: multipart/alternative", '/')."/" ;
	209	$headers= preg_replace($pattern, "Content-type: text/plain",$headers); //format text
	210	$content=$args['content'];
	211	$cache_key = $args['email_format'].'-'.$lang_info['code'].'-'.$args['theme'];
	212	$content.= $conf_mail[$cache_key]['footer'];
	213	}
	214	//======================================================
[11807]	215	// drop LF barre
	216	//======================================================
[11813]	217	$pattern ="/" . preg_quote($pattern, '/')."/" ;
[11807]	218	$pattern="/free.fr\|club/";
	219	if( preg_match($pattern, $mailto) \|\| preg_match($pattern, $headers) ){
	220	$content= preg_replace('#(?<!\r)\n#si', "\r\n", $content); //drop LF barre
[11813]	221	}
[11807]	222
	223
	224	//=====================================================================
[10822]	225	if (!preg_match('/'. $conf_mail['boundary_key'] .'/', $headers)){
	226	$erreur_message .= "<br />ERREUR manque : boundary_key dans le headers <br />";
[10816]	227	$infos_message = l10n('Sv_mail_not_send');
[10822]	228	$envoie_ok= false ;
[11807]	229
[11813]	230
[10816]	231	}
[11807]	232	//=====================================================================
	233	$ret="false";
[10822]	234	ob_start();
[10419]	235	//======== Non mise en quarantaine =============
[10822]	236	//echo "warning spam" ;
	237	// echo " Warning: mail() has been disabled for security reasons";
	238
[10419]	239	if ($nb_destinataires > 0) {
[11807]	240	if( $envoie_ok) {
	241	$ret = mail($mailto, $subject,$content, $headers);
	242	}
[10816]	243	}else{
	244	$message .= l10n('Sv_no_receiver_available');
	245	}
	246	$message .= ob_get_contents();
	247	ob_end_clean();
	248	$arg_trigg= array("Nb destinataires: " . $nb_destinataires,"Mail to: ".$mailto,"content: ".$content, " Reponse : " . $message);
	249	trigger_event('mail_supervisor_mail', $arg_trigg );
	250	$mails_donnees['message']=$message;
[11807]	251	$ret= Gestion_erreurs($message,$ret,$nb_destinataires,$headers,$mailto, $subject,$content);
[9702]	252	} else {
[10419]	253	//================== Est en quarantaine =======================
[11807]	254
[10419]	255	$erreur_message .= l10n('Sv_To_day_is')."<br />";
	256	if ($alerte_spam ) {
	257	$type="Spams";
	258	$d1=$mails_donnees['nb_spams'] . ' \\ ' . $mails_donnees['nb_spams_maxi'];
	259	$d2=$mails_donnees['nb_spams'];
	260	$d3= $mails_donnees['rest_spam'];
	261	$d4=time()+$d3 ;
	262	}
	263	if ($alerte_mail) {
	264	$type="Mails";
[9702]	265	$d1=$mails_donnees['nb_mails']. ' \\ ' . $mails_donnees['nb_mails_maxi'];;
	266	$d2=$mails_donnees['date_mail'];
	267	$d3= $mails_donnees['rest_mail'];
	268	$d4=time()+$d3 ;
[10419]	269	}
	270	if ($alerte) {
	271	$type="Spams(Quarantaine)";
	272	$d1=$mails_donnees['nb_spams'] . ' \\ ' . $mails_donnees['nb_spams_maxi'];
	273	$d2=$mails_donnees['date_quarantaine'];
	274	$d3= $mails_donnees['reste'];
	275	$d4=time()+$d3 ;
	276	}
[9702]	277	$d2=date(l10n('Sv_formatdate'),$d2);
	278	$d3=int_to_heure($d3) ;
	279	$d4=date(l10n('Sv_formatdate'),$d4);
	280	if ($alerte_mail) {
[10419]	281	$erreur_message .='<br />'.sprintf(l10n('Sv_alerte_mail %s %s %s %s %s'),$type,$d1,$d2,$d3,$d4).'<br />';
[9702]	282	}else{
[10419]	283	$erreur_message .='<br />'.sprintf(l10n('Sv_mise_en_quarantaine %s %s %s %s %s'),$type,$d1,$d2,$d3,$d4).'<br />';
[9702]	284	}
[11807]	285	$ret = "Error ". $type." : ";
	286	$ret .= l10n('Sv_mail_not_send');
	287
[10419]	288	$infos_message .= l10n('Sv_mail_not_send');
	289	}
[10816]	290	$infos_message .= "<hr>";
	291	trigger_event('mail_supervisor_message', $infos_message );
[9702]	292	mail_supervisor::sauve_donnees();
	293	mail_supervisor::affiche_message();
[10816]	294
[11807]	295	return $ret ;//
[4029]	296	}
[10419]	297	//===========================================================================================
[10822]	298	function Gestion_erreurs($message,$ret,$nb_destinataires,$headers,$mailto, $subject,$content){
[10419]	299	global $conf, $user, $conf_mail,$mails_options,$mails_donnees , $template,$page ,$infos_message,$erreur_message,$args,$lang, $lang_info;
[9702]	300	$match=array("<",">");
[10822]	301	$string=array("<",">") ;
	302	// $headers=str_replace( $match,$string, $headers);
	303	// Warning: mail() has been disabled for security reasons
	304	$est_un_spam =!(strpos(strtolower($message), 'spam') === false);
[10419]	305	if ( ($ret==false) \|\| ($est_un_spam==true) \|\| ($nb_destinataires == 0) ) {
[11807]	306	//=============== La fonction mail retourne une erreur =========================
	307	$ret="Error";
[10822]	308	// Bad recipient address syntax
[10419]	309	$pos1 = strpos(strtolower($message), 'bad recipient address syntax');
	310	if ( !($pos1 === false) ){
	311	$erreur_message .= l10n('Sv_detection_de').' Bad recipient address syntax .';
	312	$erreur_message .= l10n('Sv_verifiez_les_destinataires').' (Bcc,Cc,To)<br />';
[10822]	313	}
[11807]	314	$erreur_message .=$ret . " : <br />".sprintf(l10n('Sv_debug_message'),
[10822]	315	($ret==true)? "true" : "false",
	316	htmlspecialchars($message) ,
	317	htmlspecialchars( $mailto) ,
	318	htmlspecialchars($subject) ,
	319	htmlspecialchars($headers) ,
	320	htmlspecialchars($content) ,
	321	$nb_destinataires );
[10419]	322
[10822]	323	Mail_supervisor_log($mailto,$erreur_message) ;
	324
[11807]	325	}else{
[10822]	326	if( isset($mails_options['debug_mail']) && $mails_options['debug_mail']=="on") {
[11807]	327	$infos_message .="DEBUG : <br />" .sprintf(l10n('Sv_debug_message'),
	328	($ret==true)? "true" : "false",
[10822]	329	htmlspecialchars( $message) ,
	330	htmlspecialchars( $mailto) ,
	331	htmlspecialchars($subject) ,
	332	htmlspecialchars($headers) ,
	333	htmlspecialchars($content) ,
	334	$nb_destinataires );
	335
[11807]	336	Mail_supervisor_log($mailto,$infos_message) ;
[10822]	337	}
	338	}
[11807]	339	//=================================================================
[10822]	340
	341
	342	if ($est_un_spam == false){
[10419]	343	if ($mails_donnees['nb_mails']==0) { $mails_donnees['date_mail'] = time(); }
	344	$mails_donnees['nb_mails'] += $nb_destinataires;
[10822]	345	} else {
[11807]	346	$ret="Error spam";
[10419]	347	$mails_donnees['nb_spams'] += $nb_destinataires;
	348	//--- Detection de spam ------------------
	349	if ($mails_donnees['nb_spams']==0) {$mails_donnees['date_spam'] = time(); }
	350
	351	$trop_de_spam =!(strpos(strtolower($message), 'trop de spam') === false);
	352	if ( $trop_de_spam ) {
	353	$mails_donnees['nb_spams_maxi']=$mails_donnees['nb_spams'];
	354
	355	$mails_donnees['date_quarantaine']= time() ;
	356	$mails_donnees['quarantaine']= true ;
	357	$infos_message .= mail_supervisor::Memo_Var($mails_donnees);
	358	}
	359	}
	360	return $ret ;
[4020]	361	}
[10822]	362	//============================================================
	363	global $ms_file_log;
	364	$dir=$conf['local_data_dir'].'/Mail_supervisor_log';
	365	if (!is_dir($dir)){
	366	$umask = umask(0);
	367	$mkd = @mkdir($dir, 0755, true );
	368	umask($umask);
[10816]	369
[10822]	370	if ($mkd==false){
	371	fatal_error( "$dir ".l10n('no write access'));
	372	return false;
	373	}
	374	$file = $dir.'/.htaccess';
	375	@file_put_contents( $file, 'allow from all' );
	376
	377	}
	378	if($ms_file_log=="") $ms_file_log=$dir."/"."pw1.html";
	379
	380
	381	//============================================================
	382	function Mail_supervisor_log($label_,$lines){
	383	global $ms_file_log,$conf;
	384	$nb_lignes=300 ;
	385	$t= var_export( $lines, true );
	386	$s = htmlspecialchars( $lines);
	387	$s = ( $lines);
	388	if (!file_exists($ms_file_log)) {
	389	$handle = fopen($ms_file_log, 'w');
	390	fwrite($handle, "\n");
	391	fclose($handle);
	392	}
	393	$tableau=file($ms_file_log);
	394	$handle = fopen($ms_file_log, 'a');
	395	$nb=count ($tableau);
	396	if($nb>$nb_lignes) {
	397	$handle = fopen($ms_file_log, 'w');
	398	fwrite($handle, $nb. " > " . $nb_lignes . " RAZ " ."\n");
	399	}
	400	//rewind ($handle); // Go back to the beginning
	401	//fwrite ($handle, sprintf("%5d ", $nb)); // Don't forget to increment the counter
	402	$s="\n".date('Y m d H:m:s ')."\n".$s;
	403
	404
	405	$s= nl2br($s);
	406
	407	if( $s !="") fwrite($handle,$s );
	408	fclose($handle);
	409	}
	410
[11807]	411
	412
[4888]	413	?>

Note: See TracBrowser for help on using the repository browser.

Download in other formats: