#! /usr/local/bin/perl

# Oregon Country Fair Guestbook (ocfgbook.cgi) by k_rogers@efn.org

$filename = "ocfgbook.html";
$filename_url = "http://www.efn.org/~ocf/ocfgbook.html";

$date = `/usr/bin/date`; chop ($date);

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);

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

	$FORM{$name} = $value;
}

# Enter our tags and sections into an associative array

%sections = (	"A","COMMENTS",
                "B","QUESTIONS",);

open (FILE,"$filename") || die "can\'t open $filename: $!\n";

while (<FILE>) {
	$raw_data .=  $_;
}

close(FILE);

undef $/;
@proc_data = split(/\n/,$raw_data);

open (FILE,">$filename");


foreach $line (@proc_data) {

	print FILE "$line\n";

	foreach $tag (keys(%sections)) {

		if ( ($FORM{section} eq $sections{$tag}) && ($line =~ /<!--$tag-->/) ) {

			print FILE "<dt>$date <B>$FORM{realname}</B> ";

			if ($FORM{username} ne "") {
				print FILE "<A HREF=\"mailto:$FORM{username}\">$FORM{username}</A>\n";
			}
			else {
				print FILE "\n";
			}
			print FILE "<DD><B>$FORM{where}</B>\n<P>\n";

		    if ($FORM{userurl} ne "") {
        		print FILE "<A HREF=\"$FORM{userurl}\">$FORM{userurl}</A><P>\n";
		    }

			if ($FORM{affiliation} ne "") {
				print FILE "<I>Fair Affiliation: </I>$FORM{affiliation}\n<P>\n";
			}

		    if ($FORM{how} ne "") {
    			print FILE "<I>Heard about this page from: </I>$FORM{how}\n<P>\n";
    		}

			print FILE "$FORM{comments}<BR>\n<HR>\n";


		}
	}
}

close (FILE);

print "Location: $filename_url\n\n";