------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <[log in to unmask]>
 
On Tue, 19 Mar 1996 11:06:28 CST, you said:
> Is it possible as a list owner to get a list of my users who have
> been served off?
 
I'll do you one better.. Appended are a Rexx script and a Korn shell script
to do a 'serve on' for everybody who isn't served off by the postmaster.
 
Works for me, your mileage may vary....
 
 
------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <[log in to unmask]>
 
#!/bin/ksh
cd ~listserv/lsv/home
strings permvars.file|grep SERVEOFF | awk '{if ($2 == "") printf "lcmd quiet serve "substr($0,9,length($0)-10)" on\n"}'
 
------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <[log in to unmask]>
 
I run this on our Unix listserv machine, as 're-serve | sh -v'.  To just
*see* who is served off, leave off the "| sh -v".
 
 
------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <[log in to unmask]>
 
 /* rexx */
parse upper arg server '(' testmode;
if testmode = 'TEST' then  tester = 'SAY';
   else tester = '';
if server = '' then server ='LISTSERV';
'LDISK' server '191 (STACK';
pull addr mode;
do forever;
  'EXECIO 1 DISKR PERMVARS FILE' mode ' (VAR LINE';
  if rc <> 0 then leave;
  if substr(line,4,8) = 'SERVEOFF' then do;
    parse var line . 12 target;
    if words(target) > 1 then do;
      say 'Admin serve off' target;
    end;
    else do;
      rip = length(target) -1
      if substr(target,rip,2) = 21 then do;
        target = substr(target,1,rip-1);
        tester 'CP MSG' server 'QUIET SERVE ' target' ON';
        tester 'CP SLEEP 5 SEC';
      end;
      else if substr(target,rip-1,3) = 100 then do;
        target = substr(target,1,rip-2);
        tester 'CP MSG' server 'QUIET SERVE ' target' ON';
        tester 'CP SLEEP 5 SEC';
      end;
      else say "whoops" target;
      end;
  end;
end;
'REL' mode '(DET';
 
------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <[log in to unmask]>
 
Run this on a VM userid that has postmaster privs on Listserv.  The one
gotcha here is the 'LDISK' command, which is a local homegrown.  Basically,
it does a "CP LINK"/"ACCESS' and stacks the address and mode it used.
 
If run as 're-serve (test' it will just list what users are served off.
The junk about 'server' is there only because we run two Listserv machines
on one physical 3090 (Caution: do not try this at home.  These are highly
trained professional stunt idiots ;)
--
                                Valdis Kletnieks
                                Computer Systems Engineer
                                Virginia Tech
 
 
 
------- =_aaaaaaaaaa0--