home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / comm / tcp / AmiTALK155.lha / AmiTALK / 30.talkrequest.rexx next >
OS/2 REXX Batch file  |  1995-04-20  |  550b  |  23 lines
  1. /* A talkrequest.rx for use with KS 3.0+, but without rexxreqtools.library */
  2. /* Fixed by JanusMan on #amiga ~11/28/94 */
  3. /* Fixed sommore by BRG based on ideas from Andreas S. Oesterhelt 12/08/94 */
  4. /* Fixed a minor bug that caused it to fail.  --BRG 04/20/95 */
  5.  
  6. NL = '0a'x
  7.  
  8. PARSE ARG callee caller
  9.  
  10. text=callee ||" at "||DATE()||", "||TIME(CIVIL)
  11.  
  12. address command
  13.  
  14. 'RequestChoice >t:ans "Incoming talk request" "'||text||'" "Answer|Ignore"'
  15. if (open(answer,"t:ans","R")) then do
  16.     result=readln(answer)
  17. end
  18. if result==1 then
  19.     'talk' callee
  20. endif
  21.  
  22.  
  23.