home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 2 BBS
/
02-BBS.zip
/
WHO.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-11-26
|
963b
|
22 lines
/*
* REXX IPCxx.BBS reader * by Peter Gamache * HardWired BBS (612)636-2092 *
A utility for MAXIMUS BBS sysops.
This is a very simple little routine (I think I spent the whole of 10
minutes on it). Modify as you see fit, but give me credit. Cheap.
I present this as a product fit for nothing except wrapping fish with.
Yes, that's it. Only a single variable to set. Put WHO.CMD somewhere in
your PATH. Tah-Da! You've now got a WHO command from your shell!
*/
ipcdir = 'C:\MAX\IPC\' /* Your IPC directory, with a trailing backslash. */
say sourceline(2)
say "Node Name Status"
say "──── ──────────────────────────────── ────────────────────────────────────────"
do x = 1 to 255
fn = ipcdir'IPC'd2x(x,2)'.BBS'
if stream(fn,'c','query exists')='' then iterate
parse value charin(fn,3,32) with Name
parse value charin(fn,39,40) with Stat
say ' 'd2x(x,2)' 'Name Stat
end /* do */