LSTSRV-L Archives

LISTSERV Site Administrators' Forum

LSTSRV-L

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

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

Parts/Attachments: text/plain (14 lines)
Print Reply
Sender:
Revised LISTSERV forum <LSTSRV-L@CEARN>
Subject:
From:
Ben Chi <BEC@ALBNYVM1>
Date:
Mon, 11 Sep 89 17:10:39 EDT
Reply-To:
Revised LISTSERV forum <LSTSRV-L@CEARN>
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