projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed ShowEmail
[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;
use warnings;
use FindBin;
-$0 = $FindBin::Script;
+
+local $0 = $FindBin::Script;
use lib "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
use MAPS;
use MAPSWeb;
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 $days = param('days');
my $dates = param('dates');
my $tag_and_forward = param('tag_and_forward');
-my $message;
sub MyError {
my $errmsg = shift;
sub MyError {
my $errmsg = shift;
@@
-80,9
+81,14
@@
sub Body {
MyError 'Passwords do not match';
} # if
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
MyError 'Username already exists';
} # if
@@
-94,7
+100,7
@@
sub Body {
'Tag&Forward' => $tag_and_forward,
);
'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");
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
} else {
MyError "Unable to add useropts for \"$userid\"";
} # if
+
+ return;
} # Body
Body;
} # Body
Body;