From 391664703db43356450e6e471e30f4053a2e62a2 Mon Sep 17 00:00:00 2001
From: "cyeh%bluemartini.com" <>
Date: Sat, 16 Sep 2000 01:35:16 +0000
Subject: fixes for 51184, 51185, 51186: allow for ldap authentication. patches
 by jmrobins@tgix.com (Joe Robins). LDAP sections haven't been tested yet, but
 the code is arranged such that it shouldn't disturb existing user
 authentication system.

---
 createaccount.cgi | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'createaccount.cgi')

diff --git a/createaccount.cgi b/createaccount.cgi
index 8a905c465..2ff2c0b1f 100755
--- a/createaccount.cgi
+++ b/createaccount.cgi
@@ -20,6 +20,7 @@
 #
 # Contributor(s): Terry Weissman <terry@mozilla.org>
 #                 David Gardiner <david.gardiner@unisa.edu.au>
+#                 Joe Robins <jmrobins@tgix.com>
 
 use diagnostics;
 use strict;
@@ -42,6 +43,14 @@ Content-type: text/html
 
 ";
 
+# If we're using LDAP for login, then we can't create a new account here.
+if(Param('useLDAP')) {
+  PutHeader("Can't create LDAP accounts");
+  print "This site is using LDAP for authentication.  Please contact an LDAP ";
+  print "administrator to get a new account created.\n";
+  PutFooter();
+  exit;
+}
 
 my $login = $::FORM{'login'};
 my $realname = $::FORM{'realname'};
-- 
cgit v1.2.3-24-g4f1b