home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / WWW / Charon / Rexx / AddURL.rexx next >
Encoding:
OS/2 REXX Batch file  |  2000-01-01  |  487 b   |  28 lines
  1. /* Adds URL passed as first argument to the list */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. CharonPath = "PathTo:Charon"
  6.  
  7. PARSE ARG URL
  8.  
  9. IF (URL = '' | URL = '?') THEN DO
  10.     SAY 'URL/A'
  11.     EXIT 20
  12. END
  13.  
  14. P = ' ' || ADDRESS() || ' ' || SHOW('P',,)
  15. IF POS(' CHARON.', P) > 0 THEN charonport = WORD(SUBSTR(P, POS(' CHARON.', P) + 1), 1)
  16. ELSE DO
  17.     ADDRESS COMMAND
  18.     "Run >NIL: " || CharonPath
  19.     "WaitForPort CHARON.1"
  20.     charonport = 'CHARON.1'
  21. END
  22.  
  23. ADDRESS(charonport)
  24.  
  25. NEWURL URL
  26. ID=RESULT
  27. IF ID ~= 0 THEN START 'ID='||ID
  28.