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

This commit is contained in:
Marc Burns 2012-02-17 12:32:21 -05:00
parent d90d2a366a
commit f1a96a00d0
5 changed files with 23 additions and 3 deletions

View File

@ -1,7 +1,12 @@
<?xml version='1.0'?> <?xml version='1.0'?>
<!DOCTYPE newdefs SYSTEM "csc.dtd"> <!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"> <newsitem author="m4burns" date="2012-02-13">
<p> <p>
Recorded talks from 2010 to 2012 have been added to the <a href="media">media</a> page. Recorded talks from 2010 to 2012 have been added to the <a href="media">media</a> page.

View File

@ -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/ RELDIR = opencl/
include ../common.mk include ../common.mk

View File

@ -18,11 +18,14 @@
<p> <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. 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>
<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>
<section title="EXTERMINATE!"> <section title="EXTERMINATE!">
<p> <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>
<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! 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!

BIN
opencl/openclintro.pdf Normal file

Binary file not shown.

View File

@ -6,6 +6,12 @@
(define ERROR-HEADER "Location: register-fail\n\n") (define ERROR-HEADER "Location: register-fail\n\n")
(define SUCCESS-HEADER "Location: register-success\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-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 (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" "Subject: Contestant registered!\n\n"
(list (with-output-to-string (list (with-output-to-string
(lambda() (write (append required-extract check-extract)))))) (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) (printf SUCCESS-HEADER)
(exit 0)) (exit 0))