home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / chip_20022115.iso / amiga / chiputil / rebollib.lha / RebolLib / Developer / Includes / E / Demos / pageupdated.e < prev   
Text File  |  2001-07-08  |  444b  |  18 lines
  1. ->pageupdated.e
  2. ->USAGE: pageupdated URL
  3. ->EXAMPLE: pageupdated http://www.rebol.com
  4. MODULE '*rebol'
  5. DEF result,script[500]:STRING
  6. PROC main()
  7.   IF rebolbase:=OpenLibrary('rebol.library',0)
  8.     StringF(script,'a: modified? \s result: a/date',arg)
  9.     result:=RebolDo(script)
  10.     IF result
  11.       PrintF('The page \s has last been updated on \s.\n',arg,result)
  12.       RebolFreeResult(result)
  13.     ENDIF
  14.     CloseLibrary(rebolbase)
  15.   ENDIF
  16. ENDPROC
  17.  
  18.