home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Win & OS/2 Edition / Pegasus_Win_OS2.iso / os2 / texte / who.cmd < prev    next >
Encoding:
Text File  |  1992-12-01  |  964 b   |  22 lines
  1. /*
  2.   * REXX IPCxx.BBS reader * by Peter Gamache * HardWired BBS (612)636-2092 *
  3.    A utility for MAXIMUS BBS sysops.
  4.    This is a very simple little routine (I think I spent the whole of 10
  5.    minutes on it).  Modify as you see fit, but give me credit.  Cheap.
  6.    I present this as a product fit for nothing except wrapping fish with.
  7.    Yes, that's it.  Only a single variable to set.  Put WHO.CMD somewhere in
  8.    your PATH. Tah-Da!  You've now got a WHO command from your shell!
  9. */
  10. ipcdir = 'C:\MAX\CHAT\'   /* Your IPC directory, with a trailing backslash. */
  11.  
  12. say sourceline(2)
  13. say "Node Name                             Status"
  14. say "──── ──────────────────────────────── ────────────────────────────────────────"
  15. do x = 1 to 255
  16.   fn = ipcdir'IPC'd2x(x,2)'.BBS'
  17.   if stream(fn,'c','query exists')='' then iterate
  18.   parse value charin(fn,3,32) with Name
  19.   parse value charin(fn,39,40) with Stat
  20.   say ' 'd2x(x,2)'  'Name Stat
  21. end /* do */
  22.