← Back to branch summary

~ubuntu-branches/ubuntu/utopic/spamassassin/utopic-proposed

« back to all changes in this revision

Viewing changes to lib/Mail/SpamAssassin/Plugin/WhiteListSubject.pm

  • Committer: Bazaar Package Importer
  • Author(s): Noah Meyerhans
  • Date: 2010-01-26 22:53:12 UTC
  • mfrom: (1.1.13 upstream) (5.1.7 sid)
  • Revision ID: james.westby@ubuntu.com-20100126225312-wkftb10idc1kz2aq
Tags: 3.3.0-1
* New upstream version.
* Switch to dpkg-source 3.0 (quilt) format

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Mail/SpamAssassin/Plugin/WhiteListSubject.pm
47
47
use strict;
48
48
use warnings;
49
49
use bytes;
 
50
use re 'taint';
50
51
 
51
52
use vars qw(@ISA);
52
53
@ISA = qw(Mail::SpamAssassin::Plugin);
71
72
sub set_config {
72
73
  my ($self, $conf) = @_;
73
74
 
74
 
  my @cmds = ();
 
75
  my @cmds;
75
76
 
76
77
  push(@cmds, {
77
78
               setting => 'whitelist_subject',
78
79
               default => {},
 
80
               type => $Mail::SpamAssassin::Conf::CONF_TYPE_ADDRLIST,
79
81
               code => sub {
80
82
                 my ($self, $key, $value, $line) = @_;
81
83
 
91
93
  push(@cmds, {
92
94
               setting => 'blacklist_subject',
93
95
               default => {},
 
96
               type => $Mail::SpamAssassin::Conf::CONF_TYPE_ADDRLIST,
94
97
               code => sub {
95
98
                 my ($self, $key, $value, $line) = @_;
96
99
 
111
114
 
112
115
  my $subject = $permsgstatus->get('Subject');
113
116
 
114
 
  return 0 unless $subject;
 
117
  return 0 unless $subject ne '';
115
118
 
116
119
  return $self->_check_subject($permsgstatus->{conf}->{whitelist_subject}, $subject);
117
120
}
121
124
 
122
125
  my $subject = $permsgstatus->get('Subject');
123
126
 
124
 
  return 0 unless $subject;
 
127
  return 0 unless $subject ne '';
125
128
 
126
129
  return $self->_check_subject($permsgstatus->{conf}->{blacklist_subject}, $subject);
127
130
}