#!/usr/bin/perl
# # # #
#
# ck_connect.pl
#
# Connect to the database.
# Customize this file to your environment!
#
# Copyright (C) 2003 John Gorman <jgorman@webbysoft.com>
# http://www.webbysoft.com/codekit
#
use strict;
use warnings;
use DBI;
# Database connection. Set these parameters:
sub ck_connect {
my $dbh = DBI->connect(
"DBI:mysql:webbysoft:localhost",
"webbysoft",
"124c41"
) or die "DBI::connect: $DBI::errstr\n";
return $dbh;
}
1;