As of:  Fri 2014-08-29 05:14:03 UTC  [=1409289243. 01:14:03-04:00]

>> historic/subgb.txt  L: 2,814. A: 100444. M: 2002-12-20 09:48:47 UTC [=1040377727] -4269.80d >> 

#!/usr/local/bin/perl
read(STDIN, $string, $ENV{'CONTENT_LENGTH'});
($v1,$name,$v2,$addr,$v3,$mesg) = split(/[=&]/, $string);
$sp=' ';
$name =~ s/\+/$sp/eg;
$name =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg;
$namereal = $name;
$name =~ tr/<`/{'/;
$addr =~ s/\+/$sp/eg;
$addr =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg;
$addrreal = $addr;
$addr =~ tr/<`/{'/;
$mesg =~ s/\+/$sp/eg;
$mesg =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg;
$mesgreal = $mesg;
$mesg =~ tr/<`/{'/;
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">',"\n";
print "<html><head>\n<title>Guestbook submission ",
        "acknowledgement</title>\n";
print '<META NAME="GENERATOR" CONTENT="Mozilla/3.0Gold (WinNT; U) [Netscape]">',
        "\n";
print "</head><body><h1>Thank you for your submission</h1>\n";
print "<font size=+1>\n";
@timelist = gmtime(time());
if (length($timelist[5]) == 2) {
     $timelist[5] = "19".$timelist[5];
}
$date = sprintf("%d.%02d.%02d %02d:%02d:%02d GMT", 
                                   # Perl bug trunc. last char?
    $timelist[5],$timelist[4]+1,$timelist[3],
    $timelist[2],$timelist[1],$timelist[0]);
if ($addr ne $addrreal or $name ne $namereal or $mesg ne $mesgreal) {
    $censored = "<br>(dangerous chars translated: 0x60-><b>'</b> and/or 0x3c-><b>{</b>)\n";
} else {
    $censored = "";
}
print "Datestamp: <b>",$date,"</b>",$censored,".<p><hr><pre>\n";
print "<b>$v1</b>: <b>$name</b><br><b>$v2</b>: <b>$addr</b>\n";
print "<p> <p>Parsed <b>$v3</b>:<p>\n";
@lines = split(/\n/, $mesg);
$lnr=1;
$exc_lock=8;
$unlock=2;
if (open(GBK,">> /home/users/bradmcc/public_html/subs")) {
    flock(GBK, $exc_lock);
	seek GBK,0,2;
    printf GBK ("\n<hr>%s.<br>\nFrom: %s (%s)\n",
		        $date, $name, $addr);
	printf GBK ("%s<p>\n", $censored);
    foreach $line (@lines) {
        $fline = $line;
#       chomp($fline);
#    	$fline =~ s/\+/$sp/eg;
#    	$fline =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg;
        printf("<br>    %02d. <b>%s</b>", $lnr++,  $fline);
        if (substr($fline,length($fline)-1) lt $sp) {
            $fline = substr($fline,0,length($fline)-1);
        }
	 printf GBK ("%s<br>\n", $fline);
    }
    flock(GBK, $unlock);
    close (GBK);
}
print "</pre><hr>Note that I add entries to the guest book ",
    'manually, after checking them out, to eliminate "crank" ',
    "submissions (although not, I promise, to censor unfavorable ",
    "but serious material).  Therefore, your present submission ",
    "may not <i>appear</i> in the guestbook for a day or two.\n";
print '<hr><a href="../signgb.html">Return</a> to ',
    "Brad McCormick's guestbook page.</font><hr>",
    "<address>Brad McCormick, Ed.D.<br>",
    "bradmcc\@cloud9.net<br>10 Dec 96</address>\n";
print "</body></html>\n";
exit (0);


<< historic/subgb.txt  L: 2,814. A: 100444. M: 2002-12-20 09:48:47 UTC [=1040377727] -4269.80d <<

[ Please note: ]  Some systems do not provide this script with a return address (the HTTP_REFERER cgi environment variable). In those cases, the "Return" icon at right is disabled, but you can still use your web browser's BACK button to return to the page from which you came to here. I apologize. Thank you for your understanding.

Page generated by:
http://www.users.cloud9.net/~bradmcc/cgi-bin/ascii.pl?f=historic/subgb.txt
Copyright © 2001-2005 Brad McCormick, Ed.D.
bradmcc@cloud9.net [ Email me! ]
26 April 2008CE
v10.05
[ ]
[ ]
[ Notice what's hiding in plain sight! ] [ ]
[ ] [ ]
[ Go home! (BMcC website Home page!) ] [ ] [ Use your web browser's BACK button to return to page from which you linked to here! ] [ ]
[ ]
[ Go to Site Map! ] [ ] [ HTML 3.2 Checked! Test me! ] [ ]
[ ]
[ ]
[ Go to website Table of Contents! ] [ ] [ Welcome to my website! Please come in! ]
[ ]
[ ]