All pastes #806588 Raw Edit

Stuff

public text v1 · immutable
·published 2007-12-05 19:08 UTC
rendered paste body
sub AddAlert {
  if ($FORM{'ALERT'} eq "") {
    &error("No Alert Specified");
  }
  open(FILE, ">>$USER.alerts");
  print FILE "$FORM{'ALERT'}\n";
  close(FILE);
  return;
}