cgierror
Les Cottrell. Last Update: 3 Mar 1997
/* 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 '<html><head><title>'Title'</title></head>'
SAY '<body><h1>'Title'</h1>'
IF Body\='' THEN SAY Body
SAY '</body></html>'
RETURN ''