Try this...
>either find/match ask ["What OS? "] "1"
> [get_file: join patch_number ["-" patch_revision ".tar.gz"]]
> [get_file: join patch_number ["-" patch_revision ".zip"]]
get_file: rejoin [patch_number {-} patch_revision {.zip}]
>write %get_file read site/:get_file
>
>"site" is a previously defined url. The error message on this is:
>
>** Access Error: Port none not open.
>** Where: write %get_file read site/:get_file
>
complete-url: rejoin [site get_file]
retrieve-file: reform ["write" rejoin [{%} get_file] "read" complete-url]
do retrieve-file
- [REBOL] Need basic help sfaulconer
- norsepower