qpsmtpd/sme10/qpsmtpd-0.96-dont_log_credentials_except_in_debug.patch

diff -Nur -x '*.orig' -x '*.rej' qpsmtpd-0.96/lib/Qpsmtpd/TcpServer.pm mezzanine_patched_qpsmtpd-0.96/lib/Qpsmtpd/TcpServer.pm
--- qpsmtpd-0.96/lib/Qpsmtpd/TcpServer.pm       2016-02-16 23:52:02.000000000 +0100
+++ mezzanine_patched_qpsmtpd-0.96/lib/Qpsmtpd/TcpServer.pm     2016-04-15 19:13:13.873874838 +0200
@@ -120,7 +120,10 @@
     while (<STDIN>) {
         alarm 0;
         $_ =~ s/\r?\n$//s;                         # advanced chomp
-        $self->log(LOGINFO, "dispatching $_");
+        my $log = $_;
+        $log =~ s/AUTH PLAIN (.*)/AUTH PLAIN <hidden credentials>/
+          unless ($self->config('loglevel') || '6') >= 7;
+        $self->log(LOGINFO, "dispatching $log");
         $self->connection->notes('original_string', $_);
         defined $self->dispatch(split / +/, $_, 2)
           or $self->respond(502, "command unrecognized: '$_'");
1	diff -Nur -x '.orig' -x '.rej' qpsmtpd-0.96/lib/Qpsmtpd/TcpServer.pm mezzanine_patched_qpsmtpd-0.96/lib/Qpsmtpd/TcpServer.pm
2	--- qpsmtpd-0.96/lib/Qpsmtpd/TcpServer.pm 2016-02-16 23:52:02.000000000 +0100
3	+++ mezzanine_patched_qpsmtpd-0.96/lib/Qpsmtpd/TcpServer.pm 2016-04-15 19:13:13.873874838 +0200
4	@@ -120,7 +120,10 @@
5	while (<STDIN>) {
6	alarm 0;
7	$_ =~ s/\r?\n$//s; # advanced chomp
8	- $self->log(LOGINFO, "dispatching $_");
9	+ my $log = $_;
10	+ $log =~ s/AUTH PLAIN (.*)/AUTH PLAIN <hidden credentials>/
11	+ unless ($self->config('loglevel') \|\| '6') >= 7;
12	+ $self->log(LOGINFO, "dispatching $log");
13	$self->connection->notes('original_string', $_);
14	defined $self->dispatch(split / +/, $_, 2)
15	or $self->respond(502, "command unrecognized: '$_'");