sub mwsconnect
{

	use DBI;

	local $server = $MWSPARAM{server};
	local $db = $MWSPARAM{db};
	local $user = $MWSPARAM{user};
	local $passwd = $MWSPARAM{passwd};


	#==========================================
	#make the connection
	#==========================================
		$mwsdbh = DBI->connect("DBI:mysqlPP:database=$db;host=$server", $user, $passwd) or &mwserror("DB Error: " . $DBI::errstr);
}

sub mwsdisconnect
{
	$mwsdbh->disconnect();
}