#!/usr/bin/php -q
<?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/>.
	 */
	preg_match("/([a-zA-Z0-9\.\/]*)\/([a-zA-Z0-9]+).([a-zA-Z0-9]+)/",$_SERVER['SCRIPT_NAME'],$matches);
	$INCLUDE_INCLUDE=$matches[1]."/".$matches[2]."_include.".$matches[3];
	$INCLUDE_ERROR=$matches[1]."/".$matches[2]."_error.".$matches[3];

	include($INCLUDE_INCLUDE);
	
	// Which argument was used to invoke this program?
	if(!isset($argv[1])) $target="none";
	else $target = $argv[1];

	// Read the mail
	$rmail = new Receive_Mail();
	if( $rmail->receive("php://stdin") ) {
		// Mail read
		switch( $target ) {
			case "error":
				include($INCLUDE_ERROR);
				break;
			case "test":
				echo "From: ".$rmail->get_from()."\n";
				echo "Subject: ".$rmail->get_subject()."\n";
				echo "Date: ".$rmail->get_date()."\n";
				echo "Spamscore: ".$rmail->get_spamscore()."\n";
				echo "Boundary: ".$rmail->boundary."\n\n";
				$message=$rmail->get_message();
				for($i=0; $i<count($message); $i++) {
					echo "=== Start of Message $i ===\n";
					echo "CType: ".$message[$i]['ctype']."\n";
					echo "Encoding: ".$message[$i]['encoding']."\n";
					echo "Header:\n---\n".$message[$i]['header']."\n---\n";
					echo "Body:\n---\n".$message[$i]['body']."\n---\n";
					echo "=== End of Message $i ===\n\n";
				}
				break;
			default:
				// Ehm?
				dolog("mailreturn", "Unknown mail target: ".$target, "error");
				echo "Error: Unknown target\n";
		}
	}else {
		echo "Error: Failed reading mail\n";
	}

	function debug($msg) {
		echo "DEBUG: ".$msg."\n";
	}
?>