PciIds/Db.pm

   1 package PciIds::Db;
   2 use strict;
   3 use warnings;
   4 use base 'Exporter';
   5 use PciIds::Config;
   6 use DBI;
   7
   8 our @EXPORT = qw( &connectDb );
   9
  10 sub connectDb() {
  11         my ( $uri, $user, $passwd ) = confList( [ "dburi", "dbuser", "dbpasswd" ] );
  12         my $result = DBI->connect( $uri, $user, $passwd, { 'AutoCommit' => 0, 'RaiseError' => 1, 'PrintError' => 0 } ) or die "Could not connect to database $uri (".DBI->errstr.")\n";
  13 }
  14
  15 checkConf( [ "dbuser", "dbpasswd" ] );
  16 defConf( { "dbname" => "pciids" } );
  17 defConf( { "dburi" => "dbi:mysql:".$config{"dbname"} } );
  18
  19 return 1;