-
- LDAPUpdate($ldap, $editdn, 'postalAddress', $newstaddress);
- LDAPUpdate($ldap, $editdn, 'l', $query->param('l'));
- LDAPUpdate($ldap, $editdn, 'latitude', $lat);
- LDAPUpdate($ldap, $editdn, 'longitude', $long);
- LDAPUpdate($ldap, $editdn, 'c', $query->param('country'));
- LDAPUpdate($ldap, $editdn, 'postalcode', $query->param('postalcode'));
- LDAPUpdate($ldap, $editdn, 'telephoneNumber', $query->param('telephonenumber'));
- LDAPUpdate($ldap, $editdn, 'facsimileTelephoneNumber', $query->param('facsimiletelephonenumber'));
- LDAPUpdate($ldap, $editdn, 'loginShell', $query->param('loginshell'));
- LDAPUpdate($ldap, $editdn, 'emailForward', $query->param('email'));
- LDAPUpdate($ldap, $editdn, 'privatesub', $query->param('privatesub'));
- LDAPUpdate($ldap, $editdn, 'ircNick', $query->param('ircnick'));
- LDAPUpdate($ldap, $editdn, 'labeledUrl', $query->param('labeledurl'));
- LDAPUpdate($ldap, $editdn, 'onvacation', $query->param('onvacation'));
+ my ($greylisting, $callout);
+
+ $greylisting = $query->param('mailgreylisting');
+ if (!$greylisting or $greylisting ne "TRUE") {
+ $greylisting = "FALSE";
+ }
+
+ $callout = $query->param('mailcallout');
+ if (!$callout or $callout ne "TRUE") {
+ $callout = "FALSE";
+ }
+
+ &Util::LDAPUpdate($ldap, $editdn, 'postalAddress', $newstaddress);
+ &Util::LDAPUpdate($ldap, $editdn, 'l', $query->param('l'));
+ &Util::LDAPUpdate($ldap, $editdn, 'latitude', $lat);
+ &Util::LDAPUpdate($ldap, $editdn, 'longitude', $long);
+ &Util::LDAPUpdate($ldap, $editdn, 'c', $query->param('country'));
+ &Util::LDAPUpdate($ldap, $editdn, 'postalCode', $query->param('postalcode'));
+ &Util::LDAPUpdate($ldap, $editdn, 'telephoneNumber', $query->param('telephonenumber'));
+ &Util::LDAPUpdate($ldap, $editdn, 'facsimileTelephoneNumber', $query->param('facsimiletelephonenumber'));
+ &Util::LDAPUpdate($ldap, $editdn, 'VoIP', $query->param('VoIP'));
+ &Util::LDAPUpdate($ldap, $editdn, 'loginShell', $query->param('loginshell'));
+ &Util::LDAPUpdate($ldap, $editdn, 'emailForward', $query->param('email'));
+ &Util::LDAPUpdate($ldap, $editdn, 'privateSub', $query->param('privatesub'));
+ &Util::LDAPUpdate($ldap, $editdn, 'ircNick', $query->param('ircnick'));
+ &Util::LDAPUpdate($ldap, $editdn, 'icqUin', $query->param('icquin'));
+ &Util::LDAPUpdate($ldap, $editdn, 'jabberJID', $query->param('jabberjid'));
+ &Util::LDAPUpdate($ldap, $editdn, 'labeledURI', $query->param('labeleduri'));
+ &Util::LDAPUpdate($ldap, $editdn, 'onVacation', $query->param('onvacation'));
+ &Util::LDAPUpdate($ldap, $editdn, 'gender', $gender);
+ &Util::LDAPUpdate($ldap, $editdn, 'birthDate', $query->param('birthdate')) if $bd_ok;
+ &Util::LDAPUpdate($ldap, $editdn, 'mailDisableMessage', $query->param('maildisablemessage'));
+ &Util::LDAPUpdate($ldap, $editdn, 'mailCallout', $callout);
+ &Util::LDAPUpdate($ldap, $editdn, 'mailGreylisting', $greylisting);