41 lines
1.4 KiB
Plaintext
41 lines
1.4 KiB
Plaintext
function INET_Security(Request, FnName)
|
|
|
|
***************************************************************************
|
|
* Project : OpenInsight for Internet
|
|
*
|
|
* Name : INET_Security
|
|
* Description: Security check point for a request
|
|
*
|
|
* Parameters:
|
|
* Request [in/out] -- HTTP request (see INET_EQUATES)
|
|
* FnName [in/out] -- name of a function that is
|
|
* about to be executed (starts with INET_)
|
|
* returns [out] -- emty string to allow request or
|
|
* message in html format to stop the request
|
|
* and pass it back to a client
|
|
*
|
|
* Note:
|
|
* Parameters "Request" and "Function" are passed by reference
|
|
* which makes it possible to change the function name and/or
|
|
* request parameters on a fly by intelligent security procedure
|
|
*
|
|
***************************************************************************
|
|
|
|
$insert Logical
|
|
$insert Inet_Equates
|
|
|
|
declare subroutine Send_Event
|
|
|
|
HtmlMessage = '' ;* assume success
|
|
|
|
* put your authorization check code here
|
|
* ...
|
|
*
|
|
|
|
* if authorization failed -- log the failure
|
|
if len(HtmlMessage) then
|
|
Send_Event(GS_MONITOR$, 'OMNIEVENT', 'OUTCOMING', 'Authorization failed')
|
|
end
|
|
|
|
return HtmlMessage
|