Tidy up OpenCL info/registration pages. Add Katie's slides.
[mspang/www.git] / opencl / register.cgi
index 15699e6..c8f4469 100755 (executable)
@@ -6,6 +6,12 @@
 
 (define ERROR-HEADER "Location: register-fail\n\n")
 (define SUCCESS-HEADER "Location: register-success\n\n")
+(define FRIENDLY-MESSAGE #<<EOF
+Thank you for registering in the OpenCL contest. Your information has been recorded.
+
+We'll be emailing you with further details as the registration deadline approaches.
+EOF
+)
 
 (define (is-user? str) (equal? (list str) (regexp-match #rx"[A-Za-z0-9._]+" str)))
 (define (is-email? str) (equal? (list str) (regexp-match #rx"[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+" str)))
     "Subject: Contestant registered!\n\n"
     (list (with-output-to-string
       (lambda() (write (append required-extract check-extract))))))
+  (smtp-send-message
+    "caffeine.csclub.uwaterloo.ca"
+    "exec@csclub.uwaterloo.ca"
+    (list (cdr (assoc 'email required-extract)))
+    "Subject: OpenCL Registration Received\n\n"
+    (list FRIENDLY-MESSAGE))
   (printf SUCCESS-HEADER)
   (exit 0))