#!/usr/bin/perl -w

use strict;
use warnings;
use POSIX;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

use DB_File;
use DBI;



my $add;
my %chat;
my $chat = "chat.db";

tie %chat, "DB_File", "$chat", O_CREAT|O_RDWR, 0644, $DB_BTREE
	or die "Cannot open file 'chat': $!\n";

my $dbase = "*";
my $mysql_user = "*";
my $mysql_pass = "*";

print header, start_html();

###
# connect to database
###
my $dbh = DBI->connect("DBI:mysql:$dbase", $mysql_user, $mysql_pass) or
print DBI->errstr;
                                   

foreach my $key (reverse sort keys %chat) {

my ( $name, $message, $userip) = split /~~/, $chat{$key};

my $data = qq(INSERT INTO chat (name, message, mood, ip, posttime) VALUES(?,?,?,?,?));
my $sth = $dbh->prepare($data);
$sth->execute($name, $message, "happy", $userip, "0:0:0") or die $dbh->errstr;

print qq($name $message $userip<br><br>);
}