From 3c4174548b561c4813ad1f4df4d59104a81885d3 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Mon, 22 Apr 2013 13:42:45 -0400
Subject: Forum: Record who asked each question

---
 forum/forum.ur | 23 +++++++++++++++++++++--
 forum/lib.urp  |  2 ++
 2 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/forum/forum.ur b/forum/forum.ur
index df53603..9556068 100644
--- a/forum/forum.ur
+++ b/forum/forum.ur
@@ -29,13 +29,27 @@ table question : { Id : int,
 		 } PRIMARY KEY Id
 sequence questionIdS
 
+fun showAskerOpt (askerOpt : option string) : string =
+    case askerOpt of
+	None => "Anonymous"
+      | Some nam => nam
+
+fun readAskerOpt (text : string) : option string =
+    case text of
+	"Anonymous" => None
+      | nam => Some nam
+
+(* Grabs real name out of MIT certificate. *)
+val getName = getenv (blessEnvVar "SSL_CLIENT_S_DN_CN")
+
 fun prettyPrintQuestion row : xbody =
     <xml>
-      <p>{[row.Question.Title]}: {[row.Question.Body]} (asked by {[row.Question.Asker]})</p>
+      <p>{[row.Question.Title]}: {[row.Question.Body]} (asked by {[showAskerOpt row.Question.Asker]})</p>
     </xml>
 
 fun main () : transaction page =
     newestQuestions <- queryX (SELECT * FROM question) prettyPrintQuestion;
+    askerOpt <- getName;
     return (
         Template.generic (Some "Forum") <xml>
 	  <div class={content}>
@@ -45,6 +59,11 @@ fun main () : transaction page =
 	    <form>
 	      <textbox {#Title} size=80 /><br />
 	      <textarea {#Body} rows=12 cols=80 /><br />
+	      Asking as:
+	        <select {#Asker}>
+		  <option>{[showAskerOpt askerOpt]}</option>
+		  <option>Anonymous</option>
+		</select>
 	      <submit action={ask} value="Ask" />
 	    </form>
 	  </div>
@@ -54,7 +73,7 @@ fun main () : transaction page =
 and ask submission =
     id <- nextval questionIdS;
     dml (INSERT INTO question (Id, Title, Body, Asker)
-	 VALUES ({[id]}, {[submission.Title]}, {[submission.Body]}, {[Some "test user"]}));
+	 VALUES ({[id]}, {[submission.Title]}, {[submission.Body]}, {[readAskerOpt submission.Asker]}));
     main ()
 
 end
diff --git a/forum/lib.urp b/forum/lib.urp
index 9e01f09..8f0ef71 100644
--- a/forum/lib.urp
+++ b/forum/lib.urp
@@ -1,2 +1,4 @@
+allow env SSL_CLIENT_S_DN_CN
+
 ../styles
 forum
-- 
cgit v1.2.3