diff options
author | TechSneeze <dave@techsneeze.com> | 2018-12-09 02:56:08 +0300 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-12-09 02:56:08 +0300 |
commit | 49a4e860dd155c9f6bf973b503c57585c15ffb2d (patch) | |
tree | d4198dc6da9fc854710cada03971fcde9d4c2d2b | |
parent | ae7a74a1c13d7eaaa405f1ae56b7821923c35793 (diff) | |
parent | de3804640b5de6624886df341b2891c57ba8ae4c (diff) |
Merge pull request #61 from Clete2/fix-gzip
Add support for application/x-gzip mime type
-rwxr-xr-x | dmarcts-report-parser.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dmarcts-report-parser.pl b/dmarcts-report-parser.pl index a033932..84e638f 100755 --- a/dmarcts-report-parser.pl +++ b/dmarcts-report-parser.pl @@ -464,7 +464,7 @@ sub getXMLFromMessage { $location = $body->path; - } elsif (lc $mtype eq "application/gzip") { + } elsif (lc $mtype eq "application/gzip" or lc $mtype eq "application/x-gzip") { if ($debug) { print "This is a GZIP file \n"; } @@ -485,7 +485,7 @@ sub getXMLFromMessage { my $part = $ent->parts($i); # Find a zip file to work on... - if(lc $part->mime_type eq "application/gzip") { + if(lc $part->mime_type eq "application/gzip" or lc $part->mime_type eq "application/x-gzip") { $location = $ent->parts($i)->{ME_Bodyhandle}->{MB_Path}; $isgzip = 1; print "$location\n" if $debug; |