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;
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 ()"));
44 print h3 ({-class => "error",
45 -align => "center"}, "ERROR: " . $errmsg);
54 header (-title => "MAPS Registration"),
55 start_html (-title => "MAPS Registration",
56 -author => "Andrew\@DeFaria.com",
57 -style => {-src => "/maps/css/MAPSPlain.css"});
59 h2 ({-class => "header",
61 font ({-class => "standout"},
62 "MAPS"), "Registration Results");
69 MyError "Sender not specified!";
74 if (OnWhitelist $sender, $userid) {
75 MyError "The email address $sender is already on ${userid}'s list"
78 my $messages = Add2Whitelist $sender, $userid, $fullname;
80 print p "$fullname, your email address, $sender, has been added to ${userid}'s white list.";
84 print p "Your previous message has been delivered\n";
86 print p "Your previous $messages messages have been delivered\n";
88 } elsif ($messages == -1) {
89 MyError "Unable to deliver message";
91 print p "Unable to find any old messages but future messages will now be delivered.";