home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / comm / bbbbs-7.2.lha / BBBBS / BBBBS72.lha / rexx / ShowLog.baud < prev    next >
Text File  |  1993-07-06  |  373b  |  19 lines
  1. /* showlog.baud */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. dcd
  6. IF RC>0 THEN RETURN
  7. yearmonthday=""
  8. PARSE ARG yearmonthday .
  9. IF LENGTH(yearmonthday)~=8 THEN yearmonthday=DATE('S')
  10.  
  11. bbspath=GETCLIP('BBS_path')
  12. filename=bbspath'Logs/log.'yearmonthday
  13.  
  14. Send 'ATH1\r'
  15. IF EXISTS(filename) THEN
  16.   ADDRESS COMMAND 'type' filename
  17. ELSE SAY 'Can''t find log file for' DATE(,yearmonthday,'S')
  18. Send 'ATH\r'
  19.