#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use DBI;
use DBD::mysql;

print header( -charset=>"iso-8859-7" );
print start_html( -title=>"Ψυχωφελή Πνευματικά Κείμενα!", -background=
+>"../data/images/night.jpg" );

$db = DBI->connect("DBI:mysql:nikos_db", "root", "") or
$db = DBI->connect("DBI:mysql:nikos_db:50free.net", "nikos_db", "XXXXX", {RaiseError=>1});

$db->do( "drop database if exists nikos_db");
$db->do( "create database nikos_db" );