home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / bbs / 4d-bbsdemo / arexx / 4dchatreq.rexx < prev    next >
OS/2 REXX Batch file  |  1993-12-28  |  552b  |  24 lines
  1. /*    ChatReq.Rexx                  Copyright 1993 © CornerStone Software
  2.  *                                   Written By Dale E. Reed Jr.
  3.  *                                   All Rights Reserved
  4.  *
  5.  *  This program will log the date/time and reason why someone requested
  6.  *  chat into a logfile called "Text:Logs/ChatReq.Log"
  7.  *
  8.  */
  9.  
  10. options results
  11.  
  12. logfile='Text:Logs/ChatReq.Log'
  13.  
  14.  
  15. ARG port username chatreason
  16.  
  17. if open(log, logfile, 'Append') = 1 then
  18.     do
  19.     bigline=date() || ' ' || username || chatreason 
  20.     writeln(log, bigline)
  21.     close(log)
  22.     end
  23.  
  24.