diff options
| author | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2010-04-26 17:50:13 +0400 |
|---|---|---|
| committer | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2010-04-26 17:50:13 +0400 |
| commit | 971bad45c44cf430bde13faede56699ba0381e83 (patch) | |
| tree | d82e66c29b32430ea39729bc3fa8e478ddd14e50 /perl/lib/Mail | |
| parent | 5b9251914c25fa6559e5680f03d7efddad9af736 (diff) | |
| download | rspamd-971bad45c44cf430bde13faede56699ba0381e83.tar.gz rspamd-971bad45c44cf430bde13faede56699ba0381e83.zip | |
* Add ability to pass all filters by using flag -p in case of rspamc or adding header Pass: all in rspamc protocol
Diffstat (limited to 'perl/lib/Mail')
| -rw-r--r-- | perl/lib/Mail/Rspamd/Client.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm index 5945680f1..529a2bf9b 100644 --- a/perl/lib/Mail/Rspamd/Client.pm +++ b/perl/lib/Mail/Rspamd/Client.pm @@ -94,6 +94,9 @@ sub new { else { $self->{weight} = 1; } + if ($args->{pass_all}) { + $self->{pass_all} = 1; + } if ($args->{imap_search}) { $self->{imap_search} = $args->{imap_search}; } @@ -868,6 +871,7 @@ sub _do_rspamc_command { syswrite $remote, "From: $self->{from}$EOL" if ($self->{from}); syswrite $remote, "IP: $self->{ip}$EOL" if ($self->{ip}); syswrite $remote, "Subject: $self->{subject}$EOL" if ($self->{subject}); + syswrite $remote, "Pass: all$EOL" if ($self->{pass_all}); if (ref $self->{rcpt} eq "ARRAY") { foreach ($self->{rcpt}) { syswrite $remote, "Rcpt: $_ $EOL"; |