maps/bin/signup.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   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 $
  10 # Language:     perl
  11 #
  12 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
  13 #
  14 ################################################################################
  15 use strict;
  16 use warnings;
  17
  18 use FindBin;
  19 $0 = $FindBin::Script;
  20
  21 use lib $FindBin::New;
  22
  23 use MAPS;
  24 use MAPSWeb;
  25
  26 use CGI qw (:standard);
  27
  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");
  38 my $message;
  39
  40 sub MyError {
  41   my $errmsg = shift;
  42
  43   $userid = Heading (
  44     "getcookie",
  45     "",
  46     "Signup",
  47     "Signup"
  48   );
  49
  50   NavigationBar $userid;
  51
  52   print h2 {-align      => "center",
  53             -class      => "error"}, "Error: " . $errmsg;
  54
  55   Footing;
  56
  57   exit 1;
  58 } # MyError
  59
  60 sub Body {
  61   # Check required fields
  62   if ($userid eq "" ) {
  63     MyError "You must specify a userid!";
  64   } # if
  65   if ($email eq "" ) {
  66     MyError "You must specify an email address!";
  67   } # if
  68   if ($password eq "") {
  69     MyError "You must specify a password!";
  70   } # if
  71   if ($fullname eq "") {
  72     MyError "You must specify your full name!";
  73   } # if
  74
  75   # Password field checks
  76   if (length $password < 6) {
  77     MyError "Password must be longer than 6 characters!";
  78   } # if
  79   if ($password ne $repeated_password) {
  80     MyError "Passwords do not match";
  81   } # if
  82
  83   my $status = AddUser $userid, $fullname, $email, $password;
  84
  85   if ($status ne 0) {
  86     MyError "Username already exists";
  87   } # if
  88
  89   my %options = (
  90     "MAPSPOP"           => $mapspop,
  91     "History"           => $history,
  92     "Page"              => $days,
  93     "Dates"             => $dates,
  94     "Tag&Forward"       => $tag_and_forward
  95   );
  96
  97   my $status = AddUserOptions $userid, %options;
  98
  99   if ($status == 0) {
 100     print redirect ("/maps/?errormsg=User account \"$userid\" created.<br>You may now login");
 101   } elsif ($status == 1) {
 102     MyError "Username \"$userid\" already exists";
 103   } else {
 104     MyError "Unable to add useropts for \"$userid\"";
 105   } # if
 106 } # Body
 107
 108 Body;