aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrian Cully <bjc@kublai.com>2017-10-30 21:57:09 -0400
committerBrian Cully <bjc@kublai.com>2017-10-30 21:57:09 -0400
commit2a85a35687ee87161fe4c936856ec0f45cb0e058 (patch)
treea38ddc5c4a09cdb2b2fd0950a152d093d6f37c65
parent0964736afe66c066f8b77a54d77f27bdb8d24cd5 (diff)
downloadspamcat-2a85a35687ee87161fe4c936856ec0f45cb0e058.tar.gz
spamcat-2a85a35687ee87161fe4c936856ec0f45cb0e058.zip
Add X-SpamCat-Remaining header.
Add explicit header for number of messages remaining from a given sender.
-rw-r--r--lib/SpamCat.pm1
-rw-r--r--t/fixtures/foo.expected1
-rw-r--r--t/fixtures/foo2.expected1
-rw-r--r--t/fixtures/multiple.expected1
-rw-r--r--t/fixtures/nosubj.expected1
5 files changed, 5 insertions, 0 deletions
diff --git a/lib/SpamCat.pm b/lib/SpamCat.pm
index 7a160cf..0f3c8b8 100644
--- a/lib/SpamCat.pm
+++ b/lib/SpamCat.pm
@@ -55,6 +55,7 @@ sub deliver {
$new_subject = $count_str;
}
$email->header_set('Subject' => $new_subject);
+ $email->header_set('X-SpamCat-Remaining' => $count);
}
my $deliverfh = IO::File->new("| " . $self->{deliver}) ||
diff --git a/t/fixtures/foo.expected b/t/fixtures/foo.expected
index 9da87a9..6db2a36 100644
--- a/t/fixtures/foo.expected
+++ b/t/fixtures/foo.expected
@@ -10,5 +10,6 @@ Subject: test - [18/20]
Message-Id: <foo@mta.example.com>
Date: Thu, 20 Nov 2014 17:17:18 -0500 (EST)
From: sender@example.com (Spamcat Sender)
+X-SpamCat-Remaining: 18
Sample email.
diff --git a/t/fixtures/foo2.expected b/t/fixtures/foo2.expected
index e4d9335..da9e9ae 100644
--- a/t/fixtures/foo2.expected
+++ b/t/fixtures/foo2.expected
@@ -10,5 +10,6 @@ Subject: test - [17/20]
Message-Id: <foo2@mta.example.com>
Date: Thu, 20 Nov 2014 17:17:18 -0500 (EST)
From: sender@example.com (Spamcat Sender)
+X-SpamCat-Remaining: 17
Sample email.
diff --git a/t/fixtures/multiple.expected b/t/fixtures/multiple.expected
index d5c17a5..5c66e02 100644
--- a/t/fixtures/multiple.expected
+++ b/t/fixtures/multiple.expected
@@ -11,5 +11,6 @@ Subject: test - [20/20]
Message-Id: <multiple@mta.example.com>
Date: Thu, 20 Nov 2014 17:17:18 -0500 (EST)
From: sender@example.com (Spamcat Sender)
+X-SpamCat-Remaining: 20
Sample email.
diff --git a/t/fixtures/nosubj.expected b/t/fixtures/nosubj.expected
index 94db30e..7acd9ca 100644
--- a/t/fixtures/nosubj.expected
+++ b/t/fixtures/nosubj.expected
@@ -10,5 +10,6 @@ Message-Id: <nosubj@mta.example.com>
Date: Thu, 20 Nov 2014 17:17:18 -0500 (EST)
From: sender@example.com (Spamcat Sender)
Subject: [20/20]
+X-SpamCat-Remaining: 20
Sample email.