maps/bin/updateprofile.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   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 $
  10 # Language:     perl
  11 #
  12 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
  13 #
  14 ################################################################################
  15 use strict;
  16 use warnings;
  17
  18 use FindBin;
  19 $0 = $FindBin::Script;
  20
  21 use lib $FindBin::Bin;
  22
  23 use MAPS;
  24 use MAPSWeb;
  25
  26 use CGI qw (:standard);
  27
  28 my $userid;
  29 my $Userid;
  30 my $fullname            = param ("fullname");
  31 my $email               = param ("email");
  32 my $old_password        = param ("old_password");
  33 my $new_password        = param ("new_password");
  34 my $repeated_password   = param ("repeated_password");
  35 my $mapspop             = param ("MAPSPOP");
  36 my $history             = param ("history");
  37 my $days                = param ("days");
  38 my $dates               = param ("dates");
  39 my $tag_and_forward     = param ("tag_and_forward");
  40
  41 sub Body {
  42   my %options = (
  43     "MAPSPOP"           => $mapspop,
  44     "History"           => $history,
  45     "Page"              => $days,
  46     "Dates"             => $dates,
  47     "Tag&Forward"       => $tag_and_forward
  48   );
  49
  50   if (defined $old_password && $old_password ne "") {
  51     my $dbpassword             = UserExists $userid;
  52     my $encrypted_old_password = Encrypt $old_password, $userid;
  53
  54     if ($dbpassword ne $encrypted_old_password) {
  55       DisplayError "Your old password was not correct!";
  56     } # if
  57   } # if
  58
  59   if (UpdateUser ($userid, $fullname, $email, $new_password) != 0) {
  60     DisplayError "Unable to update user record for user $userid";
  61   } # if
  62
  63   if (UpdateUserOptions ($userid, %options) != 0) {
  64     DisplayError "Unable to update user options for user $userid";
  65   } # if
  66
  67   print h2 {-class      => "header",
  68             -align      => "center"},
  69     "${Userid}'s profile has been updated";
  70 } # Body
  71
  72 $userid = Heading (
  73   "getcookie",
  74   "",
  75   "Update Profile",
  76   "Update user's profile"
  77 );
  78 $Userid = ucfirst $userid;
  79 SetContext $userid;
  80 NavigationBar $userid;
  81 Body;
  82 Footing;