Tidy up OpenCL info/registration pages. Add Katie's slides.

news.xml

@@ -1,7 +1,12 @@
 <?xml version='1.0'?>
 
 <!DOCTYPE newdefs SYSTEM "csc.dtd">
-<newsdefs> 
+<newsdefs>
+<newsitem author="m4burns" date="2012-02-17">
+    <p>
+    The CSC and AMD are running an <a href="opencl">OpenCL programming contest!</a> If you're interested in winning a laptop or a graphics card, you should <a href="opencl">read more</a> and <a href="opencl/register">register here</a>.
+    </p>
+</newsitem>
 <newsitem author="m4burns" date="2012-02-13">
     <p>
     Recorded talks from 2010 to 2012 have been added to the <a href="media">media</a> page.

opencl/Makefile

@@ -1,3 +1,3 @@
-FILES = index.html register.html register-fail.html register-success.html register.cgi .htaccess
+FILES = index.html register.html register-fail.html register-success.html register.cgi .htaccess openclintro.pdf
 RELDIR = opencl/
 include ../common.mk

opencl/index.xml

@@ -18,11 +18,14 @@
   <p>
   For newcomers, we'll guide you through a few simple exercises with OpenCL and GPGPU. For the experienced, this will be your chance to meet other competitors and learn more about the contest.
   </p>
+  <p>
+  If you miss the tutorial, slides are available <a href="openclintro.pdf">here.</a> You can drop by our office in MC 3036 to pick up an OpenCL reference book.
+  </p>
  </section>
 
  <section title="EXTERMINATE!">
   <p>
-  Contest registration begins after the introductory code party on the 16th. If you want to participate and possibly win prizes, you'll need to register here between the 16th and 24th of February. On March 2nd, we'll be holding a contest code party. All contestants are invited; the submissions deadline will be at 12:00 AM. At the conclusion of the party, there will be judging and prizes. Participants will have the chance to win a laptop or AMD GPU.
+  You can register to participate in the contest <a href="register">here.</a> If you want to participate and possibly win prizes, you'll need to register here between the 16th and 24th of February. On March 2nd, we'll be holding a contest code party. All contestants are invited; the submissions deadline will be at 12:00 AM. At the conclusion of the party, there will be judging and prizes. Participants will have the chance to win a laptop or AMD GPU.
   </p>
   <p>
   If you have any questions, please contact <a href="mailto:exec@csclub.uwaterloo.ca">exec@csclub.uwaterloo.ca</a> or drop by the Computer Science Club in MC 3036. We hope you'll join us!

opencl/register.cgi

@@ -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)))
@@ -36,6 +42,12 @@
     "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))