Initial import of htcd system 1.0

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

1 files changed, 35 insertions, 0 deletions

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);
+}