LSTSRV-L Archives

LISTSERV Site Administrators' Forum

LSTSRV-L

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Topic: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Ben Chi <BEC@ALBNYVM1>
Mon, 11 Sep 89 17:10:39 EDT
text/plain (14 lines)
Following a tip from Eric, I find this is very easy to do.  To cause
each user request to LISTSERV "TELL LISTSERV GET fileid", you need do
only the following:
 
1.  LSVPUT GETLOG EXEC (PUTC    where GETLOG EXEC is the following:
 
/* This File access validation exit logs user GET requests.           */
ADDRESS COMMAND
ARG , req origin filelist . "*" fn ft .
IF req ^= "GET1" THEN EXIT 0
entry = DATE("U") TIME() LEFT(filelist,8) LEFT(fn,8) LEFT(ft,8) origin
"EXECIO 1 DISKW" fn "GETLOG A1 0 (VAR ENTRY FINIS"
EXIT 0

ATOM RSS1 RSS2