maps/bin/register.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   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 $
  10 # Language:     perl
  11 #
  12 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
  13 #
  14 ################################################################################
  15 use strict;
  16 use warnings;
  17
  18 use FindBin;
  19 local $0 = $FindBin::Script;
  20
  21 use lib "$FindBin::Bin/../lib";
  22 use lib "$FindBin::Bin/../../lib";
  23
  24 use MAPS;
  25 use MAPSLog;
  26 use MAPSWeb;
  27
  28 use CGI qw/:standard/;
  29
  30 my $fullname = param("fullname");
  31 my $sender   = lc(param("sender"));
  32 my $userid   = param("userid");
  33
  34 sub MyFooting() {
  35   print div({-align  => "center"},
  36     button (-name    => "close",
  37             -value   => "Close Window",
  38             -onClick => "window.close ()")
  39   );
  40
  41   print end_html;
  42
  43   return;
  44 } # MyFooting
  45
  46 sub MyError($) {
  47   my ($errmsg) = @_;
  48
  49   print h3 ({-class => "error",
  50              -align => "center"}, "ERROR: " . $errmsg);
  51
  52   MyFooting;
  53
  54   exit 1;
  55 } # MyError
  56
  57 sub MyHeading() {
  58   print
  59     header(-title  => "MAPS Registration"),
  60     start_html(-title  => "MAPS Registration",
  61                 -author => "Andrew\@DeFaria.com",
  62                 -style  => {-src => "/maps/css/MAPSPlain.css"}
  63     );
  64   print
  65     h2 ({-class     => "header",
  66          -align     => "center"},
  67       'Registration Results'
  68   );
  69
  70   return;
  71 } # MyHeading
  72
  73 # Main
  74 MyHeading;
  75
  76 MyError("Sender not specified!") if $sender eq '';
  77
  78 my ($status, $rule) = OnWhitelist($sender, $userid, 0);
  79
  80 if ($status) {
  81   MyError("The email address $sender is already on ${userid}'s list)");
  82 } # if
  83
  84 my $messages = Add2Whitelist($sender, $userid, $fullname);
  85
  86 print p "$fullname, your email address, $sender, has been added to ${userid}'s white list.";
  87
  88 if ($messages > 0) {
  89   if ($messages == 1) {
  90     print p "Your previous message has been delivered\n";
  91   } else {
  92     print p "Your previous $messages messages have been delivered\n";
  93   } # if
  94 } elsif ($messages == -1) {
  95   MyError "Unable to deliver message";
  96 } else {
  97   print p "Unable to find any old messages but future messages will now be delivered.";
  98 } # if
  99
 100 MyFooting;