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/../lib";
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',
55 -width => 134}, 'Username:',
56 td {-width => 290}, $userid,
57 td {-class => 'notetext'}, 'Specify a username to log into MAPS'
60 td {-class => 'label'}, 'Full name:',
62 textfield {-class => 'inputfield',
65 -value => $fullname}),
66 td {-class => 'notetext'},'Specify your full name'
69 td {-class => 'label'}, 'Email:',
71 textfield {-class => 'inputfield',
75 td {-class => 'notetext'},'Your email address is used if you are a ' .
76 i ("Tag & Forward") .
77 ' 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.'
80 td {-class => 'label'}, 'Old Password:',
82 password_field {-class => 'inputfield',
84 -name => 'old_password'}),
85 td {-class => 'notetext'}, 'Enter your old password'
88 td {-class => 'label'}, 'New Password:',
90 password_field {-class => 'inputfield',
92 -name => 'new_password',
94 td {-class => 'notetext'}, 'Choose a new password greater than 6 characters.'
97 td {-class => 'label'},'Repeat Password:',
99 password_field {-class => 'inputfield',
101 -name => 'repeated_password',
103 td {-class => 'notetext'}, 'Re-enter your password so we can be sure you typed it correctly.'
106 td {-class => 'label'}, 'MAPSPOP user:',
108 font ({-class => 'label'},
109 radio_group {-name => 'MAPSPOP',
110 -values => ['yes', 'no'],
112 -labels => {'yes' => 'Yes',
114 td {-class => 'notetext'}, 'MAPSPOP users need to download ' .
115 a ({-href => '/maps/bin/MAPSPOP.exe'}, 'MAPSPOP') .
117 a ({-href => '/maps/doc/UsingMAPSPOP.html'}, 'Using MAPSPOP') .
118 ' for more information.'
121 td {-class => 'label'}, 'Keep history for:',
123 font ({-class => 'label'},
124 popup_menu {-class => 'inputfield',
126 -values => ['7', '14', '30', '60', '90'],
127 -default => $options{'History'}}),
128 font ({-class => 'label'}, ' days')),
129 td {-class => 'notetext'}, 'This specifies how many days of history that MAPS will keep before discarding returned messages.'
132 td {-class => 'label'}, 'Dates in Stats Page:',
134 font ({-class => 'label'},
135 popup_menu {-class => 'inputfield',
137 -values => ['7', '14', '21', '30'],
138 -default => $options{'Dates'}})),
139 td {-class => 'notetext'}, 'This specifies how many days are displayed in the MAPS Stats Page.'
142 td {-class => 'label'}, 'Entries per page:',
144 font ({-class => 'label'},
145 popup_menu {-class => 'inputfield',
147 -values => ['10', '20', '30', '40', '50'],
148 -default => $options{'Page'}})),
149 td {-class => 'notetext'}, 'This specifies how many entries are displayed per page in the online MAPS Reports.'
152 td {-class => 'label'}, i ('Tag & Forward:'),
154 font ({-class => 'label'},
155 radio_group {-name => 'tag_and_forward',
156 -values => ['yes', 'no'],
158 -labels => {'yes' => 'Yes',
160 td {-class => 'notetext'},
161 i ('Tag and Forward') . ' 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.'
164 print br (div {-align => 'center'},
165 submit (-name => 'submit',
166 -value => 'Update Profile'));
171 my @scripts = ('MAPSUtils.js', 'CheckEditProfile.js');
177 'Spam Elimination System',
184 NavigationBar $userid;