Index: openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.adp	6 Mar 2002 00:58:45 -0000	1.1
@@ -0,0 +1,35 @@
+<!--
+
+  Copyright (C) 2001, 2002 OpenForce, Inc.
+
+  This file is part of dotLRN.
+
+  dotLRN is free software; you can redistribute it and/or modify it under the
+  terms of the GNU General Public License as published by the Free Software
+  Foundation; either version 2 of the License, or (at your option) any later
+  version.
+
+  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+  details.
+
+-->
+
+<master>
+<property name="title">Edit Pre-approved Email Servers</property>
+<property name="context_bar">@context_bar@</property>
+
+<p>
+  Email suffixes listed here are used to automatically make dotLRN users of
+  people that register with email addresses that match one of the values in
+  this list.
+</p>
+
+<p>
+  The format of this value is a comma-separated list of domains (usually
+  preceded by an @ sign). For example, you might use:
+  <code>\@openforce\.net,\@dotlrn\.openforce\.net</code>
+</p>
+
+<formtemplate id="edit_emails"></formtemplate>
Index: openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl	6 Mar 2002 00:58:45 -0000	1.1
@@ -0,0 +1,49 @@
+#
+#  Copyright (C) 2001, 2002 OpenForce, Inc.
+#
+#  This file is part of dotLRN.
+#
+#  dotLRN is free software; you can redistribute it and/or modify it under the
+#  terms of the GNU General Public License as published by the Free Software
+#  Foundation; either version 2 of the License, or (at your option) any later
+#  version.
+#
+#  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+#  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+#  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+#  details.
+#
+
+# dotlrn/www/admin/edit-preapproved-emails.tcl
+
+ad_page_contract {
+    @author yon (yon@milliped.com)
+    @creation-date 2002-03-05
+    @version $Id: edit-preapproved-emails.tcl,v 1.1 2002/03/06 00:58:45 yon Exp $
+} -query {
+    {referer "/dotlrn/admin"}
+} -properties {
+    context_bar:onevalue
+}
+
+set context_bar {{Edit Pre-approved Email Servers}}
+
+form create edit_emails
+
+element create edit_emails emails \
+    -label "Pre-approved Email Servers" \
+    -datatype text \
+    -widget text \
+    -html {size 50} \
+    -value [ad_parameter "auto_dotlrn_user_email_patterns"]
+
+if {[form is_valid edit_emails]} {
+    form get_values edit_emails emails
+
+    ad_parameter -set $emails "auto_dotlrn_user_email_patterns"
+
+    ad_returnredirect $referer
+    ad_script_abort
+}
+
+ad_return_template
Index: openacs-4/packages/dotlrn/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/index.adp,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/admin/index.adp	22 Jan 2002 00:13:09 -0000	1.10
+++ openacs-4/packages/dotlrn/www/admin/index.adp	6 Mar 2002 00:58:45 -0000	1.11
@@ -14,4 +14,5 @@
   <li><a href="departments"><%= [ad_parameter departments_pretty_plural] %></a></li>
   <li><a href="classes"><%= [ad_parameter classes_pretty_plural] %></a></li>
   <li><a href="clubs"><%= [ad_parameter clubs_pretty_plural] %></a></li>
+  <li><a href="edit-preapproved-emails">Edit Pre-approved Email Servers</a></li>
 </ul>