#!/usr/bin/perl -w

open( STDERR, ">>/home/sulfericacid/public_html/error.log" )
  or die "Cannot open error log, weird...an error opening an error log: $!";

use strict;
use warnings;
use POSIX;
use CGI qw/:standard/;

require SDBM_File;

my %chat;
my $chat = "list.dbm";
my $file = "iplog.txt";

tie %chat, 'SDBM_File', $chat, O_CREAT | O_RDWR, 0644;
if ( !tied %chat ) {
    print "database unsuccessful $!.\n";
}

print header, start_html;

print "<table>";
foreach ( keys(%chat) ) {
    print "<tr><td>";
    my ( $one, $two ) = split /::/, $chat{$_};
    print "<font color=blue>$one:</font> $two";
    print "</td></tr>";
}
print "</table>";

print start_form(), table(
    Tr(
        td("Name: "),
        td(
            textfield(
                -name => 'name',
                -size => 40
            )
        )
    ),
    Tr(
        td("Message: "),
        td(
            textfield(
                -name => 'message',
                -size => 150
            )
        )
    ),

    Tr( td(), td(submit) ),
  ),
  end_form(), hr();

if ( param() ) {
    my $name    = param('name');
    my $message = param('message');
    my $cnt;

    open( LOG, "$file" );
    $cnt = <LOG>;
    close(LOG);

    $cnt++;
    open( LOG, "> $file" );
    print LOG $cnt;
    close(LOG);

    my $info = join ( '::', $name, $message );

    $chat{$cnt} = $info;
}