Repository List / Contenido / utf8 / samples / promosuite / comps / www / escape / comps / sendmail-out-of-restrictions.msn @ r296

<%args>
	$from		=>	undef,
	$to			=>	undef,
	$data		=>	undef,
	$fields	=>	undef
</%args>

<%init>
my $subject = "Побег из Москвы: Анкета";
my $msg = qq{From: $from
To: $to
Subject: $subject
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit

Здравствуйте!

};

my $name =  sprintf ("%s %s %s", $data->{"Фамилия"}, $data->{"Имя"}, $data->{"Отчество"});
my $fname = $data->{"Имя"};

$msg .= "Уважаемый(-ая) $name, благодарим  Вас за отклик. К сожалению, Ваша анкета не соответствует критериям данного проекта. Ваше Приключение еще впереди.\n\n";

$msg .= "Удачи, $fname.";

return $msg;
</%init>