#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

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

###################
# configurations
###################
my $dbase = "everyday_forum";
my $mysql_user = "everyday_everyda";
my $mysql_pass = "";

my $dbase2 = "everyday_contest";
my $mysql_user2 = "everyday_everyda";
my $mysql_pass2 = "";


###################
# end configurations
###################
print header;

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

my $dbh = DBI->connect("DBI:mysql:$dbase2", $mysql_user2, $mysql_pass2) or
print DBI->errstr;



######################################
# first things first, read from chat database and pull back everyone with a positive post count
########################################
my $data = qq(SELECT memberName, posts FROM smf_members where posts > "0");
my $sth = $dbh->prepare($data);
$sth->execute() or die $dbh->errstr;

my ($name, $posts);
$sth->bind_columns(\$name, \$posts);

while($sth->fetch)
{
   print "$name -> $posts<br>";
   my $data = qq(INSERT into forum (
}