X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=update.cgi;h=c42eddce278ea1c97a0552464fca34b5cdf00ea7;hb=ef9e1b8c530e45969d066d2864af3906fc8386c5;hp=c4ad736c5baea0a5c5683b15e7588ae19f7be4b5;hpb=f8336ea84a904db84a8c7f8191552b4e96c86545;p=mirror%2Fuserdir-ldap-cgi.git

diff --git a/update.cgi b/update.cgi
index c4ad736..c42eddc 100755
--- a/update.cgi
+++ b/update.cgi
@@ -13,7 +13,7 @@ use Digest::HMAC_SHA1 qw(hmac_sha1_hex);
 use Util;
 use English;
 use URI::Escape;
-use Net::LDAP qw(:all);
+use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
 
 my %config = &Util::ReadConfigFile;
 
@@ -108,6 +108,8 @@ if (!($query->param('doupdate'))) {
     $data{mailcallout} = "";
   }
 
+  $data{maildefaultoptions} ||= 'TRUE';
+
   if ($data{maildefaultoptions} eq "TRUE") {
     $data{maildefaultoptions} = " checked";
   } else {