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";
27 use CGI qw/:standard/;
29 my $fullname = param("fullname");
30 my $sender = lc(param("sender"));
31 my $userid = param("userid");
34 print div({-align => "center"},
35 button (-name => "close",
36 -value => "Close Window",
37 -onClick => "window.close ()")
48 print h3 ({-class => "error",
49 -align => "center"}, "ERROR: " . $errmsg);
58 header(-title => "MAPS Registration"),
59 start_html(-title => "MAPS Registration",
60 -author => "Andrew\@DeFaria.com",
61 -style => {-src => "/maps/css/MAPSPlain.css"}
64 h2 ({-class => "header",
66 'Registration Results'
75 MyError("Sender not specified!") if $sender eq '';
77 my ($status, $rule) = OnWhitelist($sender, $userid, 0);
80 MyError("The email address $sender is already on ${userid}'s list)");
83 my $messages = Add2Whitelist($sender, $userid, $fullname);
85 print p "$fullname, your email address, $sender, has been added to ${userid}'s white list.";
89 print p "Your previous message has been delivered\n";
91 print p "Your previous $messages messages have been delivered\n";
93 } elsif ($messages == -1) {
94 MyError "Unable to deliver message";
96 print p "Unable to find any old messages but future messages will now be delivered.";