s c h e m e w i k i . o r g

/ Scm.WebFileUpload1

This Web


WebHome 
WebChanges 
WebTopicList 
WebStatistics 

All Webs


Chicken
Cookbook
Erlang
Know
Main
Plugins
Sandbox
Scm
TWiki  

Schematics


Schematics Home
TWiki Shorthand

Offsite Links


Schemers.org
Lambda the Ultimate
twiki.org
#!/bin/sh ":";exec /home/solsona/scheme/plt/bin/mzscheme -r $0

(require (lib "cgi.ss" "net") (lib "file-upload.ss" "net"))

(let* ((b (get-bindings/mime)) (name (extract-binding/single "Name" b)) (email (extract-binding/single "Email" b)) (picture (extract-binding/single "Picture" b))) ;; Process information, and do the actual registration... ;; ... and finally, we return to the user (HTML of course) (let ((image (car picture)) (writeme (cadddr picture))) (call-with-output-file (build-path "/usr/local/www/data/images/" image) writeme) (generate-html-output "Thank you!" (list (format "Dear ~a, " name) "We have received your information, and this completes the registration process." "Thank you!." "
" (format "" image)))) )

 
 
© 2004 by the contributing authors. / You are Main.guest