Skip Navigational Links
LISTSERV email list manager
LISTSERV - COMMUNITY.EMAILOGY.COM
LISTSERV Menu
Log In
Log In
LISTSERV 17.5 Help - LSTSRV-L Archives
LISTSERV Archives
LISTSERV Archives
Search Archives
Search Archives
Register
Register
Log In
Log In

LSTSRV-L Archives

LISTSERV Site Administrators' Forum

LSTSRV-L

Menu
LISTSERV Archives LISTSERV Archives
LSTSRV-L Home LSTSRV-L Home

Log In Log In
Register Register

Subscribe or Unsubscribe Subscribe or Unsubscribe

Search Archives Search Archives
Options: Use Forum View

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

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

Print Reply
Subject:
TP XEDIT for VM/XA
From:
Turgut Kalfaoglu <[log in to unmask]>
Reply To:
LISTSERV give-and-take forum <[log in to unmask]>
Date:
Wed, 7 Feb 1996 10:28:05 +0200
Content-Type:
text/plain
Parts/Attachments:
text/plain (88 lines)
I keep using (and changing) an small xedit macro of mine to remove users
from lists -- I thought it might be of interest to others as well.
 
I use it while viewing the bounce messages via XR (I use a home-brew browser
called LOO EXEC), but it should work via MAIL/MAILBOOK or PEEK..
 
I am also putting  it on the trearn filelist of listserv@trearn.bitnet..
 
-turgut
 
 
/* Point and shoot facility to remove users from lists..
  just highlight (make it current line) the line with the
  bouncing user address, and type TP -- it will work with
  regular, compuserve, and AOL addresses.
  AFD to it -- as I keep fixing it..
 
  stored at: [log in to unmask] (or [log in to unmask])
-turgut
*/
 
'EXTRACT /CURLINE/LINE/'
parse var curline.3 '<'u'>'
arg aaa
host = ''
u = FindUserid()
 
if u='' Then Do
   Parse var curline.3 blurb
   if word(blurb,1)='550' then u=word(blurb,2)
   if word(blurb,1)='554' then u=word(blurb,6)
end
 
oldpos = line.1
'TOP'
'LOCATE Subject: '
'EXTRACT /CURLINE/'
parse var curline.3 'Subject:' listname':' . 'from' host
listname = space(listname)
host=space(host)
if pos('@',u)=0 then u=u'@'host
':'oldpos+1
 
if listname = '' then exit
if words(listname)>1 then listname=word(listname,1)
if listname = 'OS2-L' then
   'CMSG DELOSW' u
else
   'CMSG CP M LISTSERV QUIET DEL' listname u
exit 0
 
FindUserID:
Procedure expose curline.
    u= ''
   do t=1 to words(curline.3)
      cur = word(curline.3,t)
      if pos('@',cur)>0 then do
         u = cur
         leave
      end
   end
   If u = '' Then Do
   do t=1 to words(curline.3)
      cur = word(curline.3,t)
      if pos(',',cur)>0 then do
         parse var cur l','r .
         u = [log in to unmask]
         leave
      end
      if pos('.',cur)>0 then do
         parse var cur l'.'r .
         u = [log in to unmask]
         leave
      end
   end
   end
   parse var curline.3 '['comp','user']' .
   if comp ^='' & user ^='' Then Do
      u = [log in to unmask]
   end
  if pos('<',u)>0 then parse var u '<'u'>'.
  return u
 
---------------
internet: [log in to unmask]   postmaster, [log in to unmask]
bbsturk: (+90)232-369-6428/29    FIDO: sysop@2:430/105
VirtualNet: 1@90232000

ATOM RSS1 RSS2

COMMUNITY.EMAILOGY.COM CataList Email List Search Powered by LISTSERV