From 6a4b30e6f99c5befb8c2ab00cfd6d72eca2ce6db Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Sat, 17 Nov 2007 08:22:00 +0000
Subject: [PATCH] add new clamd_user parameter that sets the user we pass to
 clamd

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@817 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/spamassassin | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/plugins/spamassassin b/plugins/spamassassin
index 09e7c1b..155b2bf 100644
--- a/plugins/spamassassin
+++ b/plugins/spamassassin
@@ -59,6 +59,10 @@ not trust such headers and should either rename them to X-Old-... (default,
 parameter 'rename') or have them removed (parameter 'drop'). If you know
 what you are doing, you can also leave them intact (parameter 'keep').
 
+=item spamd_user [username]
+
+The username to pass to spamd, if different from the user qpsmtpd runs as.
+
 =back
 
 With both of the first options the configuration line will look like the following
@@ -133,7 +137,7 @@ sub hook_data_post { # check_spam
   SPAMD->autoflush(1);
   
   $transaction->body_resetpos;
-  my $username = getpwuid($>);
+  my $username = $self->{_args}->{spamd_user} || getpwuid($>);
 
   print SPAMD "SYMBOLS SPAMC/1.3" . CRLF;
   print SPAMD "User: $username" . CRLF;