2 ################################################################################
4 # File: $RCSfile: signup.cgi,v $
5 # Revision: $Revision: 1.1 $
6 # Description: Sign up a MAPS user
7 # Author: Andrew@DeFaria.com
8 # Created: Mon Jan 16 20:25:32 PST 2006
9 # Modified: $Date: 2013/06/12 14:05:47 $
12 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
14 ################################################################################
19 $0 = $FindBin::Script;
21 use lib $FindBin::New;
26 use CGI qw (:standard);
28 my $userid = param ("userid");
29 my $fullname = param ("fullname");
30 my $email = param ("email");
31 my $password = param ("password");
32 my $repeated_password = param ("repeated_password");
33 my $mapspop = param ("MAPSPOP");
34 my $history = param ("history");
35 my $days = param ("days");
36 my $dates = param ("dates");
37 my $tag_and_forward = param ("tag_and_forward");
50 NavigationBar $userid;
52 print h2 {-align => "center",
53 -class => "error"}, "Error: " . $errmsg;
61 # Check required fields
63 MyError "You must specify a userid!";
66 MyError "You must specify an email address!";
68 if ($password eq "") {
69 MyError "You must specify a password!";
71 if ($fullname eq "") {
72 MyError "You must specify your full name!";
75 # Password field checks
76 if (length $password < 6) {
77 MyError "Password must be longer than 6 characters!";
79 if ($password ne $repeated_password) {
80 MyError "Passwords do not match";
83 my $status = AddUser $userid, $fullname, $email, $password;
86 MyError "Username already exists";
90 "MAPSPOP" => $mapspop,
91 "History" => $history,
94 "Tag&Forward" => $tag_and_forward
97 my $status = AddUserOptions $userid, %options;
100 print redirect ("/maps/?errormsg=User account \"$userid\" created.<br>You may now login");
101 } elsif ($status == 1) {
102 MyError "Username \"$userid\" already exists";
104 MyError "Unable to add useropts for \"$userid\"";