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;
my $days = param('days');
my $dates = param('dates');
my $tag_and_forward = param('tag_and_forward');
-my $message;
sub MyError {
my $errmsg = shift;
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
'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");
} else {
MyError "Unable to add useropts for \"$userid\"";
} # if
+
+ return;
} # Body
Body;