home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / wwwos2.zip / showbkmk.cmd < prev    next >
OS/2 REXX Batch file  |  1998-07-31  |  1KB  |  39 lines
  1. /* Show a WebWilly for OS/2 bookmark from the command line */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. signal on syntax name NoREXX
  4. call SysLoadFuncs
  5. signal on syntax name Syntax
  6. '@ECHO OFF'
  7. parse arg filename
  8. call sysgetea filename,URLFILEBUFFER,'variable'
  9. parse var variable . '17'x title '09'x url '09'x date '09'x time '09'x sticky '09'x .
  10. if sticky='01'x then do
  11.    call sysgetea filename,STICKEYTEXT,'sticky'
  12.    call sysgetea filename,STICKEYDATE,'stickydate'
  13. end
  14. else sticky='none'
  15. say ""
  16. say "  Title: " title
  17. say "    URL: " url
  18. if length(date)=5 then do
  19.    parse var date month "/" day
  20.    if wordpos(month,"09 10 11 12")>0 then year=1996
  21.    else year=1997
  22.    date=year||"/"||date
  23. end
  24. say "   Date: " date
  25. say "   Time: " time
  26. say " Sticky: " sticky
  27. if sticky<>'none' then say " (Date): " stickydate
  28. exit
  29. Syntax:
  30.   say 'Error' rc 'in line' sigl':' errortext(rc)
  31.   say sigl':' sourceline(sigl)
  32.   exit
  33. return
  34. NoREXX:
  35.    say 'Unable to load the REXXUtil functions.  Either the REXXUTIL.DLL file'
  36.    say 'is not on the LIBPATH or REXX support is not installed on this system.'
  37.    exit
  38. return
  39.