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 local $0 = $FindBin::Script;
21 use CGI qw/:standard *table start_div end_div/;
23 use lib "$FindBin::Bin/../lib";
24 use lib "$FindBin::Bin/../../lib";
29 my $userid = param ('userid');
30 my $Userid = ucfirst $userid;
31 my $sender = param ('sender');
32 my $errormsg = param ('errormsg');
36 header (-title => "MAPS Registration"),
37 start_html (-title => "MAPS Registration",
38 -author => "Andrew\@DeFaria.com",
39 -style => {-src => "/maps/css/MAPSPlain.css"},
40 -script => [{ -language => "JavaScript1.2",
41 -src => "/maps/JavaScript/MAPSUtils.js"},
42 { -language => "JavaScript1.2",
43 -src => "/maps/JavaScript/CheckRegistration.js"}
46 h2 ({-class => "header", -align => "center"},
47 "Mail Authorization and Permission System");
50 DisplayError $errormsg;
56 print start_div {-class => "content"};
57 print p ("${Userid}'s email is protected by MAPS, a spam elimination
58 system. In order to email $Userid you must register. You need
59 only register once to be added to ${Userid}'s <i>white list</i>,
60 thereafter you should have no problems emailing them. This is not
61 unlike the acceptance procedure for many instant messaging clients.");
62 print p ("Please enter your full name and click on Register to complete the
66 -action => "register.cgi",
67 -onSubmit => "return validate (this);"
76 print hidden (-name => "userid",
79 td ({-class => "header"}, "Full name:") .
80 td (textfield {-class => "inputfield",
84 print hidden (-name => "sender",
87 print p {-align => "center"},
88 submit (-name => "submit",
89 -value => "Register");
91 print p ("Tired of dealing with unsolicited email (AKA SPAM)? Want to know
92 more about MAPS, the Mail Authorization and Permission System for
93 eliminating SPAM? Click",
94 a ({-href => "/maps/",
106 td ({-class => "note",
107 -align => "center"}, "Note")
110 td ({-class => "notetext"},
111 "This registration process is instantaneous however we reserve the
112 right to remove you from the ${Userid}'s white list should you abuse
122 $errormsg = "Internal error: Userid not specified";
124 if (!UserExists ($userid)) {
125 $errormsg = "Sorry but $userid is no longer a MAPS user";