From 0427513af8d1cde8314ea08c56e95f76b31a84cd Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sat, 11 Dec 2010 12:30:46 +0100
Subject: [PATCH] WebApp: Require a very simple login...

---
 WebApp.st | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/WebApp.st b/WebApp.st
index 2605551..3b9c756 100644
--- a/WebApp.st
+++ b/WebApp.st
@@ -120,6 +120,13 @@ Iliad.ILWidget subclass: CallWidget [
 Iliad.ILSession subclass: GSMTestphoneSession [
     | user gsmConfig procedures |
 
+    isAuthenticated [
+        ^ user = 'toto-user'
+    ]
+
+    username: aUser [
+        user := aUser.
+    ]
 
     gsmConfig [ ^ gsmConfig ifNil: [gsmConfig := PhoneConfig new.  ]]
     procedures [ ^ procedures ifNil: [procedures := OrderedCollection new]]
@@ -162,6 +169,27 @@ Iliad.ILApplication subclass: GSMTestphoneApp [
             e build: self lu.
         ].
     ]
+
+    loginContents [
+        <category: 'building'>
+        ^[:e |
+            e form build: [:form |
+                form input action: [:val | self login: val].
+                form button text: 'Login']]
+    ]
+
+    login: aString [
+        <category: 'actions'>
+        self session username: aString.
+        self redirectToCurrentController
+    ]
+
+    dispatchOverride [
+        <category: 'dispatching'>
+        ^self session isAuthenticated
+            ifFalse: [self loginContents]
+            ifTrue:  [super dispatchOverride]
+    ]
 ]
 
 Eval [