\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}
  }
}