fix filter error handling and error counting

[spider.git] / perl / DXMsg.pm

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index a3b5e983586ed9a9fdab49eac489323660813646..bf7494a7ef53a20c91dbecd695e01c3724b1f4ee 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -485,7 +485,7 @@ sub notify
                        my $fromaddr = $email_from || $main::myemail;
                        my @headers = ("To: $ref->{to}", 
                                                   "From: $fromaddr",
-                                                  "Subject: [DXSpider: $ref->{from}] $ref->{subject}", 
+                                                  "Subject: [DXSpider: $ref->{from}\@$ref->{origin}] $ref->{subject}", 
                                                   "X-DXSpider-To: $ref->{to}",
                                                   "X-DXSpider-From: $ref->{from}\@$ref->{origin}", 
                                                   "X-DXSpider-Gateway: $main::mycall"