e-smith-ldap/sme8/e-smith-ldap-5.2.0-email-domain-change.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-ldap-5.2.0/root/var/service/ldap/convert_ldif mezzanine_patched_e-smith-ldap-5.2.0/root/var/service/ldap/convert_ldif
--- e-smith-ldap-5.2.0/root/var/service/ldap/convert_ldif       2010-06-04 00:17:22.000000000 +0200
+++ mezzanine_patched_e-smith-ldap-5.2.0/root/var/service/ldap/convert_ldif     2010-06-04 00:17:20.000000000 +0200
@@ -7,14 +7,14 @@
 use Net::LDAP::LDIF;
 use esmith::util;
 
-my $old = shift;
-my $new = shift;
+my $olddomain = shift;
+my $newdomain = shift;
 
 my $ldif = Net::LDAP::LDIF->new( "/dev/stdin", "r", onerror => 'undef' );
 my $writer = Net::LDAP::LDIF->new("/dev/stdout", "w", onerror => 'undef' );
 
-$new = esmith::util::ldapBase($new);
-$old = esmith::util::ldapBase($old);
+my $new = esmith::util::ldapBase($newdomain);
+my $old = esmith::util::ldapBase($olddomain);
 
 while( not $ldif->eof())
 {
@@ -48,6 +48,16 @@
     }
     # do any other object transformations
 
+    # Update the mail attributes
+    if ($entry->exists('mail')){
+        my @newmails = ();
+        foreach ($entry->get_value('mail')){
+            $_ =~ s/\@$olddomain$/\@$newdomain/;
+            push (@newmails,$_);
+        }
+        $entry->replace(mail => [ @newmails ]);
+    }
+
     # Update basedb suffix
     $dn =~ s/$old$/$new/;
     $entry->dn($dn);
1	diff -Nur -x '.orig' -x '.rej' e-smith-ldap-5.2.0/root/var/service/ldap/convert_ldif mezzanine_patched_e-smith-ldap-5.2.0/root/var/service/ldap/convert_ldif
2	--- e-smith-ldap-5.2.0/root/var/service/ldap/convert_ldif 2010-06-04 00:17:22.000000000 +0200
3	+++ mezzanine_patched_e-smith-ldap-5.2.0/root/var/service/ldap/convert_ldif 2010-06-04 00:17:20.000000000 +0200
4	@@ -7,14 +7,14 @@
5	use Net::LDAP::LDIF;
6	use esmith::util;
7
8	-my $old = shift;
9	-my $new = shift;
10	+my $olddomain = shift;
11	+my $newdomain = shift;
12
13	my $ldif = Net::LDAP::LDIF->new( "/dev/stdin", "r", onerror => 'undef' );
14	my $writer = Net::LDAP::LDIF->new("/dev/stdout", "w", onerror => 'undef' );
15
16	-$new = esmith::util::ldapBase($new);
17	-$old = esmith::util::ldapBase($old);
18	+my $new = esmith::util::ldapBase($newdomain);
19	+my $old = esmith::util::ldapBase($olddomain);
20
21	while( not $ldif->eof())
22	{
23	@@ -48,6 +48,16 @@
24	}
25	# do any other object transformations
26
27	+ # Update the mail attributes
28	+ if ($entry->exists('mail')){
29	+ my @newmails = ();
30	+ foreach ($entry->get_value('mail')){
31	+ $_ =~ s/\@$olddomain$/\@$newdomain/;
32	+ push (@newmails,$_);
33	+ }
34	+ $entry->replace(mail => [ @newmails ]);
35	+ }
36	+
37	# Update basedb suffix
38	$dn =~ s/$old$/$new/;
39	$entry->dn($dn);