################################################################################
#
# File: $RCSfile: updateprofile.cgi,v $
-# Revision: $Revision: 1.1 $
-# Description: Update the users profile
+# Revision: $Revision: 1.1 $
+# Description: Update the users profile
# Author: Andrew@DeFaria.com
# Created: Mon Jan 16 20:25:32 PST 2006
# Modified: $Date: 2013/06/12 14:05:47 $
use FindBin;
$0 = $FindBin::Script;
-use lib $FindBin::Bin;
+use lib "$FindBin::Bin/../lib";
use MAPS;
use MAPSWeb;
my $userid;
my $Userid;
-my $fullname = param ("fullname");
-my $email = param ("email");
-my $old_password = param ("old_password");
-my $new_password = param ("new_password");
-my $repeated_password = param ("repeated_password");
-my $mapspop = param ("MAPSPOP");
-my $history = param ("history");
-my $days = param ("days");
-my $dates = param ("dates");
-my $tag_and_forward = param ("tag_and_forward");
+my $fullname = param('fullname');
+my $email = param('email');
+my $old_password = param('old_password');
+my $new_password = param('new_password');
+my $repeated_password = param('repeated_password');
+my $mapspop = param('MAPSPOP');
+my $history = param('history');
+my $days = param('days');
+my $dates = param('dates');
+my $tag_and_forward = param('tag_and_forward');
sub Body {
my %options = (
- "MAPSPOP" => $mapspop,
- "History" => $history,
- "Page" => $days,
- "Dates" => $dates,
- "Tag&Forward" => $tag_and_forward
+ MAPSPOP => $mapspop,
+ History => $history,
+ Page => $days,
+ Dates => $dates,
+ 'Tag&Forward' => $tag_and_forward,
);
- if (defined $old_password && $old_password ne "") {
- my $dbpassword = UserExists $userid;
- my $encrypted_old_password = Encrypt $old_password, $userid;
+ if ($old_password && $old_password ne '') {
+ my $dbpassword = UserExists($userid);
+ my $encrypted_old_password = Encrypt($old_password, $userid);
if ($dbpassword ne $encrypted_old_password) {
- DisplayError "Your old password was not correct!";
+ DisplayError 'Your old password was not correct!';
} # if
} # if
- if (UpdateUser ($userid, $fullname, $email, $new_password) != 0) {
+ if (UpdateUser($userid, $fullname, $email, $new_password) != 0) {
DisplayError "Unable to update user record for user $userid";
} # if
- if (UpdateUserOptions ($userid, %options) != 0) {
+ if (UpdateUserOptions($userid, %options) != 0) {
DisplayError "Unable to update user options for user $userid";
} # if
- print h2 {-class => "header",
- -align => "center"},
+ print h2 {-class => 'header',
+ -align => 'center'},
"${Userid}'s profile has been updated";
} # Body
$userid = Heading (
- "getcookie",
- "",
- "Update Profile",
- "Update user's profile"
+ 'getcookie',
+ '',
+ 'Update Profile',
+ "Update user's profile",
);
$Userid = ucfirst $userid;
-SetContext $userid;
-NavigationBar $userid;
-Body;
-Footing;
+
+SetContext($userid);
+NavigationBar($userid);
+Body();
+Footing();