- my $form = $main::form;
- my $myconfig = \%main::myconfig;
-
- my $email = $myconfig->{email};
- $email =~ s/[^\w\.\-\+=@]//ig;
-
- my %temp_form = ( %{ $form }, 'myconfig_email' => $email );
- my $template = PlainTextTemplate->new(undef, \%temp_form, $myconfig);
- my $sendmail = $template->parse_block($main::sendmail);
-
- if (!open(OUT, $sendmail)) {
- $main::lxdebug->leave_sub();
- return "$sendmail : $!";
- }