<?php

#    gProlog (Generalized Prolog)
#    version 1.0 Copyright (C) 2006 Tagata Akira
#    This is a part of Use? (UNTITLED Software Ensemble?)
#
#    This program 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 2 of the
#    License, or (at your option) any later version.
#
#    This program 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 this program; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
#    02110-1301 USA

$_gProlog['myFilename'] = basename(__FILE__);

define('_GPROLOG_INSECURE',2);
define('_GPROLOG_ERROR',1);
define('_GPROLOG_WARNING',0);
define('_GPROLOG_VERBOSE',-1);
define('_GPROLOG_VERY_VERBOSE',-2);

##  --- DO NOT CHANGE HERE --- ##
#
# For your config file skeleton, cut from START to END
# and remove the first two characters (# ) every line.
#
# -- START -- START -- START -- START -- START --
# 
# ################################################################
# # _gProlog logputs config parameters
# ################################################################
# # $_gProlog['logputs'] = YourLoggingFunction ['_gProlog_log_std']
# # $_gProlog['level'] = IgnoreStdLogputsLowerThanThis [_GPROLOG_ERROR]
# #   $_gProlog['level'] = _GPROLOG_INSECURE; ## only insecure
# #   $_gProlog['level'] = _GPROLOG_ERROR; ## insecure+error
# #   $_gProlog['level'] = _GPROLOG_WARNING; ##  insecure+error+warning
# #   $_gProlog['level'] = _GPROLOG_VERBOSE; ## debug
# #   $_gProlog['level'] = _GPROLOG_VERY_VERBOSE; ## more info
# # $_gProlog['to-std'] = RecipientOfStdLogputs [webmaster]
# # $_gProlog['Yes_I_am_authorized_sending_webmaster'] = 1 [undef];
# # $_gProlog['subject-std'] = AnyStringForSubject
# # $_gProlog['mb_send_mail'] = TRUE; ## use mb_send_mail() insted mail()
# 
# -- END -- END -- END -- END -- END -- END --


################################################################
# functions for mail
################################################################

_internal_preset_email_re();

function _internal_preset_email_re() {
    global $_gProlog;

    $rfc1035_label_re= '[0-9A-Za-z]([-0-9A-Za-z]*[0-9A-Za-z])?';
    $rfc1035_domain_re= "$rfc1035_label_re(\\.$rfc1035_label_re)*";

    $word_re = '[0-9A-Za-z]([-_0-9A-Za-z]*[0-9A-Za-z])?';
    $word_dot_re = "$word_re(\\.$word_re)*";

    $email_re = "$word_dot_re\@$rfc1035_domain_re";
    $_gProlog['internal']['email_re'] = $email_re;
    return;
}

function _isemail($str)
{
    global $_gProlog;

    $email_re = $_gProlog['internal']['email_re'];

    return preg_match("/^$email_re\$/", $str);
}


function _append_header($field_name,$field_content,$fields)
{
    $ret = $fields;
    if ($field_content) {
	if ($ret) {
	    $ret .= "\n";
	}
	$ret .= "$field_name: $field_content";
    }
    return $ret;
}

function _sendmail($from,$subject,$sender,$to,$cc,$bcc,$replyto,$message)
{
    global $_gProlog;

    $header = "";

    $header = _append_header('From',$from,$header);
    $header = _append_header('Sender',$sender,$header);
    $header = _append_header('cc',$cc,$header);
    $header = _append_header('bcc',$bcc,$header);
    $header = _append_header('Reply-To',$replyto,$header);

    if (isset($_gProlog['append_header']) && $_gProlog['append_header']) {
	if ($header) {
	    $header .= "\n";
	}
	$header .= $_gProlog['append_header'];
    }

    ## -f parameter
    if ($from) {
	$parameters = '-f'.$from;
    }
    else {
	$parameters = '';
    }
    if (!(isset($_gProlog['mb_send_mail']) && $_gProlog['mb_send_mail'])) {
	return mail($to, $subject, $message, $header, $parameters);
    }
    else {
	return mb_send_mail($to, $subject, $message, $header, $parameters);
    }
}


################################################################
## standard _gProlog log
################################################################
function _server_var($key) {
	$ret = '-Undef-';
	if (isset($_SERVER[$key])) {
		$ret = $_SERVER[$key];
	}
	return $ret;
}
function _gProlog_log_std($msg,$level) {
	global $_gProlog;
	if ($level < $_gProlog['level']) {
		return;
	}
	$to = $_gProlog['to-std'];
	$subject = $_gProlog['subject-std'];
	$message = '_gProlog_log_std(): ['.$level.'/'.$_gProlog['level'].']
'.$msg.'
--
PHP_SELF: '._server_var('PHP_SELF').'
REQUEST_URI: '._server_var('REQUEST_URI').'
HTTP_HOST: '._server_var('HTTP_HOST').'
HTTP_REFERER: '._server_var('HTTP_REFERER').'
HTTP_USER_AGENT: '._server_var('HTTP_USER_AGENT').'
REMOTE_ADDR: '._server_var('REMOTE_ADDR').'
';
#	mail($to,$subject,$message);
	$from = $to;
	$sender = $from;
	$cc = '';
	$bcc = '';
	$replyto = '';
	_sendmail($from,$subject,$sender,$to,$cc,$bcc,$replyto,$message);
}
function _gProlog_log_dummy() {
}


if (!isset($configSuffix)) {
	$configSuffix = '.config';
}
if (isset($_SERVER['HTTP_HOST']) && $_SERVER['HTTP_HOST'] != '') {
	$_gds['referrer-re'] = ',://'.$_SERVER['HTTP_HOST'].',';
}

################################################################
## general purpose config file handling
################################################################

function _get_selfpath_without_suffix() {
	$selfpath = basename($_SERVER['PHP_SELF']);
	return basename($selfpath,strrchr($selfpath,'.'));
}

function _get_referrerpath() {
	if (isset($_SERVER['HTTP_REFERER']) && $_SERVER['HTTP_REFERER']) {
		if ($referrerParsed = parse_url($_SERVER['HTTP_REFERER'])) {
			return basename($referrerParsed['path']);
		}
	}
	return NULL;
}

function _get_referrerpath_without_suffix() {
	if ($referrerpath = _get_referrerpath()) {
		return basename($referrerpath,strrchr($referrerpath,'.'));
	}
	return NULL;
}


################################################################
## read every config file if exists
################################################################
# site related config
$config = $configSuffix;
if (is_file($config)) {
	require($config);
}

if (!isset($configPrefix)) {
	$configPrefix = '.';
}


# software related config
$selfConfig = $configPrefix._get_selfpath_without_suffix().$configSuffix;
if (is_file($selfConfig)) {
	require($selfConfig);
}

# referrer related config
$referrerConfig = $configPrefix._get_referrerpath_without_suffix().$configSuffix;
if (is_file($referrerConfig)) {
	require($referrerConfig);
}


################################################################
## _gProlog log
################################################################
if (!(isset($_gProlog['logputs']) && is_callable($_gProlog['logputs']))) {
	if (!isset($_gProlog['level'])) {
		$_gProlog['level'] = 1;
	}
	if (isset($_gProlog['to-std'])) {
		$_gProlog['logputs'] = '_gProlog_log_std';
	}
	else if (isset($_gProlog['Yes_I_am_authorized_sending_webmaster'])
		&& $_gProlog['Yes_I_am_authorized_sending_webmaster']) {
		$_gProlog['logputs'] = '_gProlog_log_std';
		$_gProlog['to-std'] = 'webmaster'.'@'.$_SERVER['HTTP_HOST'];
	}
	else {
		$_gProlog['logputs'] = '_gProlog_log_dummy';
	}
	if (!isset($_gProlog['subject-std'])) {
		$_gProlog['subject-std'] =
			'_gProlog information ['._server_var('HTTP_HOST').']';
	}
}


function _dump($x) {
	$ret = '';
	foreach ($x as $key => $value) {
		$ret .= $key.'=>'.$value."\n";
	}
	return $ret;
}

# only in case of VERY_VERBOSE for saving the cost of _dump()
if ($_gProlog['level'] <= _GPROLOG_VERY_VERBOSE) {
	## log Config, _gProlog
	$_gProlog['logputs']($_gProlog['myFilename'].': '."Config: $config/$selfConfig/$referrerConfig".'
--
$_gProlog:
'._dump($_gProlog),_GPROLOG_VERY_VERBOSE);
}

## skeleton for very verbose log
# $_gProlog['logputs']('...msg...',_GPROLOG_VERY_VERBOSE);

## skeleton for very verbose log with _dump()
# # only in case of VERY_VERBOSE for saving the cost of _dump()
# if ($_gProlog['level'] <= _GPROLOG_VERY_VERBOSE) {
# 	$_gProlog['logputs']('...msg...'._dump(__ARRAY__),_GPROLOG_VERY_VERBOSE);
# }

?>