steffen: server/perl-kolab/Kolab-LDAP Makefile.am, NONE, 1.1 LDAP.pm, 1.30, 1.31

[cvs at intevation.de]

Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-LDAP
In directory doto:/tmp/cvs-serv22190/Kolab-LDAP

Modified Files:
	LDAP.pm 
Added Files:
	Makefile.am 
Log Message:
autoperlized perl-kolab. Last non-autoperl version is tagged pre_autoperl

--- NEW FILE: Makefile.am ---
include_HEADERS = LDAP.pm

Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- LDAP.pm	3 May 2005 23:25:44 -0000	1.30
+++ LDAP.pm	8 Jun 2005 12:44:35 -0000	1.31
@@ -35,6 +35,7 @@
 use vars qw(%uid_db %gyard_db %newuid_db %gyard_ts_db);
 
 require Exporter;
+require "config.h";
 
 our @ISA = qw(Exporter);
 
@@ -67,19 +68,19 @@
 
     Kolab::log('L', 'Opening mailbox uid cache DB');
 
-    if (!dbmopen(%uid_db, $Kolab::config{'prefix'} . '/var/kolab/mailbox-uidcache.db', 0666)) {
+    if (!dbmopen(%uid_db, $Kolab::config{'prefix'} . $ap::config->{localstatedir}/kolab/mailbox-uidcache.db, 0666)) {
         Kolab::log('L', 'Unable to open mailbox uid cache DB', KOLAB_ERROR);
         exit(1);
     }
 
     Kolab::log('L', 'Opening graveyard uid/timestamp cache DB');
 
-    if (!dbmopen(%gyard_db, $Kolab::config{'prefix'} . '/var/kolab/graveyard-uidcache.db', 0666)) {
+    if (!dbmopen(%gyard_db, $Kolab::config{'prefix'} . $ap::config->{localstatedir}/kolab/graveyard-uidcache.db, 0666)) {
         Kolab::log('L', 'Unable to open graveyard uid cache DB', KOLAB_ERROR);
         exit(1);
     }
 
-    if (!dbmopen(%gyard_ts_db, $Kolab::config{'prefix'} . '/var/kolab/graveyard-tscache.db', 0666)) {
+    if (!dbmopen(%gyard_ts_db, $Kolab::config{'prefix'} . $ap::config->{localstatedir}/kolab/graveyard-tscache.db, 0666)) {
         Kolab::log('L', 'Unable to open graveyard timestamp cache DB', KOLAB_ERROR);
         exit(1);
     }