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 $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 ()")
45 print h3 ({-class => "error",
46 -align => "center"}, "ERROR: " . $errmsg);
55 header(-title => "MAPS Registration"),
56 start_html(-title => "MAPS Registration",
57 -author => "Andrew\@DeFaria.com",
58 -style => {-src => "/maps/css/MAPSPlain.css"}
61 h2 ({-class => "header",
63 font ({-class => "standout"},
64 "MAPS"), "Registration Results"
71 MyError("Sender not specified!") if $sender eq '';
73 my ($status, $rule) = OnWhitelist($sender, $userid, 0);
76 MyError("The email address $sender is already on ${userid}'s list)");
79 my $messages = Add2Whitelist($sender, $userid, $fullname);
81 print p "$fullname, your email address, $sender, has been added to ${userid}'s white list.";
85 print p "Your previous message has been delivered\n";
87 print p "Your previous $messages messages have been delivered\n";
89 } elsif ($messages == -1) {
90 MyError "Unable to deliver message";
92 print p "Unable to find any old messages but future messages will now be delivered.";