Script Library: 1238 scripts


REBOL [ Title: "Do-Thru" Date: 4-Jun-2000 File: %do-thru.r Author: "Allen Kamp" Purpose: "To 'do cache scripts with args" Note: {Script is obsolete since View 1.3 - 16-06-2005 - Allen K } Email: %allenk--powerup--com--au library: [ level: 'beginner platform: [] type: [] domain: [] tested-under: none support: none license: none see-also: none ] ] do-thru: func [ "Do a file from the net thru the public cache." url [url!] /args arg /update "Force update from source site" /local path file ][ path: parse url "/" file: trim/with last path {\:*?"<>|} path: rejoin [system/options/home %public/ path/3 "/"] if not exists? path [make-dir path] if any [update not exists? path/:file] [ data: read/binary url write/binary path/:file :data ] either args [do/args path/:file :arg][do path/:file] ] ;example: do-thru
halt ;; to terminate script if DO'ne from webpage
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (allenk:powerup:com:au)