2 ################################################################################
4 # File: $RCSfile: register.cgi,v $
5 # Revision: $Revision: 1.1 $
6 # Description: Register 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 local $0 = $FindBin::Script;
21 use lib "$FindBin::Bin/../lib";
22 use lib "$FindBin::Bin/../../lib";
28 use CGI qw/:standard/;
30 my $fullname = param("fullname");
31 my $sender = lc(param("sender"));
32 my $userid = param("userid");
35 print div({-align => "center"},
36 button (-name => "close",
37 -value => "Close Window",
38 -onClick => "window.close ()")
49 print h3 ({-class => "error",
50 -align => "center"}, "ERROR: " . $errmsg);
59 header(-title => "MAPS Registration"),
60 start_html(-title => "MAPS Registration",
61 -author => "Andrew\@DeFaria.com",
62 -style => {-src => "/maps/css/MAPSPlain.css"}
65 h2 ({-class => "header",
67 'Registration Results'
76 MyError("Sender not specified!") if $sender eq '';
78 my ($status, $rule) = OnWhitelist($sender, $userid, 0);
81 MyError("The email address $sender is already on ${userid}'s list)");
84 my $messages = Add2Whitelist($sender, $userid, $fullname);
86 print p "$fullname, your email address, $sender, has been added to ${userid}'s white list.";
90 print p "Your previous message has been delivered\n";
92 print p "Your previous $messages messages have been delivered\n";
94 } elsif ($messages == -1) {
95 MyError "Unable to deliver message";
97 print p "Unable to find any old messages but future messages will now be delivered.";