Initial import of htcd system 1.0

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

16 files changed, 1847 insertions, 0 deletions

diff --git a/htc/dml.htc b/htc/dml.htc
new file mode 100644
index 0000000..9781952
--- /dev/null
+++ b/htc/dml.htc
@@ -0,0 +1,382 @@
+\include{system.htc}
+\include{html.htc}
+\const{dml.address}{nobody}
+\def{dml.init}{xxxx}{
+  %{listname}{group}{path}{http}
+  \global{dml.listname}{\1}
+  \global{dml.group}{\2}
+  \global{dml.path}{\3}
+  \global{dml.http}{\4}
+  \if(count \dml.group){\open{DML}{\dml.path/data/dml.hdb}{1}}
+}
+\def{dml.mailuser}{xx}{
+  \if{\user.id}{
+    \log{mail user: \1}
+    \mail{\dml.address}{}{\user.email}{DML Server}{\now}{\1}{text/plain}{\2}
+  }
+}
+\def{dml.dfs}{xr}{
+  \find.rec{\1}{
+    \2;
+    \query(PARENT==\1){
+      \dml.dfs(INDEX){\2}
+    }
+  }
+}
+\def{dml.bfs}{xr}{
+  [cur:="";bfs:=\1];
+  \while(count bfs){
+    [cur=first bfs];
+    \find.rec(cur){\2};
+    \query(PARENT==cur)(bfs=bfs+++INDEX);
+    [bfs=rest bfs];
+  }
+}
+\def{dml.ups}{xr}{
+  [cur:=\1];
+  \while(cur){
+    \find.rec(cur){\2;[cur=PARENT]}(cur=0)
+  }
+}
+\def{dml.watchers}{}{
+  \if(count \dml.group){
+    [
+      m.<-@;
+      break:=\dml.ups(m.INDEX){[BREAK] };
+      attime:=\if(m.PROTECT)(m.TIME){\now};
+      people:=\db{USERS}{\query(\allowed{\dml.group}(attime)){[UID] }}
+    ];
+    [people---break];
+  }
+}
+\def{dml.resubj}{x}{
+  [tmp:=first \1];\if(tmp nen "re" && tmp nen "re:"){Re: \1}{\1}
+}
+\def{dml.opennode}{x}{
+  \db{DML}{
+    \dml.ups{\1}(BREAK=BREAK---\user.id);
+    \dml.confirm{Opening \dml.listname\[\1\]};
+  }
+}
+\def{dml.closenode}{x}{
+  \db{DML}{
+    \find.rec{\1}{
+      [BREAK=BREAK|||\user.id];
+      \dml.confirm{Closing \dml.listname\[\1\]};
+    }
+  }
+}
+\def{dml.addnode}{x}{
+  %(node)    - add to this node
+  %T.from    - mail address
+  %T.reply   - reply address
+  %T.name    - user name
+  %T.subject - subject
+  %T.mime    - MIME type
+  %T.body    - message
+  %T.parts   - attachments
+  %T.mime[i] - attachment MIME type
+  %T.body[i] - attachment body
+  %RETURN    - node number
+  \db{DML}{
+    [
+      t.TIME:=\now;
+      t.PARENT:=\1;
+      t.AUTHOR:=\user.id;
+      t.MIME:=\T.mime;
+      t.SUBJECT:=\T.subject;
+      t.BODY:=\T.body;
+      t.INDEX:=\lastkey+1;
+      t.PROTECT:=1;
+      @<-t.;
+    ];
+    \log{dml: adding \dml.listname\[[INDEX]\]};
+    [t.INDEX];
+    \for(i:=0)(i<\T.parts)(i+=1){
+      [file:="A"++INDEX++"_"++\filesafe{\T.body[i]}];
+      \log{dml: uploading \dml.listname\[[file]\]};
+      \save{\dml.path/attach/[file]}{T.body[i]}{385};
+      [ATTACH=ATTACH|||file];
+    }
+  }
+}
+\def{dml.footer}{x}{
+  \if(\1 eq "text/html"){<hr>}{----------------------------------------------}
+  Help: send email to \dml.address with subject 'help \dml.listname'
+}
+\def{dml.quickguide}{}{
+  QUICK GUIDE
+
+  Mailing-lists on this server (\dml.address):
+
+  \getlists;[ex:=\dml.listname]
+
+  Mails received from the server ALWAYS starts with the listname
+  enclosed in stars (*). For example,
+
+  *[ex]\[7\]* hello world
+
+  means you've received a message from the list '[ex]' with
+  subject 'hello world'. The message is identified by its
+  message number, in this case 7.
+
+  EXAMPLES
+
+  To post a new message on '[ex]' with subject 'hello world',
+  mail to \dml.address with subject
+
+  new [ex] hello world
+
+  To post a new message on a particular message number, e.g. 7,
+  mail to \dml.address with subject
+
+  new [ex]\[7\] hello world
+
+  Note that message number 1 is the message root, and is the same
+  as issuing new without the \[\].
+
+  To reply to a message from the list, use 'reply' in your mailing program,
+  but DO NOT REMOVE anything before the subject. The server will
+  insert the appropriate 'Re:'. For instance, replying to the first example
+  above would normally give a reply-subject in your mailprogram like
+
+  Re: *[ex]\[7\]* hello world
+
+  which will be sent from the server as
+
+  *[ex]\[n\]* Re: hello world
+
+  where n is some new number assigned to your message.
+}
+\def{dml.message}{}{
+  HELP ON USAGE OF THE *\dml.listname* MAILING LIST AT \dml.address.
+
+  The address handles multiple mailinglists, and takes commands on the form:
+  
+  <cmd> <list>\[<node>\] <subject>
+  or
+  <cmd> *<list>\[<node>\]* <subject>
+  
+  where <cmd> is a command, <list> is a mailinglist,
+  <node> is a message number, and <subject> is the subject
+  line. The brackets \[\] should however be there as is.
+
+  Mailing-lists on this server (\dml.address):
+
+  \getlists
+  
+  You are \user.name, and your user name at \dml.address
+  is \user.email. You may have clearance to several of
+  the lists above.
+  \if(\dml.listname eq "demo"){
+    \n;
+    This is a demo mailing list and will not work to send mails to.
+    You will need to know the name of a list to which you belong.
+  }
+  Commands are not case sensitive. Available commands <cmd> are:
+  
+  HELP \dml.listname
+  
+  Displays this message.
+  
+  WHO \dml.listname\[<node>\]
+  
+  Retrieve which people are registered at the list.
+  If a node number is given, it tells which people
+  will receive a new message from that node.
+  Note that this command may be restricted on some lists.
+  
+  SILENT \dml.listname\[<node>\]
+  
+  Adds a new message to message number <node> on \dml.listname,
+  without broadcasting.
+  
+  NEW \dml.listname\[<node>\] <subject>
+  
+  Adds a new message to message number <node> on \dml.listname,
+  and broadcasts to \dml.listname.
+  
+  REPLY \dml.listname\[<node>\] <subject>
+  
+  Replies to message number <node> on \dml.listname.
+  Possible acronyms are Re, Re:, Sv, Sv:.
+  Note that this command is issued when you do
+  a normal reply, whether it be on a swedish or
+  american mail program.
+  
+  OPEN \dml.listname\[<node>\]
+  
+  Opens a <node>. When a <node> is open, you recieve
+  broadcast messages descending from that <node>.
+  
+  CLOSE \dml.listname\[<node>\]
+  
+  Closes a <node>. When a <node> is closed, you do not
+  recieve the broadcast messages descending from that <node>.
+  The obvious usage of this command is to turn off
+  uninteresting of lengthy threads. Also, since everything
+  added to this node will pass unnoticed, it may be used
+  to structure e.q. news in topics, together with the
+  SILENT command.
+  
+  MAIL \dml.listname\[<node>\]
+  
+  Retrieve message number <node> from \dml.listname.
+  This command may not serve certain messages on the basis of your
+  clearance and when you first entered the list.
+  
+  \if(\dml.listname ne "demo"){
+    To get additional help on how to use this system, how to
+    view or protect message trees, you may visit the
+    \dml.http/ web page. Of course the commands listed
+    above can be issued from there as well. You PIN code
+    at the server is \user.pin.
+  }
+}
+\def{dml.layout}{?xx}{
+  [mime:=\on.arg{0}{\0}(MIME)];
+  \2
+  \if(ATTACH ne ""){
+    \if(mime eq "text/html"){
+      <hr>
+      Attachments (PIN: \su{\1}{\user.pin})
+      \forall{i}(ATTACH){
+        \href{\dml.http/attach/[i]?alias=\su{\1}{\user.alias}}(i)\n;
+      }
+    }{
+      ----------------------------------------------
+      Attachments (PIN: \su{\1}{\user.pin})
+      \forall{i}(ATTACH){
+        \dml.http/attach/[i]?alias=\su{\1}{\user.alias}\n;
+      }
+    }
+  };
+  \dml.footer(mime)
+}
+\def{dml.error}{x}{
+  %T.cmd
+  %T.list
+  %T.node
+  %T.subject
+  \mail.root{mailer: \1}{
+    check <\T.cmd> \T.list\[\T.node\] \T.subject
+  };
+  \dml.mailuser{error}{
+    An error occurred while processing your command
+
+    \T.cmd \T.list\[\T.node\] \T.subject
+
+    \1
+    ----------------------------------------------
+    \dml.quickguide
+    \dml.footer(MIME)
+  }
+}
+\def{dml.help}{}{
+  \dml.mailuser{help \dml.listname}{
+    \dml.quickguide
+
+    ----------------------------------------------
+    \dml.message
+  }
+}
+\def{dml.who}{x}{
+  %(node) - mail this node to group
+  \db{DML}{
+    \find.rec{\1}{
+      \dml.mailuser{who \dml.listname}{
+        PEOPLE LISTENING TO \dml.listname;\[\1\] at \dml.address
+
+        \forall{i}{\dml.watchers}{
+          \su(i){\user.name <\user.email>}\n
+        }
+      }
+    }{
+      \dml.error{Could not find node \dml.listname;\[\1\]}
+    }
+  }
+}
+\def{dml.confirm}{x}{
+  %T.cmd
+  %T.list
+  %T.node
+  %T.subject
+  \dml.mailuser{\dml.listname: confirmation}{
+    Your command
+
+    \1
+
+    was processed sucessfully.
+  }
+}
+\def{dml.mail}{x}{
+  %(node) - mail this node to user
+  \db{DML}{
+    \find.rec{\1}{
+      [attime:=\if(PROTECT)(TIME){\now}];
+      \if{\user.allow{\dml.group}(attime)}{
+        \log{dml: mailing \dml.listname\[[INDEX]\] to (\user.id)};
+        \mail{\su(AUTHOR){\user.email}}{}{\user.email}{\su(AUTHOR){\user.name}}
+        (TIME){*\dml.listname\[[INDEX]\]* [SUBJECT]}(MIME){\dml.layout{\user.id}(BODY)};
+      }{
+        \log{dml: denying \dml.listname\[[INDEX]\] to (\user.id)};
+        \dml.mailuser{\dml.listname\[[INDEX]\]: not found}{
+          The node you requested could not be found
+
+          (or may be protected)
+        }
+      }
+    }{
+      \dml.error{Could not find node \dml.listname;\[\1\]}
+    }
+  }
+}
+\def{dml.broadcast}{x}{
+  %(node) - mail this node to group
+  \db{DML}{
+    \find.rec{\1}{
+      \if(!BROADCAST){
+        \log{dml: broadcasting \dml.listname\[[INDEX]\]}
+        [
+          femail:=\su(AUTHOR){\user.email};
+          fname:=\su(AUTHOR){\user.name};
+          fsubj:="*"++\dml.listname++"["++INDEX++"]* "++SUBJECT;
+          watchers:=\dml.watchers;
+          BROADCAST=count watchers;
+        ];
+        \forall{i}(watchers){
+          [
+            temail:=\su(i){\user.email};
+            talias:=\su(i){\user.alias};
+            tname:=\su(i){\user.name};
+            tpin:=\su(i){\user.pin};
+            tbody:=\replace(BODY){\recipient.email}(temail);
+            tbody=\replace(tbody){\recipient.alias}(talias);
+            tbody=\replace(tbody){\recipient.name}(tname);
+            tbody=\replace(tbody){\recipient.pin}(tpin);
+            tbody=\replace(tbody){\recipient.id}(i);
+          ];
+          \mail(femail){\dml.listname <\dml.address>}(temail)(fname)
+          (TIME)(fsubj)(MIME){\dml.layout(i)(tbody)};
+          \sleep(2);
+        }
+      }
+    }
+  }
+}
+\def{dml.addbroad}{x}{
+  [node:=\dml.addnode{\1}];
+  \if(node){
+    \dml.broadcast(node)
+  }{
+    \dml.error{Could not add to \dml.listname;\[\1\]}
+  }
+}
+\def{dml.addsilent}{x}{
+  [node:=\dml.addnode{\1}];
+  \if(node){
+    \dml.confirm{Added \dml.listname\[[node]\] to \dml.listname\[\1\]}
+  }{
+    \dml.error{Could not add to \dml.listname;\[\1\]}
+  }
+}
diff --git a/htc/dmled.htc b/htc/dmled.htc
new file mode 100644
index 0000000..61929fa
--- /dev/null
+++ b/htc/dmled.htc
@@ -0,0 +1,128 @@
+\include{dml.htc}
+\def{dmled.init}{xx}{
+  %{listname}{address}
+  \dml.init{\1}{\group}{\npwd}{\server\npwd};
+  \reconst{dml.address}{\2};
+  \sort{DML}{INDEX}{>}
+}
+\def{dmled.page}{}{
+  \cond{T.find}{}
+  \cond{T.msg}{0}
+  \title{Database Mailing List (\dml.listname)}
+  \db{DML}{
+    \form{
+      \table{width=100% bgcolor=#dddddd}{
+        \tr{valign=top}{
+          \td{
+            <select name=dummy size=6>
+            [tf:=\T.find];
+            \query(
+              (tf eq "" ||SUBJECT cntn tf||AUTHOR cntn tf||BODY cntn tf)&&
+              (!PROTECT||\user.allow(\dml.group)(TIME))
+            ){
+              \option{\if(INDEX==\T.msg){ selected }}(INDEX){
+                [INDEX] - \sub(SUBJECT){0}{30}
+                \su(AUTHOR){\[\user.name\]}; (\time2htc(TIME))
+                \if(count ATTACH){\[attach\]}
+              }
+            }
+            </select>
+          }
+          \td{
+            \button{View}<br>
+            \button{Reply}<br>
+            \button{New}
+          }
+        }
+        \tr{valign=top}{
+          \td{
+            \input{find}{60}{\T.find}
+          }
+          \td{
+            \button{Search}
+          }
+        }
+      }            
+    }
+    \find.rec{\T.msg}{
+      \if(!PROTECT||\user.allow(\dml.group)(TIME)){
+        \table{width=100% bgcolor=#dddddd}{
+          \tr{
+            \th{align=left}{[INDEX] - [SUBJECT]}
+            \td{align=right}{
+              \find.rec(PARENT){
+                \if(!PROTECT||\user.allow(\dml.group)(TIME)){
+                  \bf{Prev:}
+                  \href{\this?msg=[INDEX]}{[INDEX] - \sub(SUBJECT){0}{30}}
+                  \su(AUTHOR){\[\user.name\]}
+                }
+              }
+            }
+          }
+          \tr{
+            \td{align=left}{
+              \su(AUTHOR){
+                \user.name \lt;\href{mailto:\user.email}{\user.email};\gt
+              }
+            }
+            \td{align=right}{
+              \time2htc(TIME)
+            }
+          }
+          \tr{
+            \td{align=left colspan=2}{
+              \htmlize(BODY)
+            }
+          }
+          \if(count ATTACH){
+            \tr{
+              \td{align=left colspan=2}{
+                \forall{i}(ATTACH){
+                  \href{\npwd/attach/[i]}(i)\n
+                }
+              }
+            }
+          }
+          \tr{
+            \td{align=left colspan=2}{
+              [idx:=INDEX];
+              \query(PARENT==idx&&(!PROTECT||\user.allow(\dml.group)(TIME))){
+                \bf{Next:}
+                \href{\this?msg=[INDEX]}{[INDEX] - [SUBJECT]}
+                \su(AUTHOR){\[\user.name\]}
+                <br>
+              }
+            }
+          }
+        }
+      }
+    }
+  }
+}
+\def{dmled.onpost}{}{
+  \switch{\T.cmd}
+  {View}{
+    \redirect{\server\this?msg=\T.dummy}
+  }
+  {Reply}{
+    \redirect{\server\this}
+    \db{DML}{
+      \find.rec{\T.dummy}{
+        \if(!PROTECT||\user.allow(\dml.group)(TIME)){
+          \redirect{
+            mailto:\dml.address?subject=Reply \dml.listname\[[INDEX]\] [SUBJECT]
+          }
+        }
+      }
+    }
+  }
+  {New}{
+    [node:=\on.glob{T.dummy}{\T.dummy}{1}];
+    \redirect{mailto:\dml.address?subject=New \dml.listname\[[node]\] (no subject)}
+  }
+  {
+    \on.glob{T.find}{
+      \redirect{\server\this?find=\encode{\T.find}}
+    }
+  }
+}
diff --git a/htc/help.htc b/htc/help.htc
new file mode 100644
index 0000000..d35d210
--- /dev/null
+++ b/htc/help.htc
@@ -0,0 +1,31 @@
+\throw{help: OBSOLETED}
+\def{list.unary}{}{
+  \ops.htc{
+    \order{PRE1}{>}
+    \query(PRE1){
+      \left(OP){10}[DESC]
+    }
+  }
+}
+\def{list.binary}{}{
+  \ops.htc{
+    \order{PRE2}{>}
+    \query(PRE2){
+      \left(OP){10}[DESC]
+    }
+  }
+}
+\def{list.mod}{x}{
+  \tokens{
+    \query(MOD==\1){
+      [TOK]
+    }
+  }
+}
+\def{list.users}{x}{
+  \users{\1}{
+    \query{1}{
+      \left(ID){4} \left(NAME){38} \left(GID){3} \sub{\time2htc(LAST)}{4}{12} [LASTIN]
+    }
+  }
+}
diff --git a/htc/htcd.htc b/htc/htcd.htc
new file mode 100644
index 0000000..038bf89
--- /dev/null
+++ b/htc/htcd.htc
@@ -0,0 +1,4 @@
+\include{latex.htc}
+\include{html.htc}
+\include{http.htc}
+\include{dmled.htc}
diff --git a/htc/html.htc b/htc/html.htc
new file mode 100644
index 0000000..bd96870
--- /dev/null
+++ b/htc/html.htc
@@ -0,0 +1,152 @@
+\const{icons}{/icons}
+\const{space}{&#160;}
+\const{lt}{&#60;}
+\const{gt}{&#62;}
+\def{indent}{x}{\for(i:=0)(i<\1)(i+=1){\space}}
+\def{option}{?xx}{
+  %<options>{value}{desc}
+  <option\on.arg{0}{ \0} value=\cdata{\1}>
+  \2
+}
+\def{select}{xx*}{
+  %{name}{selected}<optname><optval>..
+  <select name=\1>
+  \if(\args>2){
+    \for(i:=3)(i<=\args)(i+=2){
+      <option\if(\arg(i) eq \2){ selected} value=\cdata{\arg(i)}>
+      \arg(i+1)
+    }
+  }{
+    \2
+  }
+  </select>
+}
+\def{button}{?x}{
+  %[option]{value}
+  <input type=submit name=\on.arg{0}{\0}{cmd} value=\cdata{\1}>
+}
+\def{variable}{xx}{
+  %{name}{value}  
+  <input type=hidden name=\1 value=\cdata{\2}>
+}
+\def{radio}{xx?}{
+  %{name}{value}[bool]
+  <input type=radio name=\1 value=\cdata{\2}\if{\0}{ checked}>
+}
+\def{target}{x}{}
+\def{href}{xx}{
+  %{uri}{name}
+  <a href=\cdata{\1}\target{\1}>\2</a>
+}
+\def{iref}{xx}{
+  %{uri}{image}
+  <a href=\cdata{\1}\target{\1}><img border=0 src=\cdata{\2}></a>
+}
+\def{form}{?x}{
+  %<uri>{body}
+  <form method=post action=/POST\on.arg{0}{\0}{\req.uri}\target{\0}>
+  \1
+  </form>
+}
+\def{form.multi}{?x}{
+  %{body}
+  <form method=post enctype=multipart/form-data action=/POST\on.arg{0}{\0}{\req.uri}\target{\0}>
+  \1
+  </form>
+}
+\def{input}{xx?}{
+  %{name}{size}[value]
+  <input type=text name=\1 size=\2\on.arg{0}{ value=\cdata{\0}}>
+}
+\def{passwd}{xx?}{
+  %{name}{size}[value]
+  <input type=password name=\1 size=\2\on.arg{0}{ value=\cdata{\0}}>
+}
+\def{check}{xx?}{
+  %{name}{value}[bool]
+  <input type=checkbox name=\1 value=\cdata{\2}\if{\0}{ checked}>
+}
+\def{file}{?xx}{
+  %{name}{size}[value]
+  <input type=file\on.arg{0}{ accept=\cdata{\0}} name=\1 size=\2>
+}
+\def{text}{xxx?}{
+  %{name}{row}{col}[value]
+  <textarea name=\1 rows=\2 cols=\3>
+  \mask.html{\4}
+  </textarea>
+}
+\def{image}{?x}{
+  %[options]{body}
+  <img\on.arg{0}{ \0} src=\cdata{\1}>
+}
+\def{table}{?x}{
+  %[options]{body}
+  <table\on.arg{0}{ \0}>
+  \1
+  </table>
+}
+\def{th}{?x}{
+  %[options]{body}
+  <th\on.arg{0}{ \0}>
+  \1
+  </th>
+}
+\def{tr}{?x}{
+  %[options]{body}
+  <tr\on.arg{0}{ \0}>
+  \1
+  </tr>
+}
+\def{td}{?x}{
+  %[options]{body}
+  <td\on.arg{0}{ \0}>\on.arg{1}{\1}{\space}</td>
+}
+\def{font}{?x}{
+  %[options]{body}
+  <font\on.arg{0}{ \0}>\1</font>
+}
+\def{ul}{?x}{
+  %[options]{body}
+  <ul\on.arg{0}{ \0}>
+  \1
+  </ul>
+}
+\def{li}{?x}{
+  %[options]{body}
+  <li\on.arg{0}{ \0}>\1</li>
+}
+\def{h1}{?x}{
+  %[options]{body}
+  <h1\on.arg{0}{ \0}>\1</h1>
+}
+\def{h2}{?x}{
+  %[options]{body}
+  <h2\on.arg{0}{ \0}>\1</h2>
+}
+\def{h3}{?x}{
+  %[options]{body}
+  <h3\on.arg{0}{ \0}>\1</h3>
+}
+\def{h4}{?x}{
+  %[options]{body}
+  <h4\on.arg{0}{ \0}>\1</h4>
+}
+\def{h5}{?x}{
+  %[options]{body}
+  <h5\on.arg{0}{ \0}>\1</h5>
+}
+\def{h6}{?x}{
+  %[options]{body}
+  <h6\on.arg{0}{ \0}>\1</h6>
+}
+\def{center}{?x}{
+  %[options]{body}
+  <center\on.arg{0}{ \0}>\1</center>
+}
+\def{body}{?x}{
+  %[options]{body}
+  <body\on.arg{0}{ \0}>
+  \1
+  </body>
+}
diff --git a/htc/http.htc b/htc/http.htc
new file mode 100644
index 0000000..c9a8557
--- /dev/null
+++ b/htc/http.htc
@@ -0,0 +1,61 @@
+\include{system.htc}
+\include{tree.htc}
+\include{layout.htc}
+\include{upload.htc}
+\include{posit.htc}
+\const{server}{http://\HOST\if(\port!=80){:\port}}
+\const{server.alias}(\HOST left ".")
+\const{server.admin}{\ADMIN}
+%
+% Some special stuff
+%
+\def{setcookie}{xx?}{
+  \resp.cookie{\1}{\2}{
+%    domain=\HOST\; path=/\if(\0){; expires=\time2http{\0}}
+% the domain spec above does not work on modern browsers such as firefox
+% if host is not a fully qualified dns name
+    path=/\if(\0){; expires=\time2http{\0}}
+  }
+}
+\def{redirect}{x}{
+  \if(\req.version gt "HTTP/1.0"){
+    \resp.status{\HTTP.303}
+  }{
+    \resp.status{\HTTP.302}
+  }
+  \if(\1 cnt ":"){
+    \resp.location{\1}
+  }{
+    \resp.location{\server\1}
+  }
+}
+\def{onget}{r}{
+  \if("GET HEAD" which \req.method){
+    \1
+  }
+}
+\def{onpost}{r}{
+  \if(\req.method eq "POST"){
+    \1
+  }
+}
+%
+% Cookie allowance
+%
+\def{cookie.allow}{x}{
+  [ok:=1;name:=first \1;val:=rest \1];
+  \if(name ne ""){
+    [ok=0];
+    \for(i:=0)(i<\ncookie)(i+=1){
+      \if(\cookie[i].name eq name && \cookie[i].val eq val)(ok=1);
+    }
+  };
+  [ok]
+}
+%
+% CRONTAB
+%
+\cron(211){\sync}
+\cron(120){\tree.update}
+\cron(300){\tempfile.update}
+
diff --git a/htc/latex.htc b/htc/latex.htc
new file mode 100644
index 0000000..5b962bb
--- /dev/null
+++ b/htc/latex.htc
@@ -0,0 +1,262 @@
+\def{symbol}{x}{<font face=symbol>\1</font>}
+
+\const{alpha}{\symbol{a}}
+\const{beta}{\symbol{b}}
+\const{gamma}{\symbol{g}}
+\const{delta}{\symbol{d}}
+\const{epsilon}{\symbol{e}}
+\const{varepsilon}{\symbol{e}}
+\const{zeta}{\symbol{z}}
+\const{eta}{\symbol{h}}
+\const{theta}{\symbol{q}}
+\const{vartheta}{\symbol{J}}
+\const{iota}{\symbol{i}}
+\const{kappa}{\symbol{k}}
+\const{lambda}{\symbol{l}}
+\const{mu}{\symbol{m}}
+\const{nu}{\symbol{n}}
+\const{xi}{\symbol{x}}  
+\const{omicron}{\symbol{o}}
+\const{pi}{\symbol{p}}
+\const{varpi}{\symbol{v}}
+\const{rho}{\symbol{r}}
+\const{varrho}{\symbol{r}}
+\const{sigma}{\symbol{s}}
+\const{varsigma}{\symbol{V}}
+\const{tau}{\symbol{t}}
+\const{upsilon}{\symbol{u}}
+\const{phi}{\symbol{f}}
+\const{varphi}{\symbol{j}}
+\const{chi}{\symbol{c}}
+\const{psi}{\symbol{y}}
+\const{omega}{\symbol{w}}
+\const{Gamma}{\symbol{G}}
+\const{Delta}{\symbol{D}}
+\const{Theta}{\symbol{Q}}
+\const{Lambda}{\symbol{L}}
+\const{Xi}{\symbol{X}}
+\const{Pi}{\symbol{P}}
+\const{Sigma}{\symbol{S}}
+\const{Upsilon}{\symbol{¡}}
+\const{Phi}{\symbol{F}}
+\const{Psi}{\symbol{Y}}
+\const{Omega}{\symbol{W}}
+\const{pm}{\symbol{±}}
+\const{times}{\symbol{´}}
+\const{div}{\symbol{¸}}
+\const{bullet}{\symbol{·}}
+\const{cdot}{\symbol{×}}
+\const{varplus}{\symbol{+}}
+\const{cap}{\symbol{Ç}}
+\const{cup}{\symbol{È}}
+\const{vee}{\symbol{Ù}}
+\const{wedge}{\symbol{Ú}}
+\const{varminus}{\symbol{-}}
+\const{diamond}{\symbol{à}}
+\const{oplus}{\symbol{Å}}
+\const{otimes}{\symbol{Ä}}
+\const{leq}{\symbol{£}}
+\const{subset}{\symbol{Ì}}
+\const{subseteq}{\symbol{Í}}
+\const{in}{\symbol{Î}}
+\const{notin}{\symbol{Ï}}
+\const{geq}{\symbol{³}}
+\const{supset}{\symbol{É}}
+\const{supseteq}{\symbol{Ê}}
+\const{equiv}{\symbol{º}}
+\const{sim}{\symbol{~}}
+\const{approx}{\symbol{»}}
+\const{cong}{\symbol{@}}
+\const{neq}{\symbol{¹}}
+\const{propto}{\symbol{µ}}
+\const{less}{\symbol{<}}
+\const{perp}{\symbol{^}}
+\const{mid}{\symbol{|}}
+\const{equal}{\symbol{=}}
+\const{greater}{\symbol{>}}
+\const{colon}{\symbol{:}}
+\const{semi}{\symbol{;}}
+\const{ldots}{\symbol{¼}}
+\const{leftarrow}{\symbol{¬}}
+\const{Leftarrow}{\symbol{Ü}}
+\const{rightarrow}{\symbol{®}}
+\const{Rightarrow}{\symbol{Þ}}
+\const{leftrightarrow}{\symbol{«}}
+\const{Leftrightarrow}{\symbol{Û}}
+\const{uparrow}{\symbol{¯}}
+\const{Uparrow}{\symbol{Ý}}
+\const{downarrow}{\symbol{­}}
+\const{Downarrow}{\symbol{ß}}
+\const{aleph}{\symbol{À}}
+\const{wp}{\symbol{Ã}}
+\const{Re}{\symbol{Â}}
+\const{Im}{\symbol{Á}}
+\const{prime}{\symbol{¢}}
+\const{doubleprime}{\symbol{²}}
+\const{emptyset}{\symbol{Æ}}
+\const{nabla}{\symbol{Ñ}}
+\const{surd}{\symbol{Ö}}
+\const{angle}{\symbol{Ð}}
+\const{deg}{\symbol{°}}
+\const{neg}{\symbol{Ø}}
+\const{partial}{\symbol{¶}}
+\const{infty}{\symbol{¥}}
+\const{clubsuit}{\symbol{§}}
+\const{diamondsuit}{\symbol{¨}}
+\const{heartsuit}{\symbol{©}}
+\const{spadesuit}{\symbol{ª}}
+\const{apple}{\symbol{ð}}
+\const{tm}{\symbol{Ô}}
+\const{vartm}{\symbol{ä}}
+\const{copyright}{\symbol{Ó}}
+\const{circledR}{\symbol{Ò}}
+\const{prod}{\symbol{Õ}}
+\const{int}{\symbol{ò}}
+\const{sum}{\symbol{å}}
+\const{ast}{*}
+\const{backslash}{
+  \
+}
+\const{setminus}{
+  \
+}
+
+\const{`A}{À}
+\const{'A}{Á}
+\const{^A}{Â}
+\const{~A}{Ã}
+\const{"A}{Ä}
+\const{AA}{Å}
+\const{AE}{Æ}
+\const{`E}{È}
+\const{'E}{É}
+\const{^E}{Ê}
+\const{"E}{Ë}
+\const{`I}{Ì}
+\const{'I}{Í}
+\const{^I}{Î}
+\const{"I}{Ï}
+\const{'N}{Ñ}
+\const{`O}{Ò}
+\const{'O}{Ó}
+\const{^O}{Ô}
+\const{~O}{Õ}
+\const{"O}{Ö}
+\const{OO}{Ø}
+\const{`U}{Ù}
+\const{'U}{Ú}
+\const{^U}{Û}
+\const{"U}{Ü}
+\const{'Y}{Ý}
+\const{`a}{à}
+\const{'a}{á}
+\const{^a}{â}
+\const{~a}{ã}
+\const{"a}{ä}
+\const{aa}{å}
+\const{ae}{æ}
+\const{cc}{ç}
+\const{`e}{è}
+\const{'e}{é}
+\const{^e}{ê}
+\const{"e}{ë}
+\const{`i}{ì}
+\const{'i}{í}
+\const{^i}{î}
+\const{"i}{ï}
+\const{~n}{ñ}
+\const{`o}{ò}
+\const{'o}{ó}
+\const{^o}{ô}
+\const{~o}{õ}
+\const{"o}{ö}
+\const{oo}{ø}
+\const{`u}{ù}
+\const{'u}{ú}
+\const{^u}{û}
+\const{"u}{ü}
+\const{'y}{ý}
+\const{"y}{ÿ}
+\const{
+  \
+}{
+  <br>
+}
+\const{,}{&#160;}
+\const{!}{}
+\const{para}{<p>\n}
+
+\const{newpage}{\n}
+\const{det}{det}
+\const{ln}{ln}
+\const{lim}{lim}
+%\const{tilde}{~}
+\const{tilde}{}
+\const{protect}{}
+
+\def{emph}{x}{<em>\1</em>}
+\def{title}{x}{<h1>\1</h1>}
+\def{chapter}{x}{<h2>\1</h2>}
+\def{section}{x}{<h3>\1</h3>}
+\def{subsection}{x}{<h4>\1</h4>}
+\def{subsubsection}{x}{<h5>\1</h5>}
+\def{itemize}{x}{
+  <ul>
+  \1
+  </ul>
+}
+\def{item}{x}{<li>\1</li>}
+\const{draft}{}
+\const{maketitle}{}
+
+\global{LATEX.CITEN}{1}
+\def{cite}{x}{
+  \global{LATEX.CITECUR}(
+    \forall{ii}{\1}{ ,}{
+      \LATEX.CITEN,\on.glob{LATEX.CITE[ii]}{}{
+        \global{LATEX.CITE[ii]}{\LATEX.CITEN}\global{LATEX.CITEN}(\LATEX.CITEN+1)
+      }
+    }
+    rleft ","
+  );
+  $^\LATEX.CITECUR$
+}
+\def{onlinecite}{x}{\cite{\1}}
+\def{bibitem}{x}{\[\LATEX.CITE[\1]\]}
+
+\def{author}{x}{}
+\def{address}{x}{}
+\def{pacs}{x}{}
+\def{ref}{x}{}
+\def{caption}{x}{}
+\def{abstract}{x}{\bf \1}
+\def{label}{x}{}
+\def{frac}{xx}{$\1/\2$}
+
+\def{document}{r}{
+  \page{
+    \1
+  }
+}
+\def{array}{x}{
+  \table{
+    \forall{ii}{\1}{<br>}{
+      \tr{
+        \forall{jj}(ii){&}{
+          \td(jj)
+        }
+      }
+    }
+  }
+}
+\def{ltable}{x}{
+  \table{
+    \forall{ii}{\1}{<br>}{
+      \tr{
+        \forall{jj}(ii){&}{
+          \td(jj)
+        }
+      }
+    }
+  }
+}
diff --git a/htc/layout.htc b/htc/layout.htc
new file mode 100644
index 0000000..b3e7b44
--- /dev/null
+++ b/htc/layout.htc
@@ -0,0 +1,348 @@
+\const{HEIGHT.head}{40}
+\const{HEIGHT.foot}{32}
+\const{COLOR.private}{#ffffcc}
+\const{COLOR.public}{#ffffff}
+\const{COLOR.special}{#cccccc}
+\const{COLOR.grayed}{#999999}
+\def{page}{r}{
+  \if("GET HEAD" which \req.method){
+    \output{
+      \body{bgcolor=\if(\group ne ""){\COLOR.private}{\COLOR.public}}{
+        \1
+      }
+    }
+  }
+}
+\def{show.head}{}{
+  <head>
+  <title>\server.alias\uri</title>
+  </head>
+}
+\def{show.page}{}{
+  \nif(\req.useragent cnt "Mozilla"){\resp.cont.type.charset{}};
+  \switch(stat.MIME)
+  {text/x-htc}{
+    \if(stat.MOD&1){
+      \parse.public(stat.REFER)
+    }{
+      \if(stat.MOD&8){
+        \parse.private(stat.REFER)
+      }{
+        \parse(stat.REFER)
+      }
+    }
+  }
+  {text/x-htx}{
+    \show.latex(stat.REFER)
+  }
+  {text/html}{
+    \resp.cont.type(stat.MIME);
+    \output{\minilang{\load(stat.REFER)}}
+  }
+}
+\def{show.rawpage}{}{
+  \resp.cont.type(stat.MIME);
+  \output{\load(stat.REFER)}
+}
+\def{show.srcpage}{}{
+  \resp.cont.type{text/plain}
+  \nif(\req.useragent cnt "Mozilla"){\resp.cont.type.charset{}};
+  \output{
+    \switch(stat.MIME)
+    {text/x-htc}{
+      \%/SRC\uri HTC/1.2 Last modified \time2http(stat.LASTMOD)
+    }
+    {text/html}{
+      \%/SRC\uri HTML Last modified \time2http(stat.LASTMOD)
+    }
+    {text/x-htx}{
+      \%/SRC\uri HTX/1.2 (LaTeX) Last modified \time2http(stat.LASTMOD)
+    }
+    \load(stat.REFER)
+  }
+}
+\def{show.banner}{}{
+  \ldef{shist}{x}{
+    \find.rec{\1}{
+      \if(count BANNER){
+        [ban:=rest BANNER]\run.local{ban}
+      }{
+        \if(count PARENT){\shist(PARENT)}
+      }
+    }
+  };
+  \db{TREE}{\shist(stat.URI rleftand "/")}
+}
+\def{calc.height}{}{
+  \ldef{chist}{x}{
+    \find.rec{\1}{
+      \if(count BANNER)(first BANNER){\if(count PARENT){\chist(PARENT)}{\HEIGHT.head}}
+    }{
+      \HEIGHT.head
+    }
+  };
+  \db{TREE}{\chist(stat.URI rleftand "/")}
+}
+\def{page.header}{}{
+  \ldef{hist}{x}{
+    \find.rec{\1}{
+      \if(count PARENT){\hist(PARENT)};
+      \if(URI eq uri){\run.local{ALIAS}}{\href{\andlang;[URI]}{\run.local{ALIAS}}}>
+    }
+  }
+  \page{
+    \show.banner
+    \table{width=100% border=0 cellspacing=0 cellpadding=0 bgcolor=\COLOR.special}{
+      \tr{valign=top align=left}{
+        \td{width=60%}{
+          \font{size=3}{
+            [uri:=stat.URI;dir:=uri rleftand "/";n:=0];
+            \db{TREE}{
+              \hist(dir);
+              \query(PARENT eq dir && URI ne "/"){
+                \if{\user.allow(X.CLEAR){\now}}{
+                  \if(n){|}[n+=1]\if(URI eq uri){
+                    \run.local{ALIAS}
+                  }{
+                    \href{\andlang;[URI]}{\run.local{ALIAS}}
+                  }
+                }
+              }
+            }\space;
+          }
+        };
+        \td{width=40% align=right}{
+          \font{size=3}{
+            \if{\user.id}{\user.name}{\lang{Anonymous}{Anonym}}, \time2htc{\now}
+          }
+        }
+      }
+    }
+  }
+}
+\def{show.icons}{}{}
+\def{page.footer}{}{
+  \output{
+    \body{bgcolor=\COLOR.special}{
+      \table{width=100% border=0 cellspacing=0 cellpadding=0 bgcolor=\COLOR.special}{
+        \td{valign=top align=left}{
+          \iref{mailto:\server.admin}{\icons/mail.gif}
+          \if{\user.id}{
+            \iref{/LOGOUT\uri\andarg}{\icons/logout.gif}
+          }{
+            \iref{/LOGIN\uri\andarg}{\icons/login.gif}
+          }
+          \on.clear{ADM}{
+            \iref{\andlang/HTC/admin.htc}{\icons/adm.gif}
+          }
+          \iref{
+            \lang{/sv}{/en}[stat.URI]
+          }{
+            \icons/lang.gif
+          }
+          \if{\user.id}{
+            \iref{\andlang/HTC/prefs.htc}{\icons/prefs.gif}
+          }
+          \iref{/SRC[stat.URI]}{\icons/source.gif}
+          [acc:=\upload.clear(stat.URI)]\if((first acc) ne "ROOT"){
+            \on.clear(acc){
+              \iref{\server/RAW[stat.URI]}{\icons/transfer.gif}
+            }
+          }
+          \show.icons;
+        }
+        \td{valign=center align=right}{
+          HTCd/1.2 \[\lang{en}{sv}\] \time2htc(stat.LASTMOD)
+        }
+      }
+    }
+  }
+}
+\redef{show.register}{}{
+  \lang{
+    If your are not a registered user, register first.
+  }{
+    Om du inte {\"a}r en registrerad anv{\"a}ndare,
+    registrera dig f{\"o}rst.
+  }
+}
+\def{page.login}{}{
+  \cond{T.alias}{}
+  \page{
+    \h1{\server.alias Login}
+    \if{\user.id}{
+      \lang{
+        You are logged in as \user.name; (\user.alias).
+      }{
+        Du {\"a}r inloggad som \user.name; (\user.alias).
+      }
+      <p>
+      \href{\referer}{\lang{Continue}{Forts{\"a}tt}}
+    }{
+      \lang{
+        This server contains information only accessible to registered users.
+        Each registered user receives a user ID and a PIN code.
+      }{
+        Den h{\"a}r servern inneh{\aa}ller information som bara {\"a}r
+        tillg{\"a}nglig f{\"o}r registrerade anv{\"a}ndare.
+        Varje registrerad anv{\"a}ndare erh{\aa}ller ett anv{\"a}ndar-ID
+        och en PIN-kod.
+      };
+      <p>
+      \show.register;
+      <p>
+      \lang{
+        To login, enter your email address and PIN code below.
+        \it{DO NOT} enter your unix password!
+      }{
+        F{\"o}r att logga in, fyll i din epostadress och PIN kod nedan.
+        An{\"a}nd \it{EJ} ditt unix passord!
+      };
+      [remcookie:=0;email:=\T.alias];
+      \for(i:=0)(i<\ncookie)(i+=1){
+        \if(\cookie[i].name eq "RESEND"){
+          [remcookie=1;email=\cookie[i].val];
+          <p>
+          \font{color=red}{
+            \lang{E-mail has been sent to }{E-post har skickats till }[email]
+            (\lang{provided user exist}{f{\"o}rutsatt anv{\"a}ndaren existerar})
+          }
+        }
+      };
+      <p>
+      \form{
+        \variable{remcookie}(remcookie);
+        \variable{ref}{\referer};
+        \table{
+          \tr{
+            \td{\lang{E-mail (or alias)}{E-post (eller alias)}:}
+            \td{\input{email}{28}(email)}
+          };
+          \tr{
+            \td{PIN:}
+            \td{
+              \passwd{pin}{6}
+            }
+          };
+          \tr{
+            \td{colspan=2}{
+              \check{T.keep}{\endtime}
+              \lang{
+                Keep me logged in by storing to disk
+              }{
+                H{\aa}ll mig inloggad genom att spara till disk
+              };
+            }
+          };
+          \tr{
+            \td{colspan=2}{
+              \button{Login}
+              \button{Forgot my PIN code}
+              \button{Assign a new (4 digit) PIN code}
+            }
+          }
+        }
+      }
+      \h3{\lang{Nota bene}{Observera}}
+      <p>
+      \li{
+        \lang{
+          You must allow a COOKIE containing your user ID and
+          PIN code to be set. If you normally do not allow cookies,
+          you need to make an exception in this case, or by some other
+          means arrange for the cookie to be set.
+          If you don't know what a cookie is, you can probably ignore
+          this paragraph.
+        }{
+          Du m{\aa}ste till{\aa}ta s{\"a}ttning av en COOKIE med
+          ditt anv{\"a}ndar-ID och PIN-kod. Om du normalt inte till{\aa}ter
+          "kakor", m{\aa}ste du antingen g{\"o}ra ett undantag i det
+          h{\"a}r fallet, eller p{\aa} n{\aa}got annat s{\"a}tt
+          se till att kakan blir satt p{\aa} r{\"a}tt s{\"a}tt.
+          Vet du inte vad en kaka {\"a}r, kan du troligtvis bortse
+          fr{\aa}n denna paragraf.
+        }
+      };
+      <p>
+      \li{
+        \lang{
+          If logging in from a 'shared' browser, don't forget to logout
+          properly when you're done. Otherwise, the person after you may
+          enter the server as you.
+        }{
+          Om du loggar in fr{\aa}n en 'delad' webbl{\"a}sare, gl{\"o}m
+          inte att logga ut dig ordentligt. Annars kan n{\"a}sta person
+          komma in p{\aa} servern som dig.
+        }
+      }
+    }
+  };
+  \onpost{
+    \cond{T.keep}{0};
+    \cond{T.uid}{\getuser{\T.email}};
+    \switch(first \T.cmd)
+    {Login}{
+      \log{SetID \[\T.uid.\T.pin\] (\T.keep)};
+      \setcookie{ID}{\T.uid.\T.pin}{\T.keep};
+      \if{\T.remcookie}{\setcookie{RESEND}{deleted}{1}};
+      \redirect{\T.ref};
+    }
+    {Forgot}{
+      \su{\T.uid}{
+        \mail.user{PIN code}{
+          Your PIN code is \user.pin.
+          
+          /Admin
+        }
+      };
+      \if(\T.email ne ""){\setcookie{RESEND}{\T.email}};
+      \redirect{\server\this\andarg};
+    }
+    {Assign}{
+      \su{\T.uid}{
+        \if(\user.pin eq \T.pin){
+          \user.pin.set{\random{4}}\user.update;
+          \mail.user{New PIN code}{
+            Your new PIN code is \user.pin.
+            
+            /Admin
+          }
+        }
+      };
+      \if(\T.email ne ""){\setcookie{RESEND}{\T.email}};
+      \redirect{\server\this\andarg};
+    }{
+      Don't understand "\T.cmd"
+    }
+  }
+}
+\def{page.logout}{}{
+  \setcookie{ID}{deleted}{1};
+  \resp.cont.type.charset{};
+  \redirect{\server/}
+}
+\def{layout}{}{
+  \if{\FRAMES}{
+    [cacheok=1;stat.X.CACHE=\days{14}];
+    \output{
+      \show.head;
+      <frameset rows="\calc.height,*,\HEIGHT.foot" border=0 scrolling=no onload="\killframes">
+      <frame scrolling=no name=head align=top src="/HEAD\uri\andarg">
+      <frame scrolling=auto name=body align=left src="/BODY\uri\andarg">
+      <frame scrolling=no name=foot align=bottom src="/FOOT\uri\andarg">
+      </frameset>
+    }
+  }{
+    \resp.cont.type.charset{};
+    \output{\show.head};
+    \page.header;
+    \output{<br><br>};
+    \show.page;
+    \output{<br><br>};
+    \page.footer
+  }
+}
+\def{show.latex}{x}{
+  \parse.public{\1}
+}
+
diff --git a/htc/mailer.htc b/htc/mailer.htc
new file mode 100644
index 0000000..65f0d98
--- /dev/null
+++ b/htc/mailer.htc
@@ -0,0 +1,53 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% maild Mailinglist
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\setuser{\getuser{\T.from}}
+\nif(count \T.node){\reconst{T.node}{1}}
+\dml.init{demo}{}{}{}
+\if{\user.id}{
+  \setlist{\T.list};
+  \if(count \dml.group){
+    \on.clear{\dml.group}{
+      \switch{\T.cmd}
+      {help}{
+        \dml.help
+      }
+      {who}{
+        \dml.who{\T.node}
+      }
+      {silent}{
+        \dml.addsilent{\T.node}
+      }
+      {new}{
+        \dml.addbroad{\T.node}
+      }
+      {reply}{
+        \reconst{T.subject}{\dml.resubj{\T.subject}}
+        \dml.addbroad{\T.node}
+      }
+      {open}{
+        \dml.opennode{\T.node}
+      }
+      {close}{
+        \dml.closenode{\T.node}
+      }
+      {mail}{
+        \dml.mail{\T.node}
+      }
+      {
+        \dml.error{\T.list: Bad command (\T.cmd)}
+      }
+    }{
+      \dml.error{\T.list: User denied (\T.from)}
+    }
+  }{
+    \if(\T.cmd eq "help"){
+      \dml.help
+   }{
+      \dml.error{\T.list: Not found}
+    }
+  }
+}{
+  \dml.error{\HOST: Could not find user \T.from}
+}
+
diff --git a/htc/posit.htc b/htc/posit.htc
new file mode 100644
index 0000000..af92038
--- /dev/null
+++ b/htc/posit.htc
@@ -0,0 +1,23 @@
+\def{select.posit}{xx}{
+  \select
+  {\1}{\2}
+  {Temp}{Temporary}
+  {ProfEmerit}{Professor Emeritus}
+  {Prof}{Professor}
+  {AssocProf}{Associate Professor}
+  {AssistProf}{Assistant Professor}
+  {ResAssoc}{Research Associate}
+  {Postdoc}{Post-doc}
+  {Doc}{Docent}
+  {PhD}{PhD}
+  {MD}{MD}
+  {Sec}{Secretary}
+  {Grad}{Graduate Student}
+  {Lic}{Licentiate}
+  {Master}{Master of Science}
+  {Diploma}{Diploma worker}
+  {Stud}{Student}
+  {Psi}{Psychologist}
+  {Prog}{Programmer}
+  {Other}{Other}
+}
diff --git a/htc/prefs.hdb b/htc/prefs.hdb
new file mode 100644
index 0000000..15cf68c
--- /dev/null
+++ b/htc/prefs.hdb
diff --git a/htc/server.htc b/htc/server.htc
new file mode 100644
index 0000000..4060556
--- /dev/null
+++ b/htc/server.htc
@@ -0,0 +1,321 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% HTCd/1.2 Server (H. Rydberg, 2001)
+% Supports methods HEAD, GET, PUT, POST, DELETE
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Useragent setting
+%
+\if(count \req.accept.lang){\setlang{\req.accept.lang}}
+\const{FRAMES}(int(\req.useragent past "Mozilla/")>=2);
+\if{\FRAMES}{
+  \redef{target}{x}{
+    \if(
+      (\1 cnt "//") ||
+      ( (\sub{\1}{0}{1} eq "/") && ("HEAD BODY FOOT" which (\1 past "/" left "/"))==0)
+    ){ target=_top}
+  }
+}
+\const{killframes}{
+  \if(int(\req.useragent past "Mozilla/")>2){
+    if(self!=top) top.location.replace(self.location)}{
+      if(self!=top) top.location=self.location}}
+%
+% Set userid and other cookies
+% Handle errors directly
+%
+[userok:=1;];
+\def{statlog}{x}{\resp.status{\HTTP.[\1]}}
+\for(i:=0)(i<\ncookie)(i+=1){
+  \switch{\cookie[i].name}
+  {LANG}{
+    \setlang{\cookie[i].val}
+  }
+  {FRAMES}{
+    \reconst{FRAMES}(int \cookie[i].val);
+  }
+  {AUTH}{
+    %MIGRATION to HTCd/1.1
+    %Just silently remove the cookie and continue
+    \resp.cookie{AUTH}{deleted}{path=/; expires=\time2http{1}}
+  }
+  {ID}{
+    [uid:=\cookie[i].val left ".";pin:=\cookie[i].val past "."];
+    \setuser(uid);
+    [MAXFAIL:=\on.clear{EXPERT}{1}{3}];
+    \if(\user.id && \user.pin eq pin){
+      \if(\user.fail>0){
+        \if(\user.fail>=MAXFAIL){
+          \statlog{409}[userok=0;];
+          \resp.cont.type.charset{};
+          \output{
+            \body{
+              \h3{Login \lang{Failure}{fel}}
+              \lang{
+                There has been too many bad logins.
+                Please contact the \href{mailto:\ADMIN}{Server Administrator}.
+              }{
+                F{\"o}r m{\aa}nga login-fel har gjorts.
+                Var v{\"a}nlig kontakta \href{mailto:\ADMIN}{Serveradministrat{\"o}ren}.
+              }
+            }
+          }
+          \setcookie{ID}{deleted}{1}
+        }{
+          \mail.user{LOGIN ALERT}{
+            \lang{
+              There has been (\user.fail) PIN failures
+            }{
+              Ett antal (\user.fail) PIN fel har gjorts.
+            }
+            
+            \user.lastin; (\gethost{\user.lastin})
+            \time2htc{\user.last}
+          }
+          \user.fail.set{0}\user.update;
+        }
+      }{
+        \if(\user.lastin ne \remote.address){
+          \on.clear{EXPERT}{
+            \mail.user{HOST ALERT}{
+              \lang{
+                A change of access address has occured.
+              }{
+                Ett byte av access-adress har intr{\"a}ffat.
+              }
+              
+              \lang{Current access:}{Nuvarande access:}
+              \remote.address; (\remote.name)
+              \time2htc{\now}
+              
+              \lang{Last access:}{Senaste access:}
+              \user.lastin; (\gethost{\user.lastin})
+              \time2htc{\user.last}
+            }
+          }{
+            \log{HOST ALERT \user.lastin -> \remote.address}
+          }
+        }
+      }
+    }{
+      \if{\user.id}{
+        \user.fail.set(\user.fail+1)\user.update;
+        \if(\user.fail==MAXFAIL){
+          \mail.root{PIN failure}{
+            PIN failure (\user.fail) for \user.id: \user.name <\user.email>
+            From: \remote.address:\remote.port; (\remote.name)
+          }
+        }
+      }
+      \statlog{409}[userok=0;];
+      \resp.cont.type.charset{};
+      \output{
+        \body{
+          \h3{\lang{Bad User}{Felaktig anv{\"a}ndare}}
+          \lang{
+            Please check your user credentials and press the Back button.
+          }{
+            Var v{\"a}nlig kontrollera din anv{\"a}ndarinformation
+            och tryck p{\aa} Tillbaka-knappen.
+          }
+        }
+      }
+      \setcookie{ID}{deleted}{1}
+    }
+  }
+}
+%
+% At this point, user is set.
+%
+\if(\user.id){\user.last.set{\now}\user.lastin.set{\remote.address}\user.update}
+%
+% userok tells whether we should continue or not.
+%
+\if(userok){
+  %
+  % Start by checking special URIs
+  %
+  [muri:=\req.uri;sroute:=muri past "/" left "/"];
+  \if(sroute eq "POST")(muri=muri past "/" past sroute;sroute=muri past "/" left "/");
+  \const{this}(muri);
+  \if("LOGIN LOGOUT" which sroute)(muri=muri past "/" past sroute)(sroute="");
+  \const{referer}{\server;[muri]\andarg}
+  [route:=muri past "/" left "/";];
+  \if("SRC RAW HEAD FOOT BODY" which route)(muri=muri past "/" past route)(route="");
+  \seturi(muri);
+  [lroute:=muri past "/" left "/";];
+  \if("en sv" which lroute){[muri=muri past "/" past lroute]\setlang(lroute)}(lroute="");
+  \const{andlang}{/\lang{en}{sv}}
+  %
+  % sroute ->  LOGIN|LOGOUT|none
+  % route ->   SRC|RAW|HEAD|FOOT|BODY|none
+  % lroute ->  en|sv|none
+  % this ->    req.uri without POST
+  % referer -> complete URL (without POST|LOGIN|LOGOUT)
+  % uri ->     directory URI (without SRC|RAW|HEAD|FOOT|BODY)
+  % andlang -> /[lang]
+  % muri ->    mappable uri (without en|sv)
+  %
+  % Check method and dispatch
+  %
+  \if(\req.method eq "PUT" || \req.method eq "DELETE"){
+    %
+    % PUT and DELETE treated together
+    %
+    [wclear:=\upload.clear(muri)];
+    \if((count sroute)||(count lroute)|| !("SRC RAW" which route)||(wclear eq "ROOT")){
+      \statlog{405};
+      \resp.cont.type.charset{};
+      \output{
+        \body{
+          \h3{\lang{Method not allowed}{Metoden ej till{\aa}ten}}
+          \lang{
+            \req.method is not allowed here.
+          }{
+            \req.method; {\"a}r ej till{\aa}ten h{\"a}r.
+          }
+          <p>
+          \href{\server}{\lang{Home}{Hem}}
+        }
+      }
+    }{
+      \if{\user.allow(wclear){\now}}{
+        \statlog{200};
+        \if(\req.method eq "DELETE"){\upload.delete(muri)}{\upload.put(muri)}
+      }{
+        \statlog{409}
+        \resp.cont.type.charset{};
+        \output{
+          \body{
+            \h3{\lang{Conflict}{Konflikt}}
+            \lang{
+              The request could not be granted.
+            }{
+              Kommandot kunde ej utf{\"o}ras.
+            }
+            <p>
+            \href{\server}{\lang{Home}{Hem}}
+          }
+        }
+      }
+    }
+  }{
+    %
+    % HEAD, GET and POST treated together
+    %
+    [fallow:=0;uallow:=0;rallow:=0;callow:=0];
+    \switch(sroute){LOGIN}{\page.login}{LOGOUT}{\page.logout}{
+      \staturi(muri){
+        \if(stat.URI ne muri){
+          [canonized:={\server\andlang;[stat.URI]\andarg}];
+          \resp.status{\HTTP.301};
+          \resp.location(canonized);
+          \resp.cont.type.charset{};
+          \output{\href(canonized)(canonized)}
+        }{
+          \if(count stat.ALIAS){\db{TREE}(@<-stat.)};
+          \setgroup(first stat.X.CLEAR);
+          [
+            fallow=1;
+            ttime:=\if(stat.MOD&36){\now}(stat.LASTMOD);
+            uallow=\user.allow(stat.X.CLEAR)(ttime);
+            rallow=\remote.allow(stat.X.DOMAIN);
+            callow=\cookie.allow(stat.X.COOKIE);
+          ];
+          \nif((count stat.REFER) && uallow && rallow && callow)(userok=0){
+            \statlog{200}[cacheok:=0];
+            \if("text/x-htc text/x-htx text/html" which stat.MIME){
+              \if(\req.method eq "POST"){
+                \show.page;
+              }{
+                \switch(route)
+                {SRC}{
+                  \show.srcpage
+                }
+                {RAW}{
+                  \show.rawpage
+                }
+                {HEAD}{
+                  \page.header
+                }
+                {FOOT}{
+                  \page.footer
+                }
+                {BODY}{
+                  \show.page;
+                  [cacheok=(first \resp.getstatus == 200);]
+                }
+                {
+                  \if(count lroute){\layout}{
+                    [canonized:={\server\andlang\uri\andarg}];
+                    \resp.status{\HTTP.301};
+                    \resp.location(canonized);
+                    \resp.cont.type.charset{};
+                    \output{\href(canonized)(canonized)}
+                  }
+                }
+              }
+            }{
+              \resp.cont.type(stat.MIME);
+              \output{\load(stat.REFER)}[cacheok=1;]
+            }
+            \if(cacheok&&(count stat.X.CACHE)){
+              \resp.pragma{}
+              \if(stat.X.CACHE){
+                \resp.lastmod{\time2http(stat.LASTMOD)}
+                [expire:=\now+stat.X.CACHE;
+                \if(expire<=stat.LASTMOD)(expire=stat.LASTMOD+1)];
+                \resp.expires{\time2http(expire)}
+              }
+            }
+          }
+        }
+      }(userok=0)
+    }
+    \nif(userok){
+      \statlog{404};
+      \resp.cont.type.charset{};
+      \output{
+        \body{
+          \h3{\lang{Not Found}{Ej hittad}}
+          \lang{
+            The requested uri (\req.uri) could not be found.
+          }{
+            Den beg{\"a}rda sidan (\req.uri) kunde inte hittas.
+          }
+          \nif{\user.id}{
+            \if(\req.useragent cnt "Mozilla"){
+              <p>
+              \lang
+              {The reason \it{may} be that you need need to }
+              {Andledningen \it{kan} vara att du beh{\"o}ver }
+              \href{/LOGIN\req.uri\andarg}{\lang{login}{logga in}} \lang{first}{f{\"o}rst}.
+            }{
+              <p>
+              \lang{
+                The reason \it{may} be that your user credentials were improperly set.
+              }{
+                Anledningen \it{kan} vara att din anv{\"a}ndar information {\"a}r felaktigt satt.
+              }
+              <p>
+              \lang{
+                Please go back try again.
+              }{
+                G{\aa} tillbaka och f{\"o}rs{\"o}k igen.
+              }
+            }              
+          }{
+            \if(fallow){
+              <p>
+              \lang{Reason:}{Orsak:}
+              \nif(uallow){\lang{Bad clearance}{Fel r{\"a}ttigheter}}
+              \nif(rallow){\lang{Bad access address}{Felaktig access-adress}}
+              \nif(callow){\lang{Bad cookie}{Felaktig 'cookie'}}
+            }
+          }
+          <p>
+          \href{\server}{\lang{Home}{Hem}}
+        }
+      }
+    }
+  }
+}
diff --git a/htc/system.htc b/htc/system.htc
new file mode 100644
index 0000000..ecae08e
--- /dev/null
+++ b/htc/system.htc
@@ -0,0 +1,35 @@
+%
+% User stuff
+%
+\def{mail.root}{xx}{
+  \log{mail root: \1}
+  \mail{\ROOT}{}{\ROOT}{server root}{\now}{\1}{text/plain}{\2}
+}
+\def{mail.admin}{xx}{
+  \log{mail admin: \1}
+  \mail{\ADMIN}{}{\ADMIN}{server admin}{\now}{\1}{text/plain}{\2}
+}
+\def{mail.user}{xx}{
+  \if{\user.id}{
+    \log{mail user: \1}
+    \mail{\ADMIN}{}{\user.email}{\HOST}{\now}{\1}{text/plain}{\2}
+  }
+}
+%
+% Modification time handling
+%
+\def{statmod}{x}{
+  [mtime:=\dirmtime{\1}];
+  \if(mtime>stat.LASTMOD)(stat.LASTMOD=mtime);
+  \1
+}
+\def{statinclude}{x}{
+  \include{\statmod{\1}}
+}
+\def{statopen}{xx?}{
+  \open{\1}{\statmod{\2}}{\3}
+}
+\def{statdb}{x}{
+  [mtime:=\dbmod{\1}];
+  \if(mtime>stat.LASTMOD)(stat.LASTMOD=mtime);
+}
diff --git a/htc/tree.htc b/htc/tree.htc
new file mode 100644
index 0000000..8615108
--- /dev/null
+++ b/htc/tree.htc
@@ -0,0 +1,21 @@
+\const{HTCEXT}{htc htx html}
+\const{SKIPDIR}{sys htc SCCS}
+\def{tree.update}{}{
+  [xmod:=\now];
+  \ldef{trav}{x}{
+    \staturi{\1}{
+      \if(count stat.ALIAS)(@<-stat.);
+      \forall{it}{\dirent{\1}}{
+        \if(\dirmod(it)&24576){
+          \nif(\SKIPDIR which (it past \1)){\trav{[it]/}}
+        }{
+          \if(\HTCEXT which (it rpast ".")){
+            \staturi(it){\if(count stat.ALIAS)(@<-stat.)}
+          }
+        }
+      }
+    }
+  };
+  \db{TREE}{\trav{/}\query(XMOD<xmod){\rem.rec}}
+}
+
diff --git a/htc/upload.htc b/htc/upload.htc
new file mode 100644
index 0000000..ef3491e
--- /dev/null
+++ b/htc/upload.htc
@@ -0,0 +1,26 @@
+\def{upload.clear}{x}{
+  \if((\1 rpast "." eq "htc")||(\1 rleftand "/" eq \1)||(\1 cnt "WRITABLE")){
+    ROOT
+  }{
+    [path:=(\1 rleftand "/")++"WRITABLE"]\staturi(path)(\load(path) left \n){ROOT}
+  }
+}
+\def{upload.delete}{x}{
+  \log{upload: DELETING \1}
+  \remfile{\1}
+  \output{
+    \h3{\lang{File Deleted}{Filen raderad}}
+    \lang{
+      \1 was sucessfully deleted.
+    }{
+      \1 har raderats.
+    }
+    <p>
+    \href{\server}{\lang{Home}{Hem}}
+  }
+}
+\def{upload.put}{x}{
+  \log{upload: PUTTING \1}
+  \save{\1}{T.body}{417}
+}
+
diff --git a/htc/users.hdb b/htc/users.hdb
new file mode 100644
index 0000000..a55fc11
--- /dev/null
+++ b/htc/users.hdb