2 ################################################################################
4 # File: $RCSfile: editprofile.cgi,v $
5 # Revision: $Revision: 1.1 $
6 # Description: Edit the user's profile
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;
26 use CGI qw (:standard *table);
29 my $table_name = "profile";
32 my $handle = FindUser $userid;
34 my ($fullname, $email, $password);
35 ($_, $fullname, $email, $password) = GetUser ($handle);
39 my %options = GetUserOptions $userid;
43 -action => "updateprofile.cgi",
44 -onSubmit => "return validate (this);"
54 td {-class => "label",
59 td {-class => "notetext"},
60 "Specify a username to log into MAPS"
63 td {-class => "label"},
66 textfield {-class => "inputfield",
69 -value => "$fullname"}),
70 td {-class => "notetext"},
71 "Specify your full name"
74 td {-class => "label"},
77 textfield {-class => "inputfield",
81 td {-class => "notetext"},
82 "Your email address is used if you are a " .
83 i ("Tag & Forward") .
84 " user. This is the email address that MAPS will forward your email to after it tags it. This email address is also used in case you forget your password so that we can email you your password."
87 td {-class => "label"},
90 password_field {-class => "inputfield",
92 -name => "old_password"}),
93 td {-class => "notetext"},
94 "Enter your old password"
97 td {-class => "label"},
100 password_field {-class => "inputfield",
102 -name => "new_password",
104 td {-class => "notetext"},
105 "Choose a new password greater than 6 characters."
108 td {-class => "label"},
111 password_field {-class => "inputfield",
113 -name => "repeated_password",
115 td {-class => "notetext"},
116 "Re-enter your password so we can be sure you typed it correctly."
119 td {-class => "label"},
122 font ({-class => "label"},
123 radio_group {-name => "MAPSPOP",
124 -values => ["yes", "no"],
126 -labels => {"yes" => "Yes",
128 td {-class => "notetext"},
129 "MAPSPOP users need to download " .
130 a ({-href => "/maps/bin/MAPSPOP.exe"}, "MAPSPOP") .
132 a ({-href => "/maps/doc/UsingMAPSPOP.html"}, "Using MAPSPOP") .
133 " for more information."
136 td {-class => "label"},
139 font ({-class => "label"},
140 popup_menu {-class => "inputfield",
142 -values => ["7", "14", "30", "60", "90"],
143 -default => $options{"History"}}),
144 font ({-class => "label"}, " days")),
145 td {-class => "notetext"},
146 "This specifies how many days of history that MAPS will keep before discarding returned messages."
149 td {-class => "label"},
150 "Dates in Stats Page:",
152 font ({-class => "label"},
153 popup_menu {-class => "inputfield",
155 -values => ["7", "14", "21", "30"],
156 -default => $options{"Dates"}})),
157 td {-class => "notetext"},
158 "This specifies how many days are displayed in the MAPS Stats Page."
161 td {-class => "label"},
164 font ({-class => "label"},
165 popup_menu {-class => "inputfield",
167 -values => ["10", "20", "30", "40", "50"],
168 -default => $options{"Page"}})),
169 td {-class => "notetext"},
170 "This specifies how many entries are displayed per page in the online MAPS Reports."
173 td {-class => "label"},
174 i ("Tag & Forward:"),
176 font ({-class => "label"},
177 radio_group {-name => "tag_and_forward",
178 -values => ["yes", "no"],
180 -labels => {"yes" => "Yes",
182 td {-class => "notetext"},
183 i ("Tag and Forward") .
184 " means that MAPS will not filter or save any email for you. Instead it will simply add an X-MAPS header to your email indicating what MAPS would have done with the email. This allows you to filter your email in your local email client."
187 print br (div {-align => "center"},
188 submit (-name => "submit",
189 -value => "Update Profile"));
194 my @scripts = ("MAPSUtils.js", "CheckEditProfile.js");
200 "Spam Elimination System",
207 NavigationBar $userid;