#!/usr/bin/perl
-# $Id: update.cgi,v 1.12 2006/12/22 08:58:50 rmurray Exp $
+# $Id: update.cgi,v 1.13 2006/12/28 02:44:02 rmurray Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
# (c) 2006 Ryan Murray. Licensed under the GPL. <rmurray@debian.org>
$data{staddress} = $entry->{postaladdress}->[0];
$data{staddress} =~ s/\$/\n/;
$data{countryname} = &Util::LookupCountry($data{c});
+
+ if ($data{mailgreylisting} eq "TRUE") {
+ $data{mailgreylisting} = " checked";
+ } else {
+ $data{mailgreylisting} = "";
+ }
+
+ if ($data{mailcallout} eq "TRUE") {
+ $data{mailcallout} = " checked";
+ } else {
+ $data{mailcallout} = "";
+ }
$data{email} = join(", ", @{$entry->{emailforward}});
my ($lat, $long);
($lat, $long) = &Util::CheckLatLong($query->param('latitude'),
$query->param('longitude'));
-
+ 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, '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);
# when we are done, reload the page with the updated details.
my $url = "https://$ENV{SERVER_NAME}/$config{webupdateurl}?id=$id&authtoken=$authtoken&editdn=";