|
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
|
|
|