Adding the old test user

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

1 files changed, 91 insertions, 0 deletions

diff --git a/user/HTC/reguser.htc b/user/HTC/reguser.htc
new file mode 100644
index 0000000..0a5835c
--- /dev/null
+++ b/user/HTC/reguser.htc
@@ -0,0 +1,91 @@
+\clearance{ADM}
+\alias{RegUser}
+\setgroup{\user.group}
+\const{CLEARLIST}{\user.group HTC}
+\page{
+  \title{Register User as \group}
+
+  \switch{\T.RES}
+  {BEM}{
+    \font{color=red}{Bad email.}
+  }
+  {USEX}{
+    \font{color=red}{User already exist.}
+  }
+  {ERR}{
+    \font{color=red}{An error occured - user not added.}
+  }
+
+  <p>
+  \bf{NOTE:} Remember to use \bf{valid, fully qualified e-mail addresses!}.
+  Local network aliases will be added if applicable.
+  If you manage multiple groups, make sure you add this person with
+  the correct clearance!
+  <p>
+  A welcome message will be sent to the new user.
+
+  \form{\uri}{
+    \table{bgcolor=#dddddd}{
+      \tr{
+        \td{align=right}{E-mail:}
+        \td{colspan=3}{\input{EMAIL}{46}}
+      }
+      \tr{
+        \td{align=right}{Name:}
+        \td{colspan=3}{\input{NAME}{46}}
+      }
+      \tr{
+        \td{align=right}{URL:}
+        \td{colspan=3}{\input{w.URL}{46}}
+      }
+      \tr{
+        \td{align=right}{Group:}\td{\group}
+        \td{align=right}{Clearance:}\td{\CLEARLIST}
+      }
+      \tr{
+        \td{align=right}{Position:}\td{colspan=3}{\select.posit{w.POSIT}{Temp}}
+      }
+      \tr{
+        \td{align=right}{Phone:}\td{\input{w.EXT}{10}}
+        \td{align=right}{Room:}\td{\input{w.ROOM}{10}}
+      }
+      \tr{
+        \td{align=right}{Note:}\td{colspan=3}{\input{w.NOTE}{46}}
+      }
+    }
+    <p>
+    \button{Register this User}
+  }
+}
+\onpost{
+  \if(\T.EMAIL cnt "@" && \T.EMAIL cnt "."){
+    \if{\getuser{\T.EMAIL}}{
+      \redirect{\this?RES=USEX}
+    }{
+      \su{\newuser{\CLEARLIST}{\T.EMAIL}{\T.NAME}}{
+        \const{T.w.ID}{\user.id};
+        \db{PREFS}{\import{@}{T.w.}[LASTMOD=\now]}
+        \mail.user{Registration at \server.alias}{
+          \user.name, welcome to the \server.alias server at
+
+          \server/
+          
+          Your alias is: \user.alias
+          Your PIN-code is: \user.pin
+          
+          Please take a minute or two to go through the pages
+          and familiarize yourself with the login/logout procedure.
+
+          \server/LOGIN/?alias=\user.alias
+          
+          /Admin
+        }
+        \redirect{\pwd/admin.htc?ID=\user.id}
+      }{
+        \redirect{\this?RES=ERR}
+      }
+    }
+  }{
+    \redirect{\this?RES=BEM}
+  }
+}