2 ################################################################################
4 # File: $RCSfile: updateprofile.cgi,v $
5 # Revision: $Revision: 1.1 $
6 # Description: Update the users 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 ################################################################################
20 local $0 = $FindBin::Script;
22 use lib "$FindBin::Bin/../lib";
23 use lib "$FindBin::Bin/../../lib";
28 use CGI qw (:standard);
30 my ($userid, $Userid);
31 my $name = param 'fullname';
32 my $email = param 'email';
33 my $old_password = param 'old_password';
34 my $new_password = param 'new_password';
35 my $repeated_password = param 'repeated_password';
36 my $mapspop = param 'MAPSPOP';
37 my $history = param 'history';
38 my $days = param 'days';
39 my $dates = param 'dates';
40 my $tag_and_forward = param 'tag_and_forward';
48 'Tag&Forward' => $tag_and_forward,
52 my $dbpassword = UserExists($userid);
53 my $encrypted_old_password = Encrypt($old_password, $userid);
55 if ($dbpassword ne $encrypted_old_password) {
56 DisplayError 'Your old password was not correct!';
61 unless ($old_password) {
62 DisplayError "You must provide your old password in order to change it";
64 if ($repeated_password ne $new_password) {
65 DisplayError "Your new password does not match your repeat password";
67 $new_password = Encrypt($new_password, $userid);
76 password => $new_password,
78 DisplayError "Unable to update user record for user $userid";
81 if (UpdateUserOptions($userid, %options) != 0) {
82 DisplayError "Unable to update user options for user $userid";
85 print h2 {-class => 'header',
87 "${Userid}'s profile has been updated";
96 "Update user's profile",
99 $userid //= $ENV{USER};
101 $Userid = ucfirst $userid;
104 NavigationBar($userid);