#!/usr/bin/perl
################################################################################
#
# File:         $RCSfile: updateprofile.cgi,v $
# 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 $
# Language:     perl
#
# (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
#
################################################################################
use strict;
use warnings;

use FindBin;
$0 = $FindBin::Script;

use lib $FindBin::Bin;

use MAPS;
use MAPSWeb;

use CGI qw (:standard);

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");

sub Body {
  my %options = (
    "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 ($dbpassword ne $encrypted_old_password) {
      DisplayError "Your old password was not correct!";
    } # if
  } # if

  if (UpdateUser ($userid, $fullname, $email, $new_password) != 0) {
    DisplayError "Unable to update user record for user $userid";
  } # if

  if (UpdateUserOptions ($userid, %options) != 0) {
    DisplayError "Unable to update user options for user $userid";
  } # if

  print h2 {-class	=> "header",
	    -align	=> "center"},
    "${Userid}'s profile has been updated";
} # Body

$userid = Heading (
  "getcookie",
  "",
  "Update Profile",
  "Update user's profile"
);
$Userid = ucfirst $userid;
SetContext $userid;
NavigationBar $userid;
Body;
Footing;