gunnar: server/perl-kolab/Kolab-LDAP LDAP.pm.in,1.7,1.8

[cvs at kolab.org]

Author: gunnar

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

Modified Files:
	LDAP.pm.in 
Log Message:
Removed dirserv-support from perl-kolab.

Index: LDAP.pm.in
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm.in,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- LDAP.pm.in	28 Mar 2007 01:48:28 -0000	1.7
+++ LDAP.pm.in	26 Jul 2007 15:17:56 -0000	1.8
@@ -33,7 +33,6 @@
 use Kolab;
 use Kolab::Util;
 use Kolab::Cyrus;
-use Kolab::DirServ;
 use vars qw(%uid_db %gyard_db %newuid_db %gyard_ts_db %quota_db);
 
 require Exporter;
@@ -308,7 +307,6 @@
             Kolab::log('L', "Object `$uid' already exists, skipping", KOLAB_DEBUG);
 	}
         # Nothing changed; nothing to do
-        #Kolab::DirServ::genericRequest($object, "modify alias");
     } else {
         # No official records - check the graveyard
         my $oldgyarduid = $gyard_db{$guid} || '';
@@ -359,7 +357,6 @@
 #	      mkdir( $fbdir, 0750);
 #	      chown( $Kolab::config{'kolab_n_uid'},$Kolab::config{'kolab_n_gid'},$fbdir );
 #	    }
-            Kolab::DirServ::genericRequest($object, "new alias") if $p eq 'user';
         }
     }
 
@@ -507,8 +504,6 @@
         Kolab::log('L', 'Deleted object not found in mboxcache, returning', KOLAB_DEBUG);
         return;
     }
-
-    Kolab::DirServ::genericRequest($object, "remove alias") if $p eq 'user';
 
     Kolab::Cyrus::deleteMailbox($cyrus, $uid, ($p eq 'sf' ? 1 : 0));
 #    if( $p ne 'sf' ) {