home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / amigalibdisks / disk949 / bbbbs / bbbbs65.lha / rexx / ShowLog.baud < prev    next >
Encoding:
Text File  |  1993-07-07  |  373 b   |  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.