# -*- perl -*- if ($maintdir == "") $maintdir = ".."; require("$maintdir/constants.php3"); require("$authdir/perror-list.php3"); # Failure function function do_perror($ERRNO) { global $FAILURE_URL; trim($FAILURE_URL); if ($FAILURE_URL <> "") { Header("Location: $FAILURE_URL?ERRNO=$ERRNO"); } else { ?>