htc/system.htc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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);
}