Repository List / Contenido / utf8 / samples / promosuite / comps / www / escape / subs / sendmail.msn @ r296

<%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>