home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / workbench / hypertext_dtc / arexx / linkreq.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-04-12  |  1.5 KB  |  72 lines
  1. /*
  2. ** $PROJECT: HTDS ARexx scripts
  3. **
  4. ** $VER: linkreq.rexx 40.1 (12.04.97)
  5. **
  6. ** $AUTHOR: Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
  7. **
  8. ** $COPYRIGHT: (C) Copyright 1997 by Stefan Ruppert, All Rights Reserved!
  9. **
  10. ** $EMAIL: Stefan.Ruppert@informatik.fh-wiesbaden.de
  11. **
  12. ** $HISTORY:
  13. **
  14. ** 12.04.97 : 040.001 : initial
  15. **
  16. */
  17.  
  18. /* --------------------------- needed libraries --------------------------- */
  19.  
  20. Call AddLib('rexxsupport.library',0,-30,0)
  21. Call AddLib('rexxdossupport.library',0,-30,0)
  22. Call Addlib("rexxreqtools.library", 0, -30, 0)
  23.  
  24. Signal On Syntax
  25. Parse Arg args
  26.  
  27. stem.link     = ''
  28. stem.pubscreen= ''
  29. stem.verbose  = 0
  30. stem.prompt   = 0
  31.  
  32. reqtags       = ''
  33.  
  34. 'GETATTR OBJECT=APPLICATION FIELD=SCREEN VAR=STEM.PUBSCREEN'
  35.  
  36. lang          = GetEnv('LANGUAGE')
  37. If lang = 'deutsch' Then Do
  38.    reqgadgets = '_Öffnen|_Abbrechen'
  39.    reqtitle   = 'HTDS Link öffnen'
  40. End
  41. Else
  42. Do
  43.    reqgadgets = '_Open|_Cancel'
  44.    reqtitle   = 'HTDS open link'
  45. End
  46.  
  47. template = 'LINK,PUBSCREEN/K,PROMPT/S,VERBOSE/S'
  48.  
  49. If ReadArgs(args,template,'STEM.') Then Do
  50.    If stem.pubscreen ~= '' Then
  51.       reqtags = reqtags || ' rt_pubscrname=' || stem.pubscreen
  52.  
  53.    If stem.link = '' | stem.prompt Then
  54.       stem.link = RTGetString(stem.link,,reqtitle, reqgadgets, reqtags)
  55.  
  56.    If stem.link = '' Then
  57.       Exit 0
  58.  
  59.    If stem.verbose Then
  60.       Say 'Link To "' || stem.link || '"'
  61.  
  62.    'LINK ' || stem.link
  63. End
  64.  
  65. Exit 0
  66.  
  67. Syntax:
  68.   If stem.verbose Then
  69.      Say 'Error: ' || SIGL || ': ' || ERRORTEXT(RC)
  70.   Exit 0
  71.  
  72.