Merged MAPS2.0

[clearscm.git] / maps / bin / signup.cgi

diff --git a/maps/bin/signup.cgi b/maps/bin/signup.cgi
index fb4541e..9d2b155 100755 (executable)
--- a/maps/bin/signup.cgi
+++ b/maps/bin/signup.cgi
@@ -16,9 +16,11 @@ use strict;
 use warnings;
 
 use FindBin;
-$0 = $FindBin::Script;
+
+local $0 = $FindBin::Script;
 
 use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use MAPS;
 use MAPSWeb;
@@ -35,7 +37,6 @@ my $history           = param('history');
 my $days              = param('days');
 my $dates             = param('dates');
 my $tag_and_forward   = param('tag_and_forward');
-my $message;
 
 sub MyError {
   my $errmsg = shift;
@@ -80,9 +81,14 @@ sub Body {
     MyError 'Passwords do not match';
   } # if
 
-  my $status = AddUser($userid, $fullname, $email, $password);
+  my $status = AddUser(
+    userid   => $userid,
+    name     => $fullname,
+    email    => $email,
+    password => $password,
+  );
 
-  if ($status ne 0) {
+  if ($status != 0) {
     MyError 'Username already exists';
   } # if
 
@@ -94,7 +100,7 @@ sub Body {
     'Tag&Forward' => $tag_and_forward,
   );
 
-  my $status = AddUserOptions($userid, %options);
+  $status = AddUserOptions($userid, %options);
 
   if ($status == 0) {
     print redirect ("/maps/?errormsg=User account \"$userid\" created.<br>You may now login");
@@ -103,6 +109,8 @@ sub Body {
   } else {
     MyError "Unable to add useropts for \"$userid\"";
   } # if
+  
+  return;
 } # Body
 
 Body;