Sender: |
|
Subject: |
|
From: |
|
Date: |
Fri, 16 Apr 1993 10:47:15 EDT |
In-Reply-To: |
Your message of Fri, 16 Apr 93 10:44:41 EDT |
Reply-To: |
|
Parts/Attachments: |
|
|
Here's one I use to reduce the log volume. You'll need to change some of the
literals to suit your installation.
Andy Hooper
--- File: LSVLOG XEDIT --------------------------------------------------------
/**/
'SET ARBCHAR ON ?'
'SET CASE MIXED RESPECT'
'SET SHADOW OFF'
/*'EXCLUDE /LSV$FORW/'*/
'EXCLUDE / Processing file ? from/'
'EXCLUDE / From LISTSERV@?: DIST/'
'EXCLUDE / Distributing mail/'
/*'EXCLUDE / Mail distributed to /'*/
'EXCLUDE / Mail delivered to /'
'EXCLUDE / Mail posted via BSMTP to /'
'EXCLUDE / Done - ?outbound file/'
'EXCLUDE / Distributing file/'
'EXCLUDE / File ? distributed to /'
'EXCLUDE / Sent information mail to /'
'EXCLUDE / FILE ? FROM RSCS/'
'EXCLUDE /RDR FILE ? SENT FROM MAILER/'
'EXCLUDE / Mail forwarded to LISTSERV@'
/*'EXCLUDE / Mail was DISTRIBUTEed to /'*/
/*'EXCLUDE / Done - ? job/'*/
'EXCLUDE / File ? JOB" from LISTSERV@? has been sent to you/'
'EXCLUDE / From LISTSERV@?: X-FOR ? UNSUB/'
'EXCLUDE / From LISTSERV@?: X-FOR ? SIGNOFF/'
'EXCLUDE / SIGNOFF *?FWDED=/'
'EXCLUDE / UNSUB *?FWDED=/'
'EXCLUDE / DELETE *?NETWIDE/'
'EXCLUDE / From LISTSERV@?: X-SUPD /'
'EXCLUDE / From LISTSERV@?: X-LUPD /'
'EXCLUDE /> CKS /'
'EXCLUDE /> REP /'
'EXCLUDE /> HDR /'
'EXCLUDE /> DEL /'
'EXCLUDE / GLOBLIST FILE has been successfully updated/'
'EXCLUDE / RSCS message: /'
'EXCLUDE / <LMON> Link ? now operates in /'
'EXCLUDE / Link ? has been in /'
'EXCLUDE / STOPped and re-STARTed./'
'EXCLUDE / Executing WAKEUP event: &01:00 CP SMSG RSCSV2 START QUCDN/'
'EXCLUDE / Job ? is being suspended (Prime=QUIETNO)./'
'SET ZONE 1 3'
'EXCLUDE /> +/'
'SET ZONE 1 *'
exit
'EXCLUDE /(VIA) HOST(/'
'EXCLUDE / HOST(79/'
'EXCLUDE />>> ? peered lists/'
'EXCLUDE /PASCAL run-time environment lost - acquiring a new one.../'
-------------------------------------------------------------------------------
--- File: EXCLUDE XEDIT -------------------------------------------------------
/*- Converse of ALL -*/
trace n
parse source . . . . . myname .
argstring = arg(1)
push argstring
'MACRO PARSE 1 TARGET'
if rc ^= 0 then do
ret = rc
'COMMAND EMSG EXCLUDE Invalid operand :' argstring
'COMMAND CMSG' myname argstring
exit ret
end
pull parseCount
if parseCount ^= 1 then do
'COMMAND EMSG EXCLUDE Invalid operand :' argstring
'COMMAND CMSG' myname argstring
exit 5
end
pull targetStart targetLength
target = substr(argstring,targetStart,targetLength)
'COMMAND PRESERVE'
'COMMAND SET SCOPE DISPLAY'
'COMMAND SET DISPLAY 0 0'
'COMMAND SET VERIFY OFF'
'COMMAND SET WRAP OFF'
'COMMAND TOP'
'COMMAND LOCATE' target
if rc ^= 0 then do
ret = rc
if rc = 1 then 'COMMAND EMSG EXCLUDE Target not found'
'COMMAND CMSG' myname target
'COMMAND RESTORE'
'COMMAND TOP'
exit ret
end
'COMMAND SET MSGMODE OFF'
'COMMAND SET SELECT 1 1'
foundCount = 1
do forever
'COMMAND -1 LOCATE' target
if rc ^= 0 then leave
foundCount = foundCount + 1
'COMMAND SET SELECT 1 1'
end
'COMMAND TOP'
'COMMAND RESTORE'
'COMMAND SET DISPLAY 0 0' /* must repeat after RESTORE */
'COMMAND SET SCOPE DISPLAY'
'COMMAND MSG' left('EXCLUDEd' foundCount target,75)
exit
-------------------------------------------------------------------------------
|
|
|