#!/usr/local/bin/perl

	my $in		;
	my @dataArray	;
	my $dataElement	;
	my $dataCtr	;
	my $outLine	;
	my $wkStr	;

#
# ------------ read standard in
#

	if ( $ENV{'REQUEST_METHOD'} eq "GET" )
	{
        	$in = $ENV{'QUERY_STRING'} ;
	}
	else
	{
        	$in = <STDIN> ;
	}

#
# ------------ strip out bad stuff
#
	$in =~ s/%(..)/pack("c",hex($1))/ge	;
	$in =~ s/\+/ /g				;


#
# ------------ add extra row delimiter to 
# ------------ make delimiter-based looping easier
#


	$in .= "&"				;
	

#
# ----------- get character data file
#

	open ( DATA, "character.data" ) 	;
	@dataArray = <DATA> 			;
	$dataCtr   = $#dataArray		;
	close ( DATA ) 				;


#
# ----------- update data file from stdn 
#

	#### Walk through data array. 
	#### for each entry, 
	#### 	find matching tag in $in (if any)
	#### 	if match, overwrite data value
	####		with stdin value
	####	otherwise write data value

	for ( $d = 0; $d <= $dataCtr; $d++ )
	{	
		$hitPos = 0					;
		$endPos = 0					;
		$wkStr  =  ""					;

		@dataElement = split ( /=/, $dataArray[$d] ) 	;
		$searchStr   = @dataElement[0] . "="		;
		$hitPos      = index ( $in, $searchStr ) 	;
		$wkStr	     = @dataElement[1]			;
		
		if ( $hitPos >= 0 )
		{
			$hitPos += length ( $searchStr )	;
			$endPos =  index  ( $in, "&", $hitPos )	;

			if ( $endPos > $hitPos )
			{
				$wkStr = substr ( $in, $hitPos, $endPos - $hitPos ) ;
			}
		}

#
# ----------- for some reason newlines are not consistantly present
#

		if ( index ( $wkStr, "\n" ) > 0 )
		{
			$outLine .= $searchStr . $wkStr ;
		}
		else
		{
			$outLine .= $searchStr . $wkStr . "\n" ;
		}
	}

#
# ----------- write to output data file
#

open     ( OUTFILE, ">character.data" );
select   ( OUTFILE );
print	 <<END;
$outLine
END
close    ( OUTFILE ); 

#
# ----------- update menu html
#

system 'menu.cgi' 			;

#
# ----------- write to browser
#

open   ( ENTRYPAGE, "save.htm" )	;
@EntryPage = <ENTRYPAGE> ; 
close  ( ENTRYPAGE ) ;

select ( STDOUT ) ;
print <<END ;
Content-Type: text/html\n\n
@EntryPage
$outLine
END