e-smith-ldap-5.2.0-fix_ldap_delete.patch

--- e-smith-ldap-5.2.0/root/etc/e-smith/events/actions/ldap-delete.fix_ldap_delete	2010-09-27 19:20:39.000000000 +0200
+++ e-smith-ldap-5.2.0/root/etc/e-smith/events/actions/ldap-delete	2010-09-27 19:22:00.000000000 +0200
@@ -57,8 +57,10 @@
     password => $pw
 );
 
+my $mesg;
+
 # Delete any user object with this name
-my $mesg = $ldap->search( base-> "uid=$name,ou=Users,$base", filter => '(ObjectClass=*)', scope => 'base' );
+$mesg = $ldap->search( base=> "uid=$name,ou=Users,$base", filter => '(ObjectClass=*)', scope => 'base' );
 if ($mesg->code && $mesg->code != 32)
 {
     warn "Failed ldap search uid=$name,ou=Users,$base: ", $mesg->error;
@@ -69,7 +71,7 @@
 }
 
 # Delete any computer object with this name
-my $mesg = $ldap->search( base-> "uid=$name,ou=Computers,$base", filter => '(ObjectClass=*)', scope => 'base' );
+$mesg = $ldap->search( base=> "uid=$name,ou=Computers,$base", filter => '(ObjectClass=*)', scope => 'base' );
 if ($mesg->code && $mesg->code != 32)
 {
     warn "Failed ldap search uid=$name,ou=Computers,$base: ", $mesg->error;
@@ -80,7 +82,7 @@
 }
 
 # Delete any (old) user/computer object with this name
-my $mesg = $ldap->search( base-> "uid=$name,$base", filter => '(ObjectClass=*)', scope => 'base' );
+$mesg = $ldap->search( base=> "uid=$name,$base", filter => '(ObjectClass=*)', scope => 'base' );
 if ($mesg->code && $mesg->code != 32)
 {
     warn "Failed ldap search uid=$name,$base: ", $mesg->error;
@@ -91,7 +93,7 @@
 }
 
 # Delete any group object with this name
-my $mesg = $ldap->search( base-> "cn=$name,ou=Groups,$base", filter => '(ObjectClass=*)', scope => 'base' );
+$mesg = $ldap->search( base=> "cn=$name,ou=Groups,$base", filter => '(ObjectClass=*)', scope => 'base' );
 if ($mesg->code && $mesg->code != 32)
 {
     warn "Failed ldap search cn=$name,ou=Groups,$base: ", $mesg->error;
@@ -102,7 +104,7 @@
 }
 
 # Delete any (old) group object with this name
-my $mesg = $ldap->search( base-> "cn=$name,$base", filter => '(ObjectClass=*)', scope => 'base' );
+$mesg = $ldap->search( base=> "cn=$name,$base", filter => '(ObjectClass=*)', scope => 'base' );
 if ($mesg->code && $mesg->code != 32)
 {
     warn "Failed ldap search cn=$name,$base: ", $mesg->error;