Re: [courier-users] Perlfilter debugging

[Sam V. <mr...@co...>]

Alexey Mishustin writes:

> Hello,
>
> I'm trying to implement a simple perl-filter script:
>
> diff -u /usr/share/courier/perlfilter-example.pl ./perlfilter-mailerdaemon.pl
> --- /usr/share/courier/perlfilter-example.pl    2014-06-22
> 14:35:24.000000000 +0400
> +++ ./perlfilter-mailerdaemon.pl        2014-06-29 18:16:47.000000000 +0400
> @@ -17,6 +17,11 @@
>  # The number of the filedescriptor that's connected to the socket is
>  # passed to us on STDIN.
>
> +my $debug_fh;
> +open ($debug_fh, '>', '/tmp/perldebug');
> +print $debug_fh "perlfilter script launched!\n";
> +close $debug_fh;
> +
>  my $filedesc=shift @ARGV;
>
>  my $socket=new IO::File "+<&$filedesc";
> @@ -77,7 +82,7 @@
>                 last if $line eq "";    # End of headers
>
>                 return "500 Invalid Date header."
> -                       if $line =~
> /^Date:......................................................................../i;
> +                       if $line =~ /^To:.*mailer-daemon.*$/i;
>         }
>
>         return "";
>
> But it doesn't work: doesn't reject messages sent to mailer-daemon,
> doesn't print into the file /tmp/perldebug. Nothing about perlfilter
> in logs (except 'Starting perlfilter').
>
> There is the sole line with the full path to the script in
> /etc/courier/filters/perlfilter.
>
> There is the sole line 'esmtp' in /etc/courier/enablefiltering.
>
> I issued `courierfilter start' and `filterctl start perlfilter'.
>
> lsof shows sockets of perlfilter, ps aux shows processes.
>
> How could I debug this?

You probably need to set perlfilter-mode to "all", since you're not using  
maildrop filters.