package DBConnect;

#Copyright (C) 2004 Susan J. Dridi sdridi@greens.org
#
#This program is free software; you can redistribute it and/or
#modify it under the terms of the GNU General Public License
#as published by the Free Software Foundation; either version 2
#of the License, or (at your option) any later version.
#
#This program is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#GNU General Public License for more details.
#
#You should have received a copy of the GNU General Public License
#along with this program; if not, write to the Free Software
#Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

use strict;
use warnings;
use DBI;

#Connect to the Database

sub connectw {
my $dsn = "DBI:mysql:DBNAME";
my $user = "DBW";
my $pw = "DBPW";
return (DBI->connect ($dsn, $user, $pw, 
{PrintError => 0, RaiseError => 1}));
}

sub connectr {
my $dsn = "DBI:mysql:DBNAME";
my $user = "DBR";
my $pw = "DBPR";
return (DBI->connect ($dsn, $user, $pw, 
{PrintError => 0, RaiseError => 1}));
}

1; #return true

