From dd6f52991979b4d49c37cb8d8298d86af9a4efa7 Mon Sep 17 00:00:00 2001
From: Marc Burns <m4burns@uwaterloo.ca>
Date: Wed, 15 Feb 2012 16:08:01 -0500
Subject: [PATCH] Add registration page and mechanism for OpenCL contest.

---
 opencl/.htaccess            |  2 ++
 opencl/Makefile             |  2 +-
 opencl/register-fail.xml    | 17 +++++++++++++++
 opencl/register-success.xml | 17 +++++++++++++++
 opencl/register.cgi         | 41 +++++++++++++++++++++++++++++++++++++
 opencl/register.xml         | 23 ++++++++++++++++++++-
 6 files changed, 100 insertions(+), 2 deletions(-)
 create mode 100644 opencl/.htaccess
 create mode 100644 opencl/register-fail.xml
 create mode 100644 opencl/register-success.xml
 create mode 100755 opencl/register.cgi

diff --git a/opencl/.htaccess b/opencl/.htaccess
new file mode 100644
index 0000000..62e7e7f
--- /dev/null
+++ b/opencl/.htaccess
@@ -0,0 +1,2 @@
+AddHandler cgi-script .cgi
+Options +Indexes +ExecCGI
diff --git a/opencl/Makefile b/opencl/Makefile
index c9450fa..aa55fa0 100644
--- a/opencl/Makefile
+++ b/opencl/Makefile
@@ -1,3 +1,3 @@
-FILES = index.html register.html
+FILES = index.html register.html register-fail.html register-success.html register.cgi .htaccess
 RELDIR = opencl/
 include ../common.mk
diff --git a/opencl/register-fail.xml b/opencl/register-fail.xml
new file mode 100644
index 0000000..17ee20f
--- /dev/null
+++ b/opencl/register-fail.xml
@@ -0,0 +1,17 @@
+<?xml version='1.0'?>
+
+<!DOCTYPE cscpage SYSTEM "../csc.dtd">
+
+<cscpage title="CSC/AMD OpenCL Competition Registration">
+ <header />
+ 
+ <section title="CSC/AMD OpenCL Competition Registration"> 
+  <p>
+
+  You didn't fill out all required information on the registration form. Please <a href="register">try again</a>.
+
+  </p>
+ </section>
+
+ <footer />
+</cscpage>
diff --git a/opencl/register-success.xml b/opencl/register-success.xml
new file mode 100644
index 0000000..fbea588
--- /dev/null
+++ b/opencl/register-success.xml
@@ -0,0 +1,17 @@
+<?xml version='1.0'?>
+
+<!DOCTYPE cscpage SYSTEM "../csc.dtd">
+
+<cscpage title="CSC/AMD OpenCL Competition Registration">
+ <header />
+ 
+ <section title="CSC/AMD OpenCL Competition Registration"> 
+  <p>
+
+  Thank you for registering to participate. Your information has been recorded, and we will be contacting you shortly with further instructions.
+
+  </p>
+ </section>
+
+ <footer />
+</cscpage>
diff --git a/opencl/register.cgi b/opencl/register.cgi
new file mode 100755
index 0000000..5e14125
--- /dev/null
+++ b/opencl/register.cgi
@@ -0,0 +1,41 @@
+#!/usr/bin/env racket
+#lang racket
+(require srfi/98)
+(require net/uri-codec)
+(require net/smtp)
+
+(define ERROR-HEADER "Location: http://csclub.uwaterloo.ca/opencl/register-fail\n\n")
+(define SUCCESS-HEADER "Location: http://csclub.uwaterloo.ca/opencl/register-success\n\n")
+
+(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)))
+
+(define required-fields `( (quest . ,is-user?) (email . ,is-email?)))
+(define check-fields '(team open closed))
+
+(define (identity x) x)
+
+(let*
+  ((post-data (form-urlencoded->alist (port->string)))
+   (required-extract
+     (map
+       (lambda(x) (let ((e (assoc (car x) post-data)))
+                       (cond [(false? e) #f]
+                             [((cdr x) (cdr e)) e]
+                             [else #f])))
+       required-fields))
+   (check-extract (filter identity (map ((curryr assoc) post-data) check-fields)))
+   (filled-out? (andmap identity required-extract)))
+  (when (not filled-out?)
+    (printf ERROR-HEADER)
+    (exit 0))
+  (smtp-send-message
+    "caffeine.csclub.uwaterloo.ca"
+    "opencl-contest-registration@csclub"
+    (list "init512@gmail.com")
+    "Subject: Contestant registered!\n\n"
+    (list (with-output-to-string
+      (lambda() (write (append required-extract check-extract))))))
+  (printf SUCCESS-HEADER)
+  (exit 0))
+
diff --git a/opencl/register.xml b/opencl/register.xml
index 8bd5838..9d78129 100644
--- a/opencl/register.xml
+++ b/opencl/register.xml
@@ -7,7 +7,28 @@
  
  <section title="CSC/AMD OpenCL Competition Registration"> 
   <p>
-  Registration will open on the 16th of February.
+
+  <form action="register.cgi" method="post">
+    <table cellpadding="5px">
+    <tr>
+      <td>Quest ID:</td><td><input type="text" name="quest" /></td>
+    </tr>
+    <tr>
+      <td>Email:</td><td><input type="text" name="email" /></td>
+    </tr>
+    <tr>
+      <td>Are you participating with a team?</td><td><input type="checkbox" name="team" value="yes" /></td>
+    </tr>
+    <tr>
+      <td>Problem type:</td><td><input type="checkbox" name="open" value="yes" /> Open Submission
+                                <input type="checkbox" name="closed" value="yes" /> Problem Set</td>
+    </tr>
+    <tr>
+      <td></td><td><input type="submit" name="Register" value="Register" /></td>
+    </tr>
+    </table>
+  </form>
+
   </p>
  </section>