<?php

#    gass (Generalized And Server-free Submission)
#    version 1.0 Copyright (C) 2006 Tagata Akira
#
#    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


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


## stripslashes() all of $_POST variables in advance if needed
$_GASS_POST = array();
foreach ($_POST as $key => $value) {
	if (get_magic_quotes_gpc()) {
		$_GASS_POST[$key] = stripslashes($_POST[$key]);
	}
	else {
		$_GASS_POST[$key] = $_POST[$key];
	}
}

$_gProlog['configSuffix'] = '.gass';
require_once('_gProlog');


$reserved = 'RESERVED_';

$RW = array('_rw_controlNames'=>1,'_rw_labelValuePref'=>1,'_rw_version'=>1);

$_gass['retc'] = TRUE; # ok
if (isset($_GASS_POST[$reserved]) && $_GASS_POST[$reserved] != '') {
	$rsvs = explode(';',$_GASS_POST[$reserved]);
	foreach ($rsvs as $rsv) {
		list($x, $v) = explode('=',$rsv);
		if (isset($RW[$x])) {
			$$x = $v;
		}
		else {
			$_gProlog['logputs']($_gass['myFilename'].': '.'error $rsv:'.$rsv,_GPROLOG_ERROR);
			$_gass['retc'] = FALSE; # ng
		}
	}
	foreach ($RW as $rw => $dummy) {
		if (isset($rw) && $rw != '') {
			;
		}
		else {
			$_gProlog['logputs']($_gass['myFilename'].': '.'error $rw:'.$rw,_GPROLOG_ERROR);
			$_gass['retc'] = FALSE; # ng
		}
	}
}


$_gass['version'] = isset($_GASS_POST[$_rw_version])? $_GASS_POST[$_rw_version]: '';

if ($_gass['retc']) {
	$_gass['uaJavaScripted'] = FALSE;
	if (isset($_GASS_POST[$_rw_controlNames])
		&& $_GASS_POST[$_rw_controlNames]) {
		$_gass['uaJavaScripted'] = TRUE;
		$_gass['uaControls'] = explode(';',$_GASS_POST[$_rw_controlNames]);
	}
	else {
		$_gass['uaControls'] = array();
		foreach ($_GASS_POST as $key => $value) {
			$_gass['uaControls'][] = $key;
		}
	}
}

# only in case of VERY_VERBOSE for saving the cost of _dump()
if ($_gProlog['level'] <= _GPROLOG_VERY_VERBOSE) {
	$_gProlog['logputs']($_gass['myFilename'].': '.'$_gass:
'._dump($_gass),_GPROLOG_VERY_VERBOSE);
}

function editVariable($pref,$name,$sep) {
	global $_GASS_POST;
	$ret = '';
	if (isset($_GASS_POST[$name])) {
		if ($pref !== NULL && isset($_GASS_POST[$pref.$name])) {
			$ret .= '['.$_GASS_POST[$pref.$name].']'."\n";
		}
		else {
			$ret .= '['.$name.']'."\n";
		}
		$value = $_GASS_POST[$name];
		$ret .= $value."\n";
		$ret .= $sep."\n";
	}
	return $ret;
}

function editEnv($name,$sep) {
	$ret = '';
	if (isset($_SERVER[$name])) {
		$ret .= '['.$name.']'."\n";
		$ret .= $_SERVER[$name]."\n";
		$ret .= $sep."\n";
	}
	return $ret;
}

?>