steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.19,1.20

[cvs at intevation.de]

Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-Conf
In directory doto:/tmp/cvs-serv5335/perl-kolab/Kolab-Conf

Modified Files:
	Conf.pm 
Log Message:
bugfixes

Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Conf/Conf.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- Conf.pm	17 Jun 2004 02:49:14 -0000	1.19
+++ Conf.pm	18 Jun 2004 01:25:59 -0000	1.20
@@ -440,7 +440,13 @@
         exit(1);
     }
 
-    for my $h ( @{$Kolab::config{'kolabhost'}} ) {
+    my @kh;
+    if( ref $Kolab::config{'kolabhost'} eq 'ARRAY' ) {
+      @kh = @{$Kolab::config{'kolabhost'}};
+    } else {
+      @kh = ( $Kolab::config{'kolabhost'} );
+    }
+    for my $h ( @kh ) {
       next if $h eq $Kolab::config{'fqhostname'};
       print $repl "replica uri=ldaps://$h:9999\n"
         ."  binddn=\"cn=replicator\"\n"