#! /usr/bin/perl -wT
	package WebDB;

	use strict;
	use DBI;

	my $host_name = "localhost";
	my $db_name = "gmacfadd_webdb";
	my $dsn = "DBI:mysql:database=$db_name;host=$host_name";
	# Connect to MySQL server using hardwired name and password
	sub connect
	{
		return (DBI->connect ($dsn, "gmacfadd_webdev2", "webdevpass2",
			{PrintError => 0, RaiseError =>1}));
	}

	sub connect_with_option_file
	{
	        $dsn .= ";mysql_read_default_file=$ENV{HOME}/.my.cnf";
		return (DBI->connect ($dsn, undef, undef,
			{PrintError => 0, RaiseError =>1}));
	}
	1;	#return true