X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=Util.pm;h=371aae9997ab95efd4da3c672533ae4bd25f610e;hb=b62107bcdbc4fb5311f981999d838de38243e46f;hp=0ec02cddf526bdd3e8f6942495c56b65988579f5;hpb=84df47b464fcf0d1c1871445c19300a47efce79a;p=mirror%2Fuserdir-ldap-cgi.git

diff --git a/Util.pm b/Util.pm
index 0ec02cd..371aae9 100644
--- a/Util.pm
+++ b/Util.pm
@@ -301,4 +301,20 @@ sub ReadConfigFile {
   return %config;
 }
 
+sub LDAPUpdate {
+  my $ldap = shift;
+  my $dn = shift;
+  my $attr = shift;
+  my $val = shift;
+  my $mesg;
+  
+  if (!$val) {
+    $mesg = $ldap->modify($dn, delete => { $attr => [] });
+  } else {
+    $val = [ $val ] if (!ref($val));
+    $mesg = $ldap->modify($dn, replace => { $attr => $val });
+    $mesg->code && &Util::HTMLError("error updating $attr: ".$mesg->error);
+  }
+}
+
 1;