#!/sys/pkg/bin/perl -w 

#ggb - Gopher Guest Book

use strict;
use Text::Wrap;
$Text::Wrap::columns=80;
use Fcntl qw(:flock);

$ENV{PATH} = "";
$> = $<;
$) = $(;

# === Configurable Variables ===

# this script's name so it can get all self-referential
my $name = "ggb.cgi";

# the greeting visitors will receive
my $greeting = "Thanks for stopping in.";

# the directory ggb is in for gopherlinks, make sure not to end with a "/"
my $base_dir ="/users/wt/ggb";

# full path name to ggb's directory, make sure not to end with a "/"
my $dir = "/ftp/pub$base_dir";

# the server that is hosting the script
my $server = "sdf.lonestar.org";

# the port number the server uses; don't change this unless you know its serving from a different port
my $port = 70;

# === End Configurable Variables ===

my $serv_string = "\tnull\ttext\t70";
my $ver = "ggb 0.0.1d";
my $footer = "i$serv_string\r\nipowered by $ver$serv_string\r\n";
my $comfile = "$dir/guestbook.cmt";
my $go_string = "\t$base_dir/$name\t$server\t$port";

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
my @months = qw(January February March April May June July August September October November December);
my @mins = qw(00 01 02 03 04 05 06 07 08 09);

if ($#ARGV > 0  && $#ARGV < 250) {
    my $tmp = "$comfile.tmp";

    open (NEW, "> $tmp") && flock (NEW, LOCK_EX);
    my $mtime = (stat ($tmp))[9];
    my @date = (($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mtime));
    if ($min >= 0 && $min <= 9) {
        $min = $mins[$min];
    }
    $year = $year + 1900;
    print NEW "$year $months[$mon] $mday, $hour:$min\n";
    print NEW wrap ("", "", @ARGV[0 .. $#ARGV]), "\n";
    print NEW "\n--------------------------------------------------------------------------------\n\n";
    if (-e $comfile) {
        open (OLD, "< $comfile") && flock (OLD, LOCK_EX);
        while (my $line = <OLD>) {
            print NEW $line;
        }
        close OLD;
    }
    close NEW;
    rename ($tmp, $comfile) || die "Can't rename!";
    chmod 0644, $comfile;
    print "iYour message has been posted.$serv_string\r\n";
    print "1View Guestbook$go_string\r\n";
    print ".\r\n";
    exit;
} elsif ($#ARGV >= 250) {
    print "3Sorry, message should be less than 250 words$serv_string";
    exit;
}

$Text::Wrap::separator = "$serv_string\r\n";
print wrap("i", "i", $greeting), "$serv_string\r\n";
$Text::Wrap::separator = "\n";
print "i$serv_string\r\n";
print "7Leave Message$go_string\r\n";
print  "iFeel free to leave a message of 250 words or less.$serv_string\r\n";
print "i$serv_string\r\ni--------------------------------------------------------------------------------$serv_string\r\ni$serv_string\r\n";
if (-e "$comfile") {
    open (FH, "< $comfile");
    while (<FH>) {
        chomp;
        print "i$_$serv_string\r\n";
    }
}
print $footer;
print ".\r\n";