#!/usr/bin/perl

open DATAFILE, ">/tmp/$ARGV[2].mail" or exit(1);

print DATAFILE "As you requested, the password has been reset for the Phantasia account\nnamed $ARGV[0].  Here is the new password and remember it is\ncase sensitive:\n\n";

print DATAFILE "account: $ARGV[0]\n";
print DATAFILE "password: $ARGV[1]\n\n";

print DATAFILE "This password can be changed at http://www.phantasia4.com.  Log in to your\naccount and press \"Account\" and then \"Change Pass\".\n\n";

print DATAFILE "If you have any questions, please contact the game moderator at\nbkelly\@dimensional.com.\n\n";

print DATAFILE "May the minions tremble at the mention of your name.\n";

close DATAFILE;

system ("mail -s \"Account $ARGV[0] Password Reset\" $ARGV[2] < /tmp/$ARGV[2].mail");

system("rm /tmp/$ARGV[2].mail");

exit(0);