/* CgiError Prints out an error message which contains appropriate headers, markup, etcetera. Parameters: If no parameters, gives a generic error message Otherwise, the first parameter will be the title and the rest will be given as the body */ CgiError: PROCEDURE; PARSE ARG Title, Body IF Title='' THEN Title='Error: script' MyURL(), 'encountered fatal error.' SAY ''Title'' SAY '

'Title'

' IF Body\='' THEN SAY Body SAY '' RETURN ''