2 ################################################################################
4 # File: $RCSfile: main.cgi,v $
5 # Revision: $Revision: 1.1 $
6 # Description: This is the main or home page for maps. It is presented when the
8 # Author: Andrew@DeFaria.com
9 # Created: Fri Nov 29 14:17:21 2002
10 # Modified: $Date: 2013/06/12 14:05:47 $
13 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
15 ################################################################################
20 $0 = $FindBin::Script;
22 use lib $FindBin::Bin;
29 use CGI qw (:standard *table start_Tr end_Tr start_div end_div);
30 use CGI::Carp "fatalsToBrowser";
32 my $new_userid = param ("userid");
33 my $password = param ("password");
37 h3 ("Welcome to MAPS!"),
38 p "This is the main or home page of MAPS. To the left
39 you see a menu of choices that you can use to explore MAPS
41 a ({-href => "/maps/bin/stats.cgi"},
43 "gives you a view of the spam that MAPS has been trapping for you
44 in tabular format. You can use",
45 a ({-href => "/maps/bin/editprofile.cgi"},
47 "to change your profile information or to change your password.";
49 p "MAPS also offers a series of web based",
50 a ({-href => "/maps/Reports.html"},
52 "to analyze your mail flow. You can manage your",
53 a ({-href => "/maps/bin/list.cgi?type=white"},
55 a ({-href => "/maps/bin/list.cgi?type=black"},
57 a ({-href => "/maps/bin/list.cgi?type=null"},
59 "lists although MAPS seeks to put that responsibility on those
60 who wish to email you. You can use this to pre-register somebody
61 or to black or null list somebody. You can also import/export
62 your lists through these pages.";
64 p a ({-href => "/maps/Admin.html"},
65 "MAPS Administration"),
66 "is to administer MAPS itself and is only available to MAPS
69 p "Also on the left you will see ", i ("Today's Activity"),
70 "which quickly shows you what mail MAPS processed today for you.";
76 if (defined $new_userid) {
77 my $result = Login $new_userid, $password;
80 if ($new_userid eq "") {
81 print redirect ("/maps/?errormsg=Please specify a username");
84 print redirect ("/maps/?errormsg=User \"$new_userid\" does not exist");
87 } elsif ($result == -2) {
88 print redirect ("/maps/?errormsg=Invalid password");
91 $action = "setcookie";
97 my $userid = Heading (
101 "Spam Elimination System"
105 NavigationBar $userid;