parse file [
"time" (send-page form now mime) |
"dir" "+" copy name thru end
(send-page read to-file append name "/") |
"del" "+" copy name thru end
(delete to-file name
send-page "file deleted" mime) |
"read" ["+" copy name thru end
(send-page read name)] |
"mail?" (mail-port: open pop://user:pass@server
send-page reform [length? mail-port "new messages"] mime
close mail-port) |
thru "." [
"html" (mime: "text/html") |
"gif" (mime: "image/gif") |
"jpg" (mime: "image/jpeg")
] (any [
if not exists? web-dir/:file [send-error 404 file]
if error? try [data: read/binary web-dir/:file] [
send-error 400 file]
send-page data mime
])
]
Script Junkie | REBOL Bots
Over the past two decades, my search for the perfect scripting language led me to work with companies such as HP, Amiga, and Apple. In that time, I investigated more than 50 different languages, from Ada to C, from Pascal to Lisp. I wanted a language that was very simple and readable with almost no syntax, yet very flexible with a wide degree of expressive freedom.Related Reading
More Insights
INFO-LINK
 |
To upload an avatar photo, first complete your Disqus profile. | View the list of supported HTML tags you can use to style comments. | Please read our commenting policy. |
