* Remove html/domains.tab from the source, it's autogenerated at
build time.
+ * remove gender attribute from ud-ldap: How one identifies is not relevant
+ to their work in Debian.
-- Peter Palfrader <weasel@debian.org> Sun, 04 Nov 2018 13:13:10 +0100
<b>mailContentInspectionAction</b> (markup|blackhole|reject)
<b>mailDefaultOptions</b> (TRUE|FALSE),
<b>bATVToken</b>,
-<b>VoIP</b>,
-and <b>gender</b> (1|2|9|male|female|unspecified).
+and <b>VoIP</b
<li>A line of the form <tt>'del field'</tt> will completly remove all
occurrences of a field. Useful e.g. to unset your vacation status.
(Phone, phone)
(Fax, fax)
(Last seen, lastseen)
-(Gender, gender)
(Date of birth, birthdate)
(Mail disabled, maildisablemessage)
(male, male)
<b>Name:</b></td><td>~cn~ ~mn~ ~sn~
</td></tr>
- <tr><td class=right>
- <b>Gender:</b></td><td>
- <?genderselect>
- </td></tr>
-
<tr><td class=right>
<b>Date of Birth (YYYYMMDD):</b></td><td>
<input size=8 name=birthdate value="~birthdate~" maxlength=8>
my $ok = 0;
# These are local variables.. i have enough global vars as it is... <sigh>
my ($ufdn, $login, $name, $icquin, $jabberjid, $email, $fingerprint,
- $address, $latlong, $vacation, $created, $modified, $lastseen, $gender) = undef;
+ $address, $latlong, $vacation, $created, $modified, $lastseen) = undef;
# Last seen information (Echelon)
$lastseen = &Util::FormatLastSeen($entries->{$dn}->{"activity-pgp"}->[0],
$latlong .= " / ";
$latlong .= $data->{longitude}->[0] || "none";
- # Gender
- if ($data->{gender}->[0]) {
- if ($data->{gender}->[0] == 1) {
- $gender = $dataspecref->{male};
- } elsif ($data->{gender}->[0] == 2) {
- $gender = $dataspecref->{female};
- } else {
- $gender = $dataspecref->{unspecified};
- }
- } else {
- $gender = $dataspecref->{unspecified};
- }
-
# Modified/created time. TODO: maybe add is the name of the creator/modifier
$modified = &Util::FormatTimestamp($data->{modifytimestamp}->[0]);
$created = &Util::FormatTimestamp($data->{createtimestamp}->[0]);
}
$outsub{searchresults} .= FormatEntry($dataspecref->{uid}, $login);
- $outsub{searchresults} .= FormatEntry($dataspecref->{gender}, $gender);
if ($data->{ircnick}->[0]) {
$outsub{searchresults} .= FormatEntry($dataspecref->{ircnick}, $data->{ircnick}->[0]);
}
$data{$_} = CGI::escapeHTML($data{$_}) if defined $data{$_};
}
- $data{gender} = 9 if not $data{gender};
-
# Now we have to fill in the rest that needs some processing...
$data{id} = $id;
$data{authtoken} = $authtoken;
$data{email} = CGI::escapeHTML(join(", ", @{$entry->{emailforward}}));
- my $genderselect = '<select name="gender">'
- . '<option value="9"'
- . ($data{gender} == 9 ? ' selected' : '')
- . '>unspecified'
- . '<option value="1"'
- . ($data{gender} == 1 ? ' selected' : '')
- . '>male<option value="2"'
- . ($data{gender} == 2 ? ' selected' : '')
- . '>female</select>';
my $mailcontentselect = '<select name="mailcontentinspection">'
. '<option value="blackhole"'
. ($data{mailcontentinspectionaction} eq 'blackhole' ? ' selected' : '')
open (F, "<$config{webupdatehtml}") || &Util::HTMLError($!);
while (<F>) {
s/~(.+?)~/$data{$1}/g;
- s/<\?genderselect>/$genderselect/;
s/<\?mailcontentselect>/$mailcontentselect/;
s/<\?sudopassword>/$sudopassword/;
s/<\?sudopasswordhosts>/$sudopasswordhosts/;
$newstaddress = $query->param('staddress');
$newstaddress =~ s/\n/\$/m;
- my $gender = $query->param('gender');
- if ($gender != 1 && $gender != 2) {
- $gender = 9; # unspecified
- }
-
my ($bd_ok, $bd_yr, $bd_mo, $bd_day);
if ($query->param('birthdate') =~ /^([1-9][0-9]{3})([01][0-9])([0-3][0-9])$/) {
&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);