From 5df79c53745fde5d6c3340a2979b1429cd5892c1 Mon Sep 17 00:00:00 2001
From: Henrik Rydberg <rydberg@euromail.se>
Date: Sat, 8 Oct 2011 20:30:28 +0200
Subject: Initial import of htcd system 1.0

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>
---
 htc/mailer.htc | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 htc/mailer.htc

(limited to 'htc/mailer.htc')

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}
+}
+
-- 
cgit v1.2.3