39 lines
1.2 KiB
Plaintext
39 lines
1.2 KiB
Plaintext
function INET_Aborted(Request, ProcErr)
|
|
|
|
***************************************************************************
|
|
* Project : OpenInsight for Internet
|
|
*
|
|
* Name : INET_Aborted
|
|
* Description: Called when an INET procedure has crashed and the Internet
|
|
* Gateway recovers.
|
|
*
|
|
* Warning! : This procedure MUST NOT fail (i.e. go to the debugger) or
|
|
* the Internet Services Gateway will be halted or go into an
|
|
* infinite loop. The Gateway has no way to auto-recover from
|
|
* a failure in this procedure!
|
|
*
|
|
* Returns : An HTML error message.
|
|
*
|
|
***************************************************************************
|
|
|
|
$insert Logical
|
|
$insert Inet_Equates
|
|
$insert Msg_Equates
|
|
$Insert inet_headers
|
|
|
|
declare function INET_Msg
|
|
|
|
if assigned(ProcErr) then
|
|
convert \00\:@fm:@vm:@svm to @tm:@tm:@tm:@tm in ProcErr
|
|
end else
|
|
ProcErr = ''
|
|
end
|
|
response = ''
|
|
response<MTEXT$> = 'Fatal error while processing request':@tm:@tm:ProcErr
|
|
response<MCAPTION$> = 'OpenInsight -- Server Error'
|
|
|
|
outmsg = Inet_Msg('', response)
|
|
Call inetapi_setstatus("500")
|
|
Return outmsg
|
|
|