2 ################################################################################
4 # File: $RCSfile: registerform.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 CGI qw/:standard *table start_div end_div/;
26 my $userid = param ("userid");
27 my $Userid = ucfirst $userid;
28 my $sender = param ("sender");
29 my $errormsg = param ("errormsg");
33 header (-title => "MAPS Registration"),
34 start_html (-title => "MAPS Registration",
35 -author => "Andrew\@DeFaria.com",
36 -style => {-src => "/maps/css/MAPSPlain.css"},
37 -script => [{ -language => "JavaScript1.2",
38 -src => "/maps/JavaScript/MAPSUtils.js"},
39 { -language => "JavaScript1.2",
40 -src => "/maps/JavaScript/CheckRegistration.js"}
43 h2 ({-class => "header", -align => "center"},
44 font ({-class => "standout"}, "MAPS"),
45 "Mail Authorization and Permission System");
47 if (defined $errormsg) {
48 DisplayError $errormsg;
54 print start_div {-class => "content"};
55 print p ("${Userid}'s email is protected by MAPS, a spam elimination
56 system. In order to email $Userid you must register. You need
57 only register once to be added to ${Userid}'s <i>white list</i>,
58 thereafter you should have no problems emailing them. This is not
59 unlike the acceptance procedure for many instant messaging clients.");
60 print p ("Please enter your full name and click on Register to complete the
64 -action => "register.cgi",
65 -onSubmit => "return validate (this);"
74 print hidden (-name => "userid",
77 td ({-class => "header"}, "Full name:") .
78 td (textfield {-class => "inputfield",
82 print hidden (-name => "sender",
85 print p {-align => "center"},
86 submit (-name => "submit",
87 -value => "Register");
89 print p ("Tired of dealing with unsolicited email (AKA SPAM)? Want to know
90 more about MAPS, the Mail Authorization and Permission System for
91 eliminating SPAM? Click",
92 a ({-href => "/maps/",
104 td ({-class => "note",
105 -align => "center"}, "Note")
108 td ({-class => "notetext"},
109 "This registration process is instantaneous however we reserve the
110 right to remove you from the ${Userid}'s white list should you abuse
117 if (!defined $userid) {
118 $errormsg = "Internal error: Userid not specified";
120 if (!UserExists ($userid)) {
121 $errormsg = "Sorry but $userid is no longer a MAPS user";