sub AddAlert {
  if ($FORM{'alert'} eq "") {
    &error("No Alert Specified");
  }
  open(FILE, ">>$USER.alerts");
  print FILE "$FORM{'alert'}\n";
  close(FILE);
  return;
}