Context Navigation

main.inc.php @ 27776

Last change on this file since 27776 was 22132, checked in by cljosse, 12 years ago
[extensions] Autosize update to piwigo 2.5 (correction mysqli)
File size: 13.9 KB

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

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

Context Navigation

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

Download in other formats: