<? # -*- perl -*-

if ($have_send_mail == "") {
  $have_send_mail = "1";

  if ($maintdir == "") $maintdir = "..";

  require("$maintdir/constants.php3");
  require("$classdir/User.php3");
  require("$authdir/write-log.php3");

  function mail_password() {
    global $theUser;
    global $adminemail;
    global $idstring;

    $v = "aeiouyAEIOUU";
    $c = "bcdfghjklmnpqrstvwxzBCDFGHJKLMNPQRSTVWXZ";
    srand((double) microtime() * 100000);
    $password = substr($c, rand(0, strlen($c)), 1) .
      substr($v, rand(0, strlen($v)), 1) .
	substr($c, rand(0, strlen($c)), 1) .
	  substr($c, rand(0, strlen($c)), 1) .
	    substr($v, rand(0, strlen($v)), 1) .
	      substr($c, rand(0, strlen($c)), 1) .
		substr($c, rand(0, strlen($c)), 1);
    $salt = substr($c, rand(0, strlen($c)), 1) . 
      substr($c, rand(0, strlen($c)), 1);

    $theUser->setPassword(crypt($password, $salt));

    $str = "Save this e-mail for future reference.  You will need this ID and password to login to www.gsu.nd.edu.\n\n" .
      "\tHere's your User ID: " . $theUser->getAFSID() . "\n" .
	"\tHere's your password: " . $password . "\n\n" .
	  "If you have any questions, feel free to send them to $adminemail.\n\n" .
	    "Your friendly daemon,\n" .
	      "Westley\n" .
		".\n" .
		  "\n";
    mail($theUser->getEmail(), "LAM/MPI web login information", $str,
	 "From: $adminemail\nX-Mailer: $idstring");
    write_log("Mailed new password to " . $theUser->getEmail());
  }
}