Showing: historic/subgb.txt

As of:  Thu 2010-09-02 17:50:59 UTC  [=1283449859. 13:50:59-04:00]

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

#!/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] -2813.33d <<

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

26 April 2008CE
v10.05