Încerc să depanez un filtru mimedefang pe care l-am scris și nu pot face ca md_syslog să înregistreze de fapt nimic. Acesta este cu mimedefang 2.85 pe Amazon Linux 2. Cumva, înregistrarea pare să funcționeze pentru că văd chestii de genul acesta
9 ianuarie 18:00:41 ip-10-0-200-150 mimedefang.pl[26660]: C51DA80055: MDLOG,C51DA80055,mail_in,,,<frommail>,<tomail>,Test
9 ianuarie 18:00:41 ip-10-0-200-150 mimedefang.pl[26660]: C51DA80055: filter: append_text_boilerplate=1
9 ianuarie 18:00:41 ip-10-0-200-150 mimedefang[6514]: C51DA80055: Timpul de filtrare este de 7 ms
De asemenea, filtrul meu funcționează, pentru că de fapt face chestiile append_[html|text], dar alte lucruri nu funcționează, iar înregistrarea mea pentru a-mi da seama nu funcționează. Iată o versiune simplificată/eliminată a filtrului meu:
sub filter_end {
...
if ($adrs =~ m/$sender/) {
...
if (deschide(my $fh, '<:encoding(UTF-8)', $text_file)) {
în timp ce ($rândul meu = <$fh>) {
$txt_disclaimer .= $rând;
}
append_text_boilerplate($entity, $txt_disclaimer, 0); # asta funcționează
} altfel {
warn „Nu s-a putut deschide fișierul „$text_file” $!”;
}
dacă (deschide(my $fh, '<:encoding(UTF-8)', $html_file)) {
în timp ce ($rândul meu = <$fh>) {
$html_disclaimer .= $rând;
}
...
md_syslog('info', "Placă adăugată"); # acesta nu apare
if (deschide(my $lfh, '>>', $log_file)) {
my $log_line = $dest . ',' . $hash . ',' . ora locala() . „\n”;
print $lfh $log_line;
warn „Cred că am logat ceva”;
md_syslog('info', "Adresă de e-mail înregistrată"); # acesta nu apare
close($lfh);
} altfel {
warn „Nu s-a putut deschide fișierul jurnal „$log_file” $!”;
md_syslog('warning', "Nu s-a putut deschide fișierul jurnal"); # acesta nu apare
}
append_html_boilerplate($entity, $html_disclaimer, 0); # asta funcționează
} altfel {
warn „Nu s-a putut deschide fișierul „$html_file” $!”;
}
}
...
}
M-aș aștepta ca unele dintre acele apeluri md_syslog să înregistreze... ceva, dar nu văd nimic în niciun fișier jurnal. Vreo idee?
