added sysprog entities
This commit is contained in:
17
SYSPROG/STPROC/LOG_INET_TRANSACTIONS.txt
Normal file
17
SYSPROG/STPROC/LOG_INET_TRANSACTIONS.txt
Normal file
@ -0,0 +1,17 @@
|
||||
Subroutine Log_Inet_Transactions(Request)
|
||||
|
||||
$Insert Inet_Equates
|
||||
|
||||
Open 'INET_LOG' To f_inet_log Then
|
||||
log_record = ''
|
||||
DATE = date()
|
||||
time = time()
|
||||
id = date:'.':time
|
||||
log_record<1> = request<REMOTE_USER$>
|
||||
log_record<2> = request<REMOTE_IDENT$>
|
||||
log_record<3> = request<12>
|
||||
write log_record On f_inet_log, id Else null
|
||||
End
|
||||
|
||||
|
||||
return
|
Reference in New Issue
Block a user