44 lines
933 B
Perl
Executable file
44 lines
933 B
Perl
Executable file
package C4::Database; #asummes C4/Database
|
|
|
|
#requires DBI.pm to be installed
|
|
|
|
use strict;
|
|
require Exporter;
|
|
use DBI;
|
|
use vars qw($VERSION @ISA @EXPORT);
|
|
|
|
$VERSION = 0.01;
|
|
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw(&C4Connect);
|
|
|
|
|
|
sub C4Connect {
|
|
my $dbname="c4";
|
|
my ($database,$hostname,$user,$pass,%configfile);
|
|
open (KC, "/etc/koha.conf");
|
|
while (<KC>) {
|
|
chomp;
|
|
(next) if (/^\s*#/);
|
|
if (/(.*)\s*=\s*(.*)/) {
|
|
my $variable=$1;
|
|
my $value=$2;
|
|
# Clean up white space at beginning and end
|
|
$variable=~s/^\s*//g;
|
|
$variable=~s/\s*$//g;
|
|
$value=~s/^\s*//g;
|
|
$value=~s/\s*$//g;
|
|
$configfile{$variable}=$value;
|
|
}
|
|
}
|
|
$database=$configfile{'database'};
|
|
$hostname=$configfile{'hostname'};
|
|
$user=$configfile{'user'};
|
|
$pass=$configfile{'pass'};
|
|
|
|
my $dbh=DBI->connect("DBI:mysql:$database:$hostname",$user,$pass);
|
|
return $dbh;
|
|
}
|
|
|
|
|
|
END { }
|