package vol;

use strict;
use DBI;
use CGI qw(:all *table param);
use CGI::Carp qw(fatalsToBrowser);
use HTML::Parser;
use Mail::Mailer;
use Time::DaysInMonth;

# use CGI::Session;
$CGI::POST_MAX=1024 * 100;  # max 100K posts
$CGI::DISABLE_UPLOADS = 1;  # no uploads
$CGI::HEADERS_ONCE = 1;

my $host_name = "localhost";
my $db_name = "databasename";
my $dsn = "DBI:mysql:host=$host_name;database=$db_name";

#  Connect to MySQL Server, using hardcoded userID and password

sub connect {
   return (DBI->connect($dsn,"user","secret",
      {PrintError => 0, RaiseError => 1}));
}

sub connect_new {
   my($host,$db,$user,$pw) = @_;
#   my $host = "$config{'db'}{'db_host_name'}";
#   my $db = "$config{'db'}{'db_name'}";
#   my $user = "$config{'db'}{'db_user'}";
#   my $pw = "$config{'db'}{'db_pw'}";
   my $dsn = "DBI:mysql:host=$host;database=$db";
   return (DBI->connect($dsn,$user,$pw,
      {PrintError => 0, RaiseError => 1}));
}