############################
# AERO LISTSERV MANAGEMENT #
# BY KEITH HALL #
############################

$theform =
'

Please Join our AERO-Update LISTServ!

The AERO-Update LISTServ provides information to interested individuals about the Department of Aerospace Engineering. Alumni, current students, parents, faculty, staff, colleagues, and community members who join the AERO-Update LISTServ will receive the monthly AERO E-Newsletter and general announcements.

Providing information for the AERO-Update LISTServ does not update information with the Association of Former Students. To update information with the Association of Former Students, please click here.

‘;

$varcheck = 1;
$listname = “aero-updates”;
$listserv = “listserv@listserv.tamu.edu”;
$listemail = $listname . “@listserv.tamu.edu”;

if($_POST['submit'] == “Submit”)
{
//Check FNAME
if($_REQUEST['fname'])
{
$fname = $_REQUEST['fname'];
}
else
{
$varcheck = 0;
echo “Please input your first name!
“;
echo $theform;
exit;
}

//CHECK LNAME
if($_REQUEST['lname'])
{
$lname = $_REQUEST['lname'];
}
else
{
$varcheck = 0;
echo “Please input your last name!
“;
echo $theform;
exit;
}

//CHECK EMAIL
if($_REQUEST['email'])
{
$email = $_REQUEST['email'];
}
else
{
$varcheck = 0;
echo “Please input your E-mail Address!
“;
echo $theform;
exit;
}

if($_REQUEST['sub'] == “add”)
{
$message = “SUBSCRIBE $listname $fname $lname”;
$subject = $message;

mail(”listserv@listserv.tamu.edu”, $subject, $message, “From:$email”);
}

if($_REQUEST['sub'] == “del”)
{
$message = “UNSUB $listname”;
$subject = $message;
mail($listserv, $subject, $message, “From:$email”);
}

echo
”
Thank you for joining the ListSERV!
“;
}
else
echo $theform;

?>