#!/usr/local/bin/perl
$_ = <STDIN>;

# process the POST format
s/^username\=//;
s/\+/ /g;
s/%(..)/pack("c",hex($1))/ge;

# get time
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$date = sprintf("%02d:%02d:%02d %02d/%02d/%02d",
	$hour,$min,$sec,$year,$mon+1,$mday);

# append to the end of the blackboard-file
open(OUT, ">> /users/@ARGV/.public_html/guestbook.html");
print OUT ;
print OUT "<i>$date</i>" ;
print OUT "\n<HR>\n";
close(OUT);

# print message
print "Content-type: text/html\n\n";
print "<H2>Your tag has been added to the 
	<a href=\"http://www.eecs.ukans.edu/~@ARGV/guestbook.html\">
	Guest Book</a>!</H2>";