18 lines
351 B
Plaintext
18 lines
351 B
Plaintext
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
|