#===============================================================================
my $db = ( $ENV{'SERVER_NAME'} !~ /varsa/ )
       ? DBI->connect("DBI:mysql:;localhost, root, ******", {RaiseError=>1})
       : DBI->connect("DBI:mysql:;mysql3.freehostia.com, nikkou6_db, ******", {RaiseError=>1});
#===============================================================================


#========================= CREATE DATABASE AND TABLES ==========================
my $dbname = ( $ENV{'SERVER_NAME '} !~ /varsa/ ) ? 'e_shop' : 'nikkou6_db';

$db->do( "DROP DATABASE IF EXISTS $dbname" );
$db->do( "CREATE DATABASE $dbname" );
$db->do( "USE $dbname" );