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