revised perl_ldap-mail-from-ldap.patch

perl_ldap-mail-from-ldap.patch (text/plain), 663 bytes, created by Christian Heim (RETIRED) on 2007-11-16 17:08:25 UTC

--- perl_ldap.orig	2007-10-21 14:09:38.000000000 +0000
+++ perl_ldap	2007-11-16 17:05:17.000000000 +0000
@@ -427,7 +427,14 @@
         } else {
           $userinfo .= '    <pgpkey>'.$_->get_value('gpgkey').'</pgpkey>'."\n";
         }
-        $userinfo .= '    <email role="gentoo">'.$_->get_value('uid').'@gentoo.org'.'</email>'."\n";
+
+        my @mail = $_->get_value('mail');
+        my $address;
+
+        foreach $address (@mail) {
+			$userinfo .= '    <email>'.$address.'</email>'."\n";
+		}
+
         if(!defined($_->get_value('gentooJoin')) || ($_->get_value('gentooJoin') eq 'undefined'))
         {
           $userinfo .= '    <joined/>'."\n";