Help for this page

Select Code to Download

Select or download this

sub db_connect {
    ($database,$user,$password) = @_;
    my $h = DBI->connect("dbi:mysql:database=$database;host=dbxxx.onea
+ndone.co.uk", $user, $password) or printError("Unable to connect to $
+database" . $DBI::errstr);
    return $h;
}