Revision 296 (by ahitrov, 2013/03/26 17:59:01) Promosite (anthill) project source
 
<%args>

	$msg  => undef

</%args>

<%init>

	return if length $msg < 10 or length $msg > 102400;

	my $mail = '/usr/sbin/sendmail -t';

	open(F, "| $mail") || return ; 
	print F $msg; 
	close F;

</%init>