home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / internet-tools / amitalk / 30.talkrequest.rexx next >
Encoding:
OS/2 REXX Batch file  |  1995-04-20  |  550 b   |  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.