#!/usr/bin/perl --

print "Content-Type: text/html\n\n";

$center = "center.htm";	    # html template

# taken from formmail

%Config = ('dir','','fil','','ttl','','alx','');

	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
	local($name, $value) = split(/=/, $pair);

        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $name =~ tr/\0//d;

        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ tr/\0//d;
        $value =~ s/\n//eg;

		if (defined($Config{$name})) {
        	$Config{$name} = $value;
        }
}

$dir = $Config{dir};
$fil = $Config{fil};
$ttl = $Config{ttl};
$alx = $Config{alx};
$fl = join '', "../ujo/", $dir, "/", $fil, ".txt";

	open CENTER, $center or die "Cannot open $center for read :$!";
	while (<CENTER>) {
		if (/text begin/) {$ate = 1;}
		if (/text end/) {$ate = 0;}
		if (/\<\/body\>/) {&printform;}
		if ($ate) {&printate;}
		else {print;}
		
	}

sub printate{
	print "<!--text begin-->\n";
	print $alx;
}

sub printform{
print "<p>&nbsp;</p><center>\n";
print <<POINT;
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
                  <FORM ACTION="../cgi-bin/try.pl" METHOD=POST>
                  <tr>
                    <td valign="top">Directory:</td>
                    <td>&nbsp;</td>
POINT
print "                    <td valign='top'><INPUT NAME='dir' SIZE=50 value='$dir'></td>\n";
print <<POINT;
                  </tr>
                  <tr>
                    <td valign="top">File:</td>
                    <td>&nbsp;</td>
POINT
print "                    <td valign='top'><INPUT NAME='fil' SIZE=50 value='$fil'><p></td>\n";
print <<POINT;
                  </tr>
                  <tr>
                    <td valign="top">Title:</td>
                    <td>&nbsp;</td>
POINT
print "                    <td valign='top'><INPUT NAME='ttl' SIZE=50 value='$ttl'><p></td>\n";
print <<POINT;
                  </tr>
                  <tr>
                    <td valign="top">Text:</td>
                    <td>&nbsp;</td>
POINT
print "                    <td valign='top'><TEXTAREA NAME='alx' ROWS=15 COLS=50>$alx</TEXTAREA><br>\n";
print "                    <INPUT TYPE=SUBMIT VALUE='Preview'>&nbsp;&nbsp;&nbsp;<INPUT TYPE=RESET VALUE='Reset'\n";
print "                    <input type=hidden name='sort' value='order:=env_dir,fil,ttl,alx'></form>\n";
print "                  <FORM ACTION='../cgi-bin/check.pl' METHOD=POST>\n";
print "                  <INPUT TYPE=HIDDEN NAME='dir' VALUE='$dir'>\n";
print "                  <INPUT TYPE=HIDDEN NAME='fil' VALUE='$fil'>\n";
print "                  <INPUT TYPE=HIDDEN NAME='ttl' VALUE='$ttl'>\n";
print "                  <INPUT TYPE=HIDDEN NAME='alx' VALUE='$alx'>\n";
print "                    &nbsp;&nbsp;&nbsp;<INPUT TYPE=SUBMIT VALUE='Submit'>";
print "                    <input type=hidden name='sort' value='order:=env_dir,fil,ttl,alx'>";
print "</td></tr></table></center>\n"
}