From 02ea7186de06d3b5c5358f19486bcb3a0f0f6222 Mon Sep 17 00:00:00 2001 From: mattf Date: Mon, 3 Feb 2025 20:32:39 +0000 Subject: [PATCH] Added more attachment compatibility to email parser script git-svn-id: svn://192.168.202.10@3906 3d104415-ff17-0410-8863-d5cf3c621b8a --- agc_2-X/trunk/bin/AST_inbound_email_parser.pl | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/agc_2-X/trunk/bin/AST_inbound_email_parser.pl b/agc_2-X/trunk/bin/AST_inbound_email_parser.pl index 6949ab85..688be639 100644 --- a/agc_2-X/trunk/bin/AST_inbound_email_parser.pl +++ b/agc_2-X/trunk/bin/AST_inbound_email_parser.pl @@ -67,6 +67,7 @@ use MIME::QuotedPrint; # 170523-1319 - file attachment patch, issue #1014 # 171026-0106 - Added optional queue_log logging # 240225-1442 - Changes for perl module compatibility and attachment compatibility +# 250202-1520 - More attachment compatibility # # default path to astguiclient configuration file: @@ -504,6 +505,9 @@ while (@row=$rslt->fetchrow_array) { case "image/wmf" {$attachment_fulltype="WMF";} case "text/html" {$attachment_fulltype="HTML";} case "text/vcard-contact" {$attachment_fulltype="VCF";} + case "audio/mpeg" {$attachment_fulltype="MP3";} + case "audio/wav" {$attachment_fulltype="WAV";} + case "audio/x-wav" {$attachment_fulltype="WAV";} } if ($sub_content_disposition=~/filename\=\"?(.*?)\"?$|filename=\"[^\"]+\"/i) {$attachment_filename=$&;} if (length($attachment_filename)==0) { @@ -895,6 +899,9 @@ while (@row=$rslt->fetchrow_array) { case "image/wmf" {$attachment_fulltype="WMF";} case "text/html" {$attachment_fulltype="HTML";} case "text/vcard-contact" {$attachment_fulltype="VCF";} + case "audio/mpeg" {$attachment_fulltype="MP3";} + case "audio/wav" {$attachment_fulltype="WAV";} + case "audio/x-wav" {$attachment_fulltype="WAV";} } if ($sub_content_disposition=~/filename\=\"?(.*?)\"?$|filename=\"[^\"]+\"/i) {$attachment_filename=$&;} if (length($attachment_filename)==0) {