It is true, sometimes you get so many output that it is too difficult to
see the big line.
I know enough from linux and server environments, but my expertise is not
postfix.

Sometimes we need a bit help :)




2014-02-01 Viktor Dukhovni [via Postfix] <
ml-node+s1071664n64870...@n5.nabble.com>:

> On Fri, Jan 31, 2014 at 03:03:47PM -0800, bensjomic1 wrote:
>
> > Hello Viktor,
> >
> > It was exactly what it did. I disabled the content filter in main.cfwhat
> > redirect the mail to amavis and now it works.
> > If i am correct, already in the settings it go through the amavis filter
> in
> > this setting:
> >
> > XXX.XXX.XXX.180:smtp inet n - - - - smtpd
> >         -o smtpd_proxy_filter=127.0.0.1:10024
> >         -o content_filter=dksign:127.0.0.1:10027
> >
> > Thank you for your help
>
> I ran the logs you posted (unfolded so each entry is a single line)
> through my "collate" program, which reports each transaction as a
> separate ground of lines, with transactions separated by blank lines.
> This makes it much easier to see what's going on.
>
> Various improvments could be made to the code, but it is quite
> useful as-is.
>
> Your main problem was I think "inability to see the forest for the trees".
>
> --
>         Viktor.
>
> #! /usr/bin/perl
>
> use strict;
> use warnings;
>
> # Postfix delivery agents
> my @agents = qw(discard error lmtp local pipe smtp virtual);
>
> my $instre = qr{(?x)
>         \A # Absolute line start
>         (?:\S+ \s+){3} # Timestamp, adjust for other time formats
>         \S+ \s+ # Hostname
>         (postfix(?:-\S+)?)/ # postfix instance
>         };
>
> my $cmdpidre = qr{(?x)
>         \G # Continue from previous match
>         (\S+)\[(\d+)\]:\s+ # command[pid]:
> };
>
> my %smtpd;
> my %smtp;
> my %transaction;
>
> my %isagent = map { ($_, 1) } @agents;
>
> while (<>) {
>         next unless m{$instre}ogc; my $inst = $1;
>         next unless m{$cmdpidre}ogc; my $command = $1; my $pid = $2;
>
>         if ($command eq "smtpd") {
>                 if (m{\Gconnect from }gc) {
>                         # Start new log
>                         $smtpd{$pid}->{"log"} = $_; next;
>                 }
>
>                 $smtpd{$pid}->{"log"} .= $_;
>
>                 if (m{\G(\w+): client=}gc) {
>                         # Fresh transaction
>                         my $qid = "$inst/$1";
>                         $smtpd{$pid}->{"qid"} = $qid;
>                         $transaction{$qid} = $smtpd{$pid}->{"log"};
>                         next;
>                 }
>
>                 my $qid = $smtpd{$pid}->{"qid"};
>                 $transaction{$qid} .= $_ if (defined($qid));
>                 delete $smtpd{$pid} if (m{\Gdisconnect from}gc);
>                 next;
>         }
>
>         if ($command eq "pickup") {
>                 if (m{\G(\w+): uid=}gc) {
>                         my $qid = "$inst/$1";
>                         $transaction{$qid} = $_;
>                 }
>                 next;
>         }
>
>         # bounce(8) logs transaction start after cleanup(8) already logged
>         # the message-id, so the cleanup log entry may be first
>         #
>         if ($command eq "cleanup") {
>                 next unless (m{\G(\w+): }gc);
>                 my $qid = "$inst/$1";
>                 $transaction{$qid} .= $_;
>                 next;
>         }
>
>         if ($command eq "qmgr") {
>                 next unless (m{\G(\w+): }gc);
>                 my $qid = "$inst/$1";
>                 if (defined($transaction{$qid})) {
>                         $transaction{$qid} .= $_;
>                         if (m{\Gremoved$}gc) {
>                                 print delete $transaction{$qid}, "\n";
>                         }
>                 }
>                 next;
>         }
>
>         # Save pre-delivery messages for smtp(8) and lmtp(8)
>         #
>         if ($command eq "smtp" || $command eq "lmtp") {
>                 $smtp{$pid} .= $_;
>
>                 if (m{\G(\w+): to=}gc) {
>                         my $qid = "$inst/$1";
>                         if (defined($transaction{$qid})) {
>                                 $transaction{$qid} .= $smtp{$pid};
>                         }
>                         delete $smtp{$pid};
>                 }
>                 next;
>         }
>
>         if ($command eq "bounce") {
>                 if (m{\G(\w+): .*? notification: (\w+)$}gc) {
>                         my $qid = "$inst/$1";
>                         my $newid = "$inst/$2";
>                         if (defined($transaction{$qid})) {
>                                 $transaction{$qid} .= $_;
>                         }
>                         $transaction{$newid} =
>                                 $_ . $transaction{$newid};
>                 }
>                 next;
>         }
>
>         if ($isagent{$command}) {
>                 if (m{\G(\w+): to=}gc) {
>                         my $qid = "$inst/$1";
>                         if (defined($transaction{$qid})) {
>                                 $transaction{$qid} .= $_;
>                         }
>                 }
>                 next;
>         }
> }
>
>
> ------------------------------
>  If you reply to this email, your message will be added to the discussion
> below:
>
> http://postfix.1071664.n5.nabble.com/Problem-with-postfix-pipe-a-mail-tp64699p64870.html
>  To unsubscribe from Problem with postfix pipe a mail, click 
> here<http://postfix.1071664.n5.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=64699&code=bWljaGFlbEBtdGlqaHVpcy5ubHw2NDY5OXw2NDE2NjEyNTY=>
> .
> NAML<http://postfix.1071664.n5.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
>




--
View this message in context: 
http://postfix.1071664.n5.nabble.com/Problem-with-postfix-pipe-a-mail-tp64699p64871.html
Sent from the Postfix Users mailing list archive at Nabble.com.

Reply via email to