#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

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

use DBI;

###################
# configurations
###################
my $dbase = "spyders_test";
my $mysql_user = "spyders_admin";
my $mysql_pass = "pass";

my $table1 = "table1";
###################
# end configurations
###################
print header;

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

print "Connection was made<p>";


##########
# Altavista
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS altavista
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Altavista table created.<br>"; }  

##########
# Google
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS google
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Google table created.<br>"; }  

##########
# Alexa
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS alexa
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Alexa table created.<br>"; }  

##########
# AllTheWeb
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS alltheweb
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "AllTheWeb table created.<br>"; }  

##########
# Entireweb
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS entireweb
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Entireweb table created.<br>"; }  

##########
# Excite
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS excite
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Excite table created.<br>"; }  

##########
# Galaxy
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS altavista
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Altavista table created.<br>"; }  

##########
# Euroseek
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS euroseek
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Euroseek table created.<br>"; }  

##########
# Infoseek
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS infoseek
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "InfoSeek table created.<br>"; }  

##########
# Lycos
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS lycos
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Lycos table created.<br>"; }  

##########
# MSN
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS msn
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "MSN table created.<br>"; }  

##########
# NothernLight
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS northernlight
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "NorthernLight table created.<br>"; }  

##########
# Teoma
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS teoma
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Teoma table created.<br>"; }  

##########
# JUNK TEST
##########

my $sth = $dbh->prepare(
    "CREATE TABLE IF NOT EXISTS junk
    (
       id int auto_increment not null,
       useragent char(32) NOT NULL,
       ip char(32) NOT NULL,
       date char(32) NOT NULL,
       primary key  (id)
    )");
$sth->execute();

if ($sth->errstr) { print $sth->errstr; }  
else {  print "Junk table created.<br>"; }  


$dbh->disconnect
or warn "Couldn't disconnect from database: $DBI::errstr";
exit;