steffen: server/perl-kolab/Kolab-DirServ Makefile.am, NONE, 1.1 DirServ.pm, 1.2, 1.3

[cvs at intevation.de]

Author: steffen

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

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

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

Index: DirServ.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-DirServ/DirServ.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- DirServ.pm	12 Aug 2004 10:55:39 -0000	1.2
+++ DirServ.pm	8 Jun 2005 12:44:35 -0000	1.3
@@ -38,6 +38,7 @@
 use vars qw(@peers);
 
 require Exporter;
+require "config.h";
 
 our @ISA = qw(Exporter);
 
@@ -62,7 +63,7 @@
 
 sub reloadPeers
 {
-    @peers = readList($Kolab::config{'prefix'} . "/etc/kolab/addressbook.peers");
+    @peers = readList($Kolab::config{"$ap::config->{prefix}"} . "$ap::config->{sysconfdir}/kolab/addressbook.peers");
 
     foreach my $peer (@peers) {
         Kolab::log('DS', "Using peer $peer", KOLAB_DEBUG);