C4/Database.pm

   1 package C4::Database; #asummes C4/Database
   2
   3 #requires DBI.pm to be installed
   4
   5 use strict;
   6 require Exporter;
   7 use DBI;
   8 use vars qw($VERSION @ISA @EXPORT);
   9
  10 $VERSION = 0.01;
  11
  12 @ISA = qw(Exporter);
  13 @EXPORT = qw(&C4Connect);
  14
  15
  16 sub C4Connect  {
  17   my $dbname="c4";
  18    my ($database,$hostname,$user,$pass,%configfile);
  19    open (KC, "/etc/koha.conf");
  20    while (<KC>) {
  21      chomp;
  22      (next) if (/^\s*#/);
  23      if (/(.*)\s*=\s*(.*)/) {
  24        my $variable=$1;
  25        my $value=$2;
  26        # Clean up white space at beginning and end
  27        $variable=~s/^\s*//g;
  28        $variable=~s/\s*$//g;
  29        $value=~s/^\s*//g;
  30        $value=~s/\s*$//g;
  31        $configfile{$variable}=$value;
  32      }
  33    }
  34    $database=$configfile{'database'};
  35    $hostname=$configfile{'hostname'};
  36    $user=$configfile{'user'};
  37    $pass=$configfile{'pass'};
  38
  39    my $dbh=DBI->connect("DBI:mysql:$database:$hostname",$user,$pass);
  40   return $dbh;
  41 }
  42
  43
  44 END { }