perl/lib/ConnectionFileMySQL.pm

0001 #!/usr/bin/perl
0002
0003 use warnings;
0004 use strict;
0005
0006 use CondDB::MySQL;
0007
0008 package ConnectionFile;
0009
0010 # connection information
0011 our $host = "localhost";
0012 our $db = "test_condDb2";
0013 our $user = "";
0014 our $pass = "";
0015 our $db_opts = {RaiseError=>1};
0016
0017 # return the conditions database interface
0018 sub connect {
0019   my $condDB = new CondDB::MySQL;
0020
0021   $condDB->connect(-host=>$host,
0022            -db=>$db,
0023            -user=>$user,
0024            -pass=>$pass,
0025            -db_opts=>$db_opts);
0026
0027   return $condDB;
0028 }
0029
0030 1;