Index: openacs-4/packages/acs-subsite/www/register/recover-password.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/recover-password.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/www/register/recover-password.tcl	27 Oct 2014 16:40:01 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/register/recover-password.tcl	7 Aug 2017 23:47:59 -0000	1.14
@@ -8,6 +8,12 @@
     {authority_id:naturalnum ""}
     {username ""}
     {email ""}
+} -validate {
+    valid_email -requires email {
+        if {![regexp {^[\w.@+/=$%!*~-]+$} $email]} {
+            ad_complain "invalid email address"
+        }
+    }
 }
 
 set page_title [_ acs-subsite.Reset_Password]
@@ -90,3 +96,9 @@
 }
 
 set system_owner [ad_system_owner]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: