<?php
	/**
	 * Copyright 2000, 2001, 2002 Philipp von Klitzing
	 * Copyright 2003, 2004, 2005, 2006, 2007, 2008, 2009 Wim van Ravesteijn
	 *
	 * This file is part of AEGEE-Europe Statutory Event Applications.
	 *
	 * AEGEE-Europe Statutory Event Applications is free software: you can
	 * redistribute it and/or modify it under the terms of the GNU General
	 * Public License as published by the Free Software Foundation, either
	 * version 3 of the License, or (at your option) any later version.
	 *
	 * AEGEE-Europe Statutory Event Applications is distributed in the hope
	 * that it will be useful, but WITHOUT ANY WARRANTY; without even the
	 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
	 * PURPOSE.  See the GNU General Public License for more details.
	 *
	 * You should have received a copy of the GNU General Public License
	 * along with AEGEE-Europe Statutory Event Applications.  If not, see
	 * <http://www.gnu.org/licenses/>.
	 */
	if( strlen($rmail->get_from())==0 ) {
		// You cannot call this file directly
		dolog("mailreturn", "You cannot call ...._error.php directly", "error");
		exit;
	}
	
	// We first check for the delivery report (message/delivery-status) and the
	//   original message (message/rfc822[-headers]) to understand the error mail
	$message=$rmail->get_message();
	for($i=0; $i<count($message);$i++) {
		if( $message[$i]['ctype']=="message/delivery-status" ) {
			// We found the delivery report
			if( preg_match("/([\f\n\r]+)(Action: )([a-zA-Z]+)([\f\n\r]+)/i", $message[$i]['body'], $match) ) {
				$Error_action = $match[3];
			}
			if( preg_match("/([\f\n\r]+)(Status: )([0-9]\.[0-9]\.[0-9])([\f\n\r]+)/i", $message[$i]['body'], $match) ) {
				$Error_status = $match[3];
				$Error_status1= substr($match[3], 0, 1);
				$Error_status2= substr($match[3], 2, 1);
				$Error_status3= substr($match[3], 4, 1);
			}
			if( preg_match("/([\f\n\r]+)(Diagnostic-Code: )(.*?)([\f\n\r]+)/i", $message[$i]['body'], $match) ) {
				$Error_diagcode = $match[3];
			}
		}
		if( $message[$i]['ctype']=="message/rfc822" OR $message[$i]['ctype']=="text/rfc822-headers" ) {
			// We found the original message
			if( preg_match("/([\f\n\r]+)(X-Content: )(.*?)([\f\n\r]+)/i", $message[$i]['body'], $match) ) {
				$Mail_content = trim($match[3]);
			}
			if( preg_match("/([\f\n\r]+)(X-ApplicationID: )([0-9]+)([\f\n\r]+)/i", $message[$i]['body'], $match) ) {
				$Mail_applID = trim($match[3]);
			}
			if( preg_match("/([\f\n\r]+)(X-BodyCode: )([A-Za-z]+)([\f\n\r]+)/i", $message[$i]['body'], $match) ) {
				$Mail_BodyCode = trim($match[3]);
			}
			if( preg_match("/([\f\n\r]+)(X-Signature: )([a-z0-9]+)([\f\n\r]+)/i", $message[$i]['body'], $match) ) {
				$Signature = trim($match[3]);
			}
		}
	}

	if( $Error_action=="" AND $Error_status=="" AND $Error_diagcode=="" AND $Mail_content=="" AND $Mail_applID=="" AND $Mail_BodyCode=="" AND $Signature=="" AND count($message)==1 ) {
		// Seems message was not a RFC error reply
		if( preg_match("/([\f\n\r]+)(From: ).*?MAILER-DAEMON.*?([\f\n\r]+)/i", $message[0]['header']) ) {
			// This is an error message, but not official RFC :-(
			if( preg_match("/([0-9]\.[0-9]\.[0-9])/", $message[0]['body'], $match) ) {
				$Error_status = $match[1];
				$Error_status1 = substr($match[1], 0, 1);
				$Error_status2 = substr($match[1], 2, 1);
				$Error_status3 = substr($match[1], 4, 1);
			}
			if( preg_match("/([\f\n\r]+)(X-Content: )(.*?)([\f\n\r]+)/i", $message[0]['body'], $match) ) {
				$Mail_content = trim($match[3]);
			}
			if( preg_match("/([\f\n\r]+)(X-ApplicationID: )([0-9]+)([\f\n\r]+)/i", $message[0]['body'], $match) ) {
				$Mail_applID = trim($match[3]);
			}
			if( preg_match("/([\f\n\r]+)(X-BodyCode: )([A-Za-z]+)([\f\n\r]+)/i", $message[0]['body'], $match) ) {
				$Mail_BodyCode = trim($match[3]);
			}
			if( preg_match("/([\f\n\r]+)(X-Signature: )([a-z0-9]+)([\f\n\r]+)/i", $message[0]['body'], $match) ) {
				$Signature = trim($match[3]);
			}
		}
	}

	$error = getSMTPaction($Error_action);
	if( $error=="unknown" ) $error = getSMTPdiagcode($Error_diagcode);
	if( $error=="unknown" ) $error = getSMTPerrorType($Error_status1, $Error_status2, $Error_status3);

	if( $error!="ok" ) {
		if( check_signature($Signature, $Mail_content, isset($Mail_applID)?$Mail_applID:$Mail_BodyCode) ) {
			switch( $Mail_content ) {
				case "accepted to participant": //X-ApplicationID
					error_organizer($Mail_applID, $error, "Informing participant about being accepted");
					break;
				case "account to adminuser": //X-ApplicationID
					error_webmaster($error, "New account to admin user");
					break;
				case "approval to candidate": //X-ApplicationID
					error_jc($Mail_applID, $error, "Information candidate about change of approval status");
					break;
				case "approval to jc": //X-ApplicationID
					error_webmaster($error, "Informing JC about change of approval status");
					break;
				case "edit to board": //X-ApplicationID
					error_abc($Mail_applID, $error);
					break;
				case "edit to candidate": //X-ApplicationID
					error_jc($Mail_applID, $error, "Informing candidate about edited candidature");
					break;
				case "edit to jc": //X-ApplicationID
					error_webmaster($error, "Informing JC about edited candidature");
					break;
				case "edit to organiser": //X-ApplicationID
					error_webmaster($error, "Informing organiser about edited application");
					break;
				case "edit to participant": //X-ApplicationID
					error_organizer($Mail_applID, $error, "Informing participant about edited application");
					break;
				case "edit to visa": //X-ApplicationID
					error_webmaster($error, "Informing visa responsible about edited application");
					break;
				case "error to abc": //X-ApplicationID=0
					error_webmaster($error, "Informing ABC about wrong e-mail address of a body");
					break;
				case "error to jc": //X-ApplicationID=0
					error_webmaster($error, "Informing JC about wrong e-mail address of candidate");
					break;
				case "error to organizer": //X-ApplicationID=0
					error_webmaster($error, "Error report to organiser");
					break;
				case "error to webmaster": //X-ApplicationID=0
					dolog("mailreturn", "E-mail address of webmaster is incorrect!", "error");
					break;
				case "invitation to participant": //X-ApplicationID=random
					error_chair($error, "Invitation to a potential participant to apply");
					break;
				case "mailall to participant": //X-ApplicationID
					error_organizer($Mail_applID, $error, "Mass mail to a participant");
					break;
				case "new to board": //X-ApplicationID
					error_abc($Mail_applID, $error);
					break;
				case "new to candidate": //X-ApplicationID
					error_jc($Mail_applID, $error, "Information candidate about new candidature");
					break;
				case "new to jc": //X-ApplicationID
					error_webmaster($error, "Informing JC about new candidature");
					break;
				case "new to organiser": //X-ApplicationID
					error_webmaster($error, "Informing organiser about new application");
					break;
				case "new to participant": //X-ApplicationID
					error_organizer($Mail_applID, $error, "Informing participant about new application");
					break;
				case "new to visa": //X-ApplicationID
					error_webmaster($error, "Informing visa responsible about new application");
					break;
				case "password to board": //X-BodyCode
					if( $error!="delayed" ) {
						$query = "UPDATE `ab_bodies` SET `password`='' WHERE `BodyCode`='".addslashes($Mail_BodyCode)."'";
						if( doquery($query) ) {
							dolog("mailreturn", "Removed password for ".$Mail_BodyCode.", mail did not arrive to board", "warning");
						}else {
							dolog("mailreturn", "Failed removing password for ".$Mail_BodyCode.", mail did not arrive to board", "error");
						}
						error_abc(0, $error, $Mail_BodyCode);
					}
					break;
				case "reminder to bccparticipants": //X-BodyCode
					// hm, no clue which participant, do nothing
					break;
				case "reminder to board": //X-BodyCode
					error_abc(0, $error, $Mail_BodyCode);
					break;
				case "rundaily to webmaster": //X-ApplicationID=0
					dolog("mailreturn", "Failed mailing 'rundaily output' to webmaster", "error");
					break;
				case "subscribe aegee-l": //X-ApplicationID
					error_webmaster($error, "Subscription for AEGEE-L to listserv");
					break;
				case "subscribe aegee-agora-l": //X-ApplicationID
					error_webmaster($error, "Subscription for AEGEE-AGORA-L to listserv");
					break;
				case "subscribe announce-l": //X-ApplicationID
					error_webmaster($error, "Subscription for ANNOUNCE-L to listserv");
					break;
				case "subscribe lists": //X-ApplicationID
					error_webmaster($error, "Subscription for lists to listserv");
					break;
				case "typeordererror to board": //X-BodyCode
					error_abc(0, $error, $Mail_BodyCode);
					break;
				case "webmail to applresp": //X-ApplicationID
					error_webmaster($error, "Webmail question to application responsible");
					break;
				case "webmail to candidate": //X-ApplicationID
					error_jc($error, "Webmail question to candidate");
					break;
				case "webmail to headoffice": //X-ApplicationID
					error_webmaster($error, "Webmail question to headoffice");
					break;
				case "webmail to webmaster": //X-ApplicationID
					dolog("mailreturn", "Failed mailing webmail question to webmaster", "error");
					break;
				default:
					if( preg_match("/Warning: message [0-9A-Za-z-]+ delayed [0-9]+ hours/i", $rmail->get_subject()) AND $rmail->get_from()=="Mail Delivery System <Mailer-Daemon@rz.uni-karlsruhe.de>" ) {
						// Delay from Karlsruhe mail proxy
						// do not handle
					}else {
						error_webmaster($error, "Unknown mail received: ".$Mail_content);
						dolog("mailreturn", "Unknown mail received", "error");
					}
			}
		}else {
			// Signature failed
			dolog("mailerror", "Invalid signature. Content: ".$Mail_content."; ".(isset($Mail_applID)?("applID: ".$Mail_applID):("BodyCode: ".$Mail_BodyCode))."; error: ".$error."; subject: ".$rmail->get_subject());
		}
	}

	function error_abc($Mail_applID, $error, $Mail_BodyCode="") {
		// Message to a body has failed, inform ABC about the problem
		global $rmail, $setup;
		if( $error=="permanent" ) {
			if( $Mail_applID>0 OR $Mail_BodyCode!="" ) {
				if( $Mail_applID>0 ) {
					$query="SELECT `ab_bodies`.`BodyName`, `ab_bodies`.`Email` AS `Email`
									FROM `ab_bodies`, `persons`
									WHERE `ab_bodies`.`BodyCode`=`persons`.`BodyCode` AND `persons`.`PersonID`=".addslashes($Mail_applID);
				}else {
					$query="SELECT `BodyName`, `Email`
									FROM `ab_bodies`
									WHERE `BodyCode`='".addslashes($Mail_BodyCode)."'";
				}
				if( @mysql_num_rows( $res=doquery($query) )==1 ) {
					$row=mysql_fetch_array($res);
					$boundary = $rmail->new_boundary();
					$header ="From: \"Webmaster ".$setup['SetupEventType']." Application\" <".$setup['WebmasterEmail'].">\n";
					$header.="Content-Type: multipart/mixed; boundary=\"".$boundary."\"\n";
					$out ="This is a MIME-encapsulated message\n";
					$out.="\n--".$boundary."\n\n";
					$out.="Dear ABC,\n\n";
					$out.="It seems the e-mail address of the body ".$row['BodyName']." (".$row['Email'].")\n";
					$out.="is not working. Can you please try to get the right e-mail address in the Address\n";
					$out.="Book?\n\n";
					$out.="This message has been automatically generated by the ".$setup['SetupEventType']." Application Mailer.\n";
					$out.="For every error message I receive, I'll send you a notice. I do not check if you already\n";
					$out.="received such a notice. Instead of complaining about this, better try to fix the problem\n";
					$out.="as soon as possible.\n\n";
					$out.="For questions you can contact the webmaster: ".$setup['WebmasterEmail']."\n\n";
					$out.="In the attachment you can find the message on which I based this conclusion.\n\n";
					$out.="Greetings from the friendly webmaster.\n";
					$out.="\n--".$boundary."\n";
					$out.="Content-Type: message/rfc822\n\n";
					$out.=$rmail->get_fullmessage()."\n";
					$out.="--".$boundary."--\n";
					$header.="X-Content: error to abc";
					$header.="\nX-ApplicationID: 0";
					$header.="\nX-Signature: ".substr(md5("secret".$setup['EventCode']."error to abc"."0"), 0, 24);
					send_mail($setup['MailABC'], "Error in body e-mail", $out, $header, false, false);
					dolog("mailreturn", "E-mail address of ".$row['BodyName']." (".$row['Email'].") is incorrect. Informed ABC.", "info");
				}else {
					dolog("mailreturn", "E-mail came back from a body, but I do not know the ID (".$Mail_applID.")", "warning");
				}
			}else {
				dolog("mailreturn", "E-mail came back from a body, but there was no ID", "warning");
			}
		}elseif( $error=="unknown" ) {
			// Unknown error in mail to body, forward to webmaster
			global $Error_action, $Error_diagcode, $Error_status;
			$boundary = $rmail->new_boundary();
			$header ="From: \"Webmaster ".$setup['SetupEventType']." Application\" <".$setup['WebmasterEmail'].">\n";
			$header.="Content-Type: multipart/mixed; boundary=\"".$boundary."\"\n";
			$out ="This is a MIME-encapsulated message\n";
			$out.="\n--".$boundary."\n\n";
			$out.="Dear Webmaster,\n\n";
			$out.="I was not able to interpret the error that was in the attached e-mail that was\n";
			$out.="supposed to reach a body. Please take care of this error.\n\n";
			$out.="\tSMTP Action: ".$Error_action."\n";
			$out.="\tSMTP Diagnostic-Code: ".$Error_diagcode."\n";
			$out.="\tSMTP Status: ".$Error_status."\n\n";
			$out.="Greetings from the friendly webmaster.\n";
			$out.="\n--".$boundary."\n";
			$out.="Content-Type: message/rfc822\n\n";
			$out.=$rmail->get_fullmessage()."\n";
			$out.="--".$boundary."--\n";
			$header.="X-Content: error to webmaster";
			$header.="\nX-ApplicationID: 0";
			$header.="\nX-Signature: ".substr(md5("secret".$setup['EventCode']."error to webmaster"."0"), 0, 24);
			send_mail($setup['WebmasterEmail'], "Error in body e-mail", $out, $header, false, false);
			dolog("mailreturn", "Mail to body failed with unknown error, forwarded mail to webmaster.", "warning");
		}else {
			dolog("mailreturn", "E-mail came back from body, but we don't have to handle it (problem type: ".$error.")", "info");
		}
	}

	function error_chair($error, $content) {
		global $rmail, $setup;
		$message=$rmail->get_message();
		if( $error!="delayed" ) {
			$boundary = $rmail->new_boundary();
			$header ="From: \"Webmaster ".$setup['SetupEventType']." Application\" <".$setup['WebmasterEmail'].">\n";
			$header.="Content-Type: multipart/mixed; boundary=\"".$boundary."\"\n";
			$out ="This is a MIME-encapsulated message\n";
			$out.="\n--".$boundary."\n\n";
			$out.="Dear Chair team,\n\n";
			$out.="A message with the content\n\n";
			$out.="     ".$content."\n\n";
			$out.="was not delivered and came back with ".$error." error.\n\n";
			$out.="The involved message is in the attachment. Please take care of this error.\n\n";
			$out.="Greetings from the friendly webmaster.\n";
			$out.="\n--".$boundary."\n";
			for($i=0; $i<count($message); $i++) {
				if( $message[$i]['ctype']=="message/rfc822" ) {
					$out.="Content-Type: message/rfc822\n\n";
					$out.=$message[$i]['body']."\n";
					$out.="\n--".$boundary."\n";
				}
			}
			$out.="Content-Type: message/rfc822\n\n";
			$out.=$rmail->get_fullmessage()."\n";
			$out.="--".$boundary."--\n";
			$header.="X-Content: error to chair";
			$header.="\nX-ApplicationID: 0";
			$header.="\nX-Signature: ".substr(md5("secret".$setup['EventCode']."error to chair"."0"), 0, 24);
			send_mail($setup['MailChair'], "Error in mail", $out, $header, false, false);
			dolog("mailreturn", "Mail returned with ".$error." error. Content: ".$content, "warning");
		}
	}

	function error_jc($Mail_applID, $error, $content) {
		// Message to candidate failed, inform JC, and remove the e-mail address
		global $rmail, $setup;
		$message=$rmail->get_message();
		if( $error!="delayed" ) {
			if( $Mail_applID>0 ) {
				$query="SELECT `FirstName`, `LastName`, `BodyCode`, `Email`
								FROM `candidates`
								WHERE `id`=".addslashes($Mail_applID);
				if( @mysql_num_rows( $res=doquery($query) )==1 ) {
					$row=mysql_fetch_array($res);
					$boundary = $rmail->new_boundary();
					$header ="From: \"Webmaster ".$setup['SetupEventType']." Application\" <".$setup['WebmasterEmail'].">\n";
					$header.="Content-Type: multipart/mixed; boundary=\"".$boundary."\"\n";
					$out ="This is a MIME-encapsulated message\n";
					$out.="\n--".$boundary."\n\n";
					$out.="Dear JC,\n\n";
					$out.="It seems the e-mail address of ".$row['FirstName']." ".$row['LastName']."\n";
					$out.="(".$row['BodyCode']."; ".$row['Email'].") is not working properly.\n\n";
					$out.="An e-mail that was send with as content\n\n";
					$out.="     ".$content."\n\n";
					$query="";
					switch( $error ) {
						case "temporaly":
							$out.="did not arrive in the candidates mailbox. It was a temporaly error, so\n";
							$out.="no action from your side is needed. If you think it is important the\n";
							$out.="candidate receives the message, you could resend it. You can find the\n";
							$out.="message in the attachment.\n\n";
							break;
						case "permanent":
							$out.="did not arrive in the candidates mailbox. It was a permanent error, which\n";
							$out.="means the e-mail address is invalid. Can you please try to get the right\n";
							$out.="e-mail address in the candidature? I'll now remove the e-mail from the\n";
							$out.="candidature to prevent future error messages.\n\n";
							$query="UPDATE `candidates` SET `Email`='' WHERE `id`=".addslashes($Mail_applID);
							break;
						case "unknown":
							$out.="did not arrive in the candidates mailbox. It was an unknown error, so\n";
							$out.="I have no clue what to do. Please check the attachment and try to figure\n";
							$out.="out the problem yourself. If you think it is important the candidate\n";
							$out.="receives the message, you could resend it. You can find the message in\n";
							$out.="the attachment.\n\n";
							break;
					}
					$out.="This message has been automatically generated by the ".$setup['SetupEventType']." Application Mailer.\n";
					$out.="For every error message I receive, I'll send you a notice. I do not check if you already\n";
					$out.="received such a notice. Instead of complaining about this, better try to fix the problem\n";
					$out.="as soon as possible.\n\n";
					$out.="For questions you can contact the webmaster: ".$setup['WebmasterEmail']."\n\n";
					$out.="In the attachment you can find the message on which I based this conclusion.\n\n";
					$out.="Greetings from the friendly webmaster.\n";
					$out.="\n--".$boundary."\n";
					for($i=0; $i<count($message); $i++) {
						if( $message[$i]['ctype']=="message/rfc822" ) {
							$out.="Content-Type: message/rfc822\n\n";
							$out.=$message[$i]['body']."\n";
							$out.="\n--".$boundary."\n";
						}
					}
					$out.="Content-Type: message/rfc822\n\n";
					$out.=$rmail->get_fullmessage()."\n";
					$out.="--".$boundary."--\n";
					$header.="X-Content: error to jc";
					$header.="\nX-ApplicationID: 0";
					$header.="\nX-Signature: ".substr(md5("secret".$setup['EventCode']."error to jc"."0"), 0, 24);
					send_mail($setup['MailJc'], "Error in candidates e-mail", $out, $header, false, false);
					if( strlen($query)>0 ) {
						if( doquery($query) ) {
							dolog("mailreturn", "E-mail address of ".$row['FirstName']." ".$row['LastName']." (".$row['BodyCode']."; ".$row['Email'].") is incorrect. Removed e-mail address and informed jc.", "info");
						}else {
							dolog("mailreturn", "E-mail address of ".$row['FirstName']." ".$row['LastName']." (".$row['BodyCode']."; ".$row['Email'].") is incorrect. Failed removing e-mail address and informed jc.", "error");
						}
					}else {
						dolog("mailreturn", "E-mail to ".$row['FirstName']." ".$row['LastName']." (".$row['BodyCode']."; ".$row['Email'].") failed. Informed jc.", "info");
					}
				}else {
					dolog("mailreturn", "E-mail came back from a candidate, but I do not know the ID (".$Mail_applID.")", "warning");
				}
			}else {
				dolog("mailreturn", "E-mail came back from a candidate, but there was no ID", "warning");
			}
		}else {
			dolog("mailreturn", "E-mail came back from candidate, but we don't have to handle it (problem type: ".$error.")", "info");
		}
	}

	function error_organizer($Mail_applID, $error, $content) {
		// Message to participant failed, inform organizer, and remove the e-mail address
		global $rmail, $setup;
		$message=$rmail->get_message();
		if( $error!="delayed" ) {
			if( $Mail_applID>0 ) {
				$query="SELECT `FirstName`, `LastName`, `BodyCode`, `Email`
								FROM `persons`
								WHERE `PersonID`=".addslashes($Mail_applID);
				if( @mysql_num_rows( $res=doquery($query) )==1 ) {
					$row=mysql_fetch_array($res);
					$boundary = $rmail->new_boundary();
					$header ="From: \"Webmaster ".$setup['SetupEventType']." Application\" <".$setup['WebmasterEmail'].">\n";
					$header.="Content-Type: multipart/mixed; boundary=\"".$boundary."\"\n";
					$out ="This is a MIME-encapsulated message\n";
					$out.="\n--".$boundary."\n\n";
					$out.="Dear Organizer,\n\n";
					$out.="It seems the e-mail address of ".$row['FirstName']." ".$row['LastName']."\n";
					$out.="(".$row['BodyCode']."; ".$row['Email'].") is not working properly.\n\n";
					$out.="An e-mail that was send with as content\n\n";
					$out.="     ".$content."\n\n";
					$query="";
					switch( $error ) {
						case "temporaly":
							$out.="did not arrive in the participants mailbox. It was a temporaly error, so\n";
							$out.="no action from your side is needed. If you think it is important the\n";
							$out.="participant receives the message, you could resend it. You can find the\n";
							$out.="message in the attachment.\n\n";
							break;
						case "permanent":
							$out.="did not arrive in the participants mailbox. It was a permanent error, which\n";
							$out.="means the e-mail address is invalid. Can you please try to get the right\n";
							$out.="e-mail address in the application? I'll now remove the e-mail from the\n";
							$out.="application to prevent future error messages.\n\n";
							$query="UPDATE `persons` SET `Email`='', `Log`=CONCAT(`Log`,'\n".date("Y-m-d H:i:s").": e-mail address removed by system (invalid mailbox)') WHERE `PersonID`=".addslashes($Mail_applID);
							break;
						case "unknown":
							$out.="did not arrive in the participants mailbox. It was an unknown error, so\n";
							$out.="I have no clue what to do. Please check the attachment and try to figure\n";
							$out.="out the problem yourself. If you think it is important the participant\n";
							$out.="receives the message, you could resend it. You can find the message in\n";
							$out.="the attachment.\n\n";
							break;
					}
					$out.="This message has been automatically generated by the ".$setup['SetupEventType']." Application Mailer.\n";
					$out.="For every error message I receive, I'll send you a notice. I do not check if you already\n";
					$out.="received such a notice. Instead of complaining about this, better try to fix the problem\n";
					$out.="as soon as possible.\n\n";
					$out.="For questions you can contact the webmaster: ".$setup['WebmasterEmail']."\n\n";
					$out.="In the attachment you can find the message on which I based this conclusion.\n\n";
					$out.="Greetings from the friendly webmaster.\n";
					$out.="\n--".$boundary."\n";
					for($i=0; $i<count($message); $i++) {
						if( $message[$i]['ctype']=="message/rfc822" ) {
							$out.="Content-Type: message/rfc822\n\n";
							$out.=$message[$i]['body']."\n";
							$out.="\n--".$boundary."\n";
						}
					}
					$out.="Content-Type: message/rfc822\n\n";
					$out.=$rmail->get_fullmessage()."\n";
					$out.="--".$boundary."--\n";
					$header.="X-Content: error to organizer";
					$header.="\nX-ApplicationID: 0";
					$header.="\nX-Signature: ".substr(md5("secret".$setup['EventCode']."error to organizer"."0"), 0, 24);
					send_mail($setup['EventErrorEmail'], "Error in participant e-mail", $out, $header, false, false);
					if( strlen($query)>0 ) {
						if( doquery($query) ) {
							dolog("mailreturn", "E-mail address of ".$row['FirstName']." ".$row['LastName']." (".$row['BodyCode']."; ".$row['Email'].") is incorrect. Removed e-mail address and informed organiser.", "info");
						}else {
							dolog("mailreturn", "E-mail address of ".$row['FirstName']." ".$row['LastName']." (".$row['BodyCode']."; ".$row['Email'].") is incorrect. Failed removing e-mail address and informed organiser.", "error");
						}
					}else {
						dolog("mailreturn", "E-mail to ".$row['FirstName']." ".$row['LastName']." (".$row['BodyCode']."; ".$row['Email'].") failed. Informed organiser.", "info");
					}
				}else {
					dolog("mailreturn", "E-mail came back from a participant, but I do not know the ID (".$Mail_applID.")", "warning");
				}
			}else {
				dolog("mailreturn", "E-mail came back from a participant, but there was no ID", "warning");
			}
		}else {
			dolog("mailreturn", "E-mail came back from participant, but we don't have to handle it (problem type: ".$error.")", "info");
		}
	}

	function error_webmaster($error, $content) {
		global $rmail, $setup;
		$message=$rmail->get_message();
		if( $error!="delayed" ) {
			$mail = new MailOut($setup['MailReturnpath'], $setup['WebmasterEmail']);
			$mail->add_header("X-Content: error to webmaster");
			$mail->add_header("X-ApplicationID: 0");
			$mail->add_header("X-Signature: ".substr(md5("secret".$setup['EventCode']."error to webmaster"."0"), 0, 24));
			$mail->add_header("From: \"Webmaster ".$setup['SetupEventType']." Application\" <".$setup['WebmasterEmail'].">");
			$mail->add_header("Subject: Error returned in reply to e-mail from ".$setup['SetupEventType']." mailer");
			$mail->set_message("This is a MIME-encapsulated message\n");
			$mail->add_header("Content-Type: text/plain; charset=UTF-8", 1);
			$msg = "Dear Webmaster,\n\n";
			$msg.= "A message with the content\n\n";
			$msg.= "     ".$content."\n\n";
			$msg.= "was not delivered and came back with ".$error." error.\n\n";
			$msg.= "The involved message is in the attachment. Please take care of this error.\n\n";
			$msg.= "Greetings from the friendly webmaster.\n";
			$mail->set_message($msg, 1);
			$mail->add_header("Content-Type: message/rfc822", 2);
			$mail->set_message($rmail->get_fullmessage(), 2);
			$mail->send();
			dolog("mailreturn", "Mail returned with ".$error." error. Content: ".$content, "warning");
		}
	}

?>