HI.
I have some updates and corrections to my previous post.
Here they are (lines without the > symbol are changes from previous post).
#***********************************************************************
# %PROCEDURE: action_replace_with_comment
# %ARGUMENTS:
# msg -- message
# %RETURNS:
# Nothing
# %DESCRIPTION:
# Makes a note to drop the current part and replace it with a comment
#
# To be used in replace_with_url,
# instead of the original replace_with_warning which is plain text only.
#
# Written by Yizhar Hurwitz, http://yizhar.mvps.org
# Version 1.0 , 13-Oct-2005
#
#***********************************************************************
sub action_replace_with_comment ($) {
my($msg) = @_;
return 0 if (!in_filter_context("action_replace_with_comment"));
$Actions{'replace_with_warning'}++;
$Action = "replace";
$msg =~ s/\n/<br>\n/g;
$ReplacementEntity = MIME::Entity->build(Type => "text/html",
Encoding => "-suggest",
Data => [ "<html><body>\n$msg\n<\/body><\/html>\n" ]);
$WarningCounter++;
$ReplacementEntity->head->mime_attr("Content-Type.name" => "comment$Warning
ounter.htm");
$ReplacementEntity->head->mime_attr("Content-Disposition" => "inline");
$ReplacementEntity->head->mime_attr("Content-Disposition.filename" => "comm
nt$WarningCounter.htm");
return 1;
}
=== And here are the changes to the existing function replace_with_url:
=============
my($fname, $ext, $name, $url);
my($htmlurl);
my $extension = "";
[.................]
$htmlurl = "<a href=\"$url\">$url<\/a>";
[.................]
$msg =~ s/_URL_/$htmlurl/g;
action_replace_with_comment($msg);
return 1;
==== And in "/etc/mail/mimedefang-filter" I have done the following
==============
$multimedia = '(avi|mpg|mov|pps|wmv)';
if (re_match($entity, '\.' . $multimedia)) {
return action_replace_with_url($entity,
"/var/tmp/mail_parts",
"http://10.0.0.4/mail_parts";,
"multimedia file converted to URL:\n_URL_\n"
);
}
Yizhar Hurwitz
http://yizhar.mvps.org
_______________________________________________
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list
[email protected]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
