#!/opt/local/bin/perl
use HTML::Entities ();
use CGI;
use lib '/Library/WebServer/perl/lib';
use EduFileTwo::Student;
use EduFileTwo::Util;
my $query = new CGI;
my $ok_chars = '%+\-0-9<=>A-Z_a-z{|}@.,';
foreach my $param_name ( $query->param ) {
$_ = HTML::Entities::decode( $query->param($param_name) );
$_ =~ s/[^$ok_chars]//go;
$query->param($param_name,$_);
}
print $query->header;
my $showForm = 0;
my $id = 0;
#Declare some local variables to save typing.
if($query->param())
{
if($query->param('action') eq "doUpdate")
{
my $user_id = $query->param('user_id');
my $firstname = $query->param('first_name');
my $lastname = $query->param('last_name');
my $student_id = $query->param('student_id');
my $password_old = $query->param('password_old');
my $password = $query->param('password');
my $password_confirm = $query->param('password_confirm');
my $phone = $query->param('phone');
my $email = $query->param('email');
$password =~ tr/"%+\-0-9<=>A-Z_a-z{|}//cd;
$password_confirm =~ tr/"%+\-0-9<=>A-Z_a-z{|}//cd;
#Error Checking Statements
if ($firstname eq ""){
EduFileTwo::Util::printHead("");;
&printMessage("Invalid Field", "The first name field was left blank. Please click back on your browser to try again.\n");
EduFileTwo::Util::printFoot();
}
if ($lastname eq ""){
EduFileTwo::Util::printHead("");;
&printMessage("Invalid Field", "The last name field was left blank. Please click back on your browser to try again.\n");
EduFileTwo::Util::printFoot();
}
if ($student_id eq ""){
EduFileTwo::Util::printHead("");;
&printMessage("Invalid Field", "The student_id field was left blank. Please click back on your browser to try again.\n");
EduFileTwo::Util::printFoot();
}
if ($phone eq ""){
EduFileTwo::Util::printHead("");;
&printMessage("Invalid Field", "The phone field was left blank. Please click back on your browser to try again.\n");
EduFileTwo::Util::printFoot();
}
if ($email !~ /.+\@.+\..+/ or $email eq ""){
EduFileTwo::Util::printHead("");;
&printMessage("Invalid Email", "The Email Address you provided was invalid. Please click back on your browser to try again.\n");
EduFileTwo::Util::printFoot();
}
## See if user wanted to change password and then compare new
if(length($password_old) > 0)
{
if($password ne $password_confirm || $password eq "" || $password_confirm eq "")
{
EduFileTwo::Util::printHead("");;
&printMessage("Invalid Password", "The new password you provided was either left blank or it does not match the conform password.\n");
EduFileTwo::Util::printFoot();
}
}
## Update user data.
my $student = new EduFileTwo::Student($user_id);
$student->setLoginID($student_id);
$student->setPassword($password);
$student->setFirstName($firstname);
$student->setLastName($lastname);
$student->setPhoneNumber($phone);
$student->setEmailAddress($email);
if(!$student->save())
{
EduFileTwo::Util::printHead("");;
&printMessage("Error", "There was a problem updating your information. Please click back and try again.\n");
EduFileTwo::Util::printFoot();
}
EduFileTwo::Util::printHead("");;
&printMessage("Success", "Your information has been successfully updated.\n");
EduFileTwo::Util::printFoot();
}
else
{
$showForm = 1;
$id = $query->param('user_id');
}
}
if($showForm)
{
my $student = new EduFileTwo::Student($id);
my $firstname = $student->getFirstName();
my $lastname = $student->getLastName();
my $student_id = $student->getLoginID();
my $phone = $student->getPhoneNumber();
my $email = $student->getEmailAddress();
EduFileTwo::Util::printHead("Edit User Profile");
print <
Make corrections or updates to this form and click save.
END_HTML
EduFileTwo::Util::printFoot();
}
#Subroutines
sub printMessage{
print "