Added more attachment compatibility to email parser script
git-svn-id: svn://192.168.202.10@3906 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
@@ -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) {
|
||||
|
||||
Reference in New Issue
Block a user