Line # Revision Author
1 296 ahitrov <%args>
2
3 $msg => undef
4
5 </%args>
6
7 <%init>
8
9 return if length $msg < 10 or length $msg > 102400;
10
11 my $mail = '/usr/sbin/sendmail -t';
12
13 open(F, "| $mail") || return ;
14 print F $msg;
15 close F;
16
17 </%init>