diff options
Diffstat (limited to 'htc/mailer.htc')
| -rw-r--r-- | htc/mailer.htc | 53 |
1 files changed, 53 insertions, 0 deletions
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 @@ | |||
| 1 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | ||
| 2 | % maild Mailinglist | ||
| 3 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | ||
| 4 | \setuser{\getuser{\T.from}} | ||
| 5 | \nif(count \T.node){\reconst{T.node}{1}} | ||
| 6 | \dml.init{demo}{}{}{} | ||
| 7 | \if{\user.id}{ | ||
| 8 | \setlist{\T.list}; | ||
| 9 | \if(count \dml.group){ | ||
| 10 | \on.clear{\dml.group}{ | ||
| 11 | \switch{\T.cmd} | ||
| 12 | {help}{ | ||
| 13 | \dml.help | ||
| 14 | } | ||
| 15 | {who}{ | ||
| 16 | \dml.who{\T.node} | ||
| 17 | } | ||
| 18 | {silent}{ | ||
| 19 | \dml.addsilent{\T.node} | ||
| 20 | } | ||
| 21 | {new}{ | ||
| 22 | \dml.addbroad{\T.node} | ||
| 23 | } | ||
| 24 | {reply}{ | ||
| 25 | \reconst{T.subject}{\dml.resubj{\T.subject}} | ||
| 26 | \dml.addbroad{\T.node} | ||
| 27 | } | ||
| 28 | {open}{ | ||
| 29 | \dml.opennode{\T.node} | ||
| 30 | } | ||
| 31 | {close}{ | ||
| 32 | \dml.closenode{\T.node} | ||
| 33 | } | ||
| 34 | {mail}{ | ||
| 35 | \dml.mail{\T.node} | ||
| 36 | } | ||
| 37 | { | ||
| 38 | \dml.error{\T.list: Bad command (\T.cmd)} | ||
| 39 | } | ||
| 40 | }{ | ||
| 41 | \dml.error{\T.list: User denied (\T.from)} | ||
| 42 | } | ||
| 43 | }{ | ||
| 44 | \if(\T.cmd eq "help"){ | ||
| 45 | \dml.help | ||
| 46 | }{ | ||
| 47 | \dml.error{\T.list: Not found} | ||
| 48 | } | ||
| 49 | } | ||
| 50 | }{ | ||
| 51 | \dml.error{\HOST: Could not find user \T.from} | ||
| 52 | } | ||
| 53 | |||