#!/usr/bin/perl
use CGI;
use ISCourseWare::MiscLib;
use ISCourseWare::PageLib;
use ISCourseWare::ConfigLib;
use ISCourseWare::PeopleLib;
use strict;
my $query=new CGI;
my $pagetext="";
my $email=$query->param('email');
my $config=new ISCourseWare::ConfigLib;
my $page=new ISCourseWare::PageLib($config, "changeit.cgi", "Change password", "Help", 0, 0);
my ($error, $tokenstring, $urlstring, $query, $person1)=$page->Verify($query);
if (!$query->param('change')) {
	&ChangeForm;
	#my $ref=\$pagetext;
   #my($error, $stuff)=$page->PageVerify($ref, $query);
	my($error, $stuff)=$page->PageVerify($pagetext, $query);
  print "$stuff";
  } elsif ($query->param('change')) {
  # print $query->header;
	#print "BLAH";
	my $USERNAME=$query->param('USERNAME');
	if (!$USERNAME) { $error ="You must enter your username<br>\n";}
	if (!$query->param('OLDPASS')) { $error ="You must enter your old password <br>\n"; }
	if (!$error){
	# print "BLAH3";
   #my $person=new ISCourseWare::PeopleLib($config,$USERNAME);
	my $NEWPASS1=$query->param('NEWPASS1');
	my $NEWPASS2=$query->param('NEWPASS2');
	my $OLDPASS= $query->param('OLDPASS');
 	($error, $pagetext)=&ISCourseWare::MiscLib::ChangePass($config, $USERNAME, $NEWPASS1, $NEWPASS2, $OLDPASS);
	}
	 #print "$error, $pagetext BLAH4.2";
if ($error) { 
		$pagetext="$error<p>\n";
		&ChangeForm;
	} 
  my($error, $stuff)=$page->PageVerify($pagetext, $query);
  print "$stuff";
  }

sub ChangeForm {
$pagetext.= qq!
 Please enter your username and current password (even if you just entered it on the previous screen), 
 and enter a new password twice for verification.<p>
 <table border="1" cellpadding="5"><tr><td><form action="changeit.cgi" method="post">
 <table border="0"><tr><td>Username:</td><td> 
 <input type="text" size="30" name="USERNAME">
</td></tr><tr><td> Old Password: </td><td> <input type="password" size="30" name="OLDPASS"><br>
 </td></tr><tr><td><p>New Password: </td><td><p><input type="password" size="30" name="NEWPASS1"><br>
</td></tr><tr><td> New Password (again): </td><td> <input type="password" size="30" name="NEWPASS2"><br>
</td></tr></table>
 <center><input type="submit" value="submit"></center>
 $tokenstring
 <input type="hidden" name="change" value="1">
 </form></td></tr></table>!;
  }