qpsmtpd/sme9/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	vip-ire	1.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: '$_'");