Adding the old test user

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

1 files changed, 33 insertions, 0 deletions

diff --git a/user/HTC/lang.htc b/user/HTC/lang.htc
new file mode 100644
index 0000000..28e93fc
--- /dev/null
+++ b/user/HTC/lang.htc
@@ -0,0 +1,33 @@
+\clearance{}
+\const{cmd.def}{Browser default}
+\const{cmd.sv}{Svenska}
+\const{cmd.en}{English}
+\page{
+  \h1{\lang{Language control}{Spr{\aa}kv{\"a}ljare}}
+  [lang:="browser default";];
+  \for(i:=0)(i<\ncookie)(i+=1){\if(\cookie[i].name eq "LANG")(lang=\cookie[i].val;)}
+  <p>
+  \lang{Setting:}{Inst{\"a}llning:} \[[lang]\]
+  <p>
+  \lang{
+    If you're using a browser in which you can specify what language(s)
+    you prefer, you don't need to use this page.
+  }{
+    Om du anv{\"a}nder en webbl{\"a}sare i vilken du sj{\"a}lv
+    kan v{\"a}lja spr{\aa}k, beh{\"o}ver
+    du inte anv{\"a}nda den h{\"a}r sidan.
+  }
+  <p>
+  \form{
+    \button{\cmd.def}
+    \button{\cmd.sv}
+    \button{\cmd.en}
+  }
+}
+\onpost{
+  \switch{\T.cmd}
+  {\cmd.def}{\setcookie{LANG}{deleted}{1}}
+  {\cmd.en}{\setcookie{LANG}{en}}
+  {\cmd.sv}{\setcookie{LANG}{sv}}
+  \redirect{\referer}
+}