[Scoop-checkins] scoop/lib/Scoop/Users NewUser.pm

[scoop at lithium.sabren.com]

Update of /cvs/scoop/scoop/lib/Scoop/Users
In directory lithium.sabren.com:/tmp/cvs-serv1516/lib/Scoop/Users

Modified Files:
	NewUser.pm 
Log Message:
Hulver's fixes for bugs 24, 77, 86, 160, 176, and 185

-janra



Index: NewUser.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop/Users/NewUser.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** NewUser.pm	25 Jan 2005 17:15:24 -0000	1.5
--- NewUser.pm	28 May 2005 01:56:29 -0000	1.6
***************
*** 377,380 ****
--- 377,385 ----
                  return '<BR>You must enter an email address, which must be working to activate your account.<BR><BR>';
          }
+ 	# Check to make sure it's actually an email address that they put in
+ 	# the email field.
+ 	if($email !~ /$Mail::Sendmail::address_rx/){
+             return "<BR>Sorry, $email is not a valid email address. Please enter a valid email address.<BR><BR>";
+             }
  
          my ($rv, $sth) = $S->db_select({