#!/usr/bin/perl
use CGI;
use ISCourseWare::MiscLib;
use ISCourseWare::PageLib;
use ISCourseWare::ConfigLib;
use strict;
my $query=new CGI;
my $pagetext="";
my $email=$query->param('email');
my $config=new ISCourseWare::ConfigLib;
my $page=new ISCourseWare::PageLib($config, "forgotit.cgi", "Send my password", "Help", 0, 0);
if (!$email) {
 $pagetext.= qq!
 Please enter the email address you signed in with.<br>  A new password will be generated and emailed to you.<p>
 <table border="1" cellpadding="5"><tr><td><form action="forgotit.cgi" method="post">
 Email address:<br>
 <input type="text" size="40" name="email">
 <br>
 <input type="submit" value="submit">
 </form></td></tr></table>!;
  my($error, $stuff)=$page->Page("$pagetext");
  print "$stuff";
 } else {
 $pagetext=&ISCourseWare::MiscLib::ForgotIt("$email");
   my($error, $stuff)=$page->Page("$pagetext");
	print "$stuff";
  }