[Mimedefang] Problems with 3.1

[Tony Lindström]

I have this filter that used to work with 2.86, but now it fails:

Oct  7 15:30:28 l-ns4 mimedefang-multiplexor[17447]: 297CTpBA019673: Worker
0 stderr: Undefined subroutine &Mail::MIMEDefang::Actions::takeStabAtFile
Oct  7 15:30:28 l-ns4 mimedefang-multiplexor[17447]: 297CTpBA019673: Worker
0 stderr: name called at /usr/share/perl5/vendor_perl/Mail/MIMEDefang/Act
Oct  7 15:30:28 l-ns4 mimedefang-multiplexor[17447]: 297CTpBA019673: Worker
0 stderr: ions.pm line 1065.

Here is the filter:

sub filter ($$$$) {
my($entity, $fname, $ext, $type ) = @_;
if (defined($fname)) {
$size = (stat($entity->bodyhandle->path))[7];
if ($size > 10240000) {
return action_replace_with_url($entity,
"/var/spool/MIMEDefang_Captured_Files",
"https://www.xxxx.fi/Captured_Files",
($fname? "The attachment \"$fname\"" : "Attachment").
          " was larger than 10 MB.\n" .
          "It was removed by the xxxx mail gateway, but may be accessed at
this URL:\n\n" .
  "_URL_",
$fname # extra data to save
);

Not sure how to fix this?

-- 
Tony Lindström - IS Systems Engineer - Trimble Solutions
Hatsinanpuisto 8 - 02600 Espoo - Finland
http://www.trimble.com - 358-40-7620768
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.mimedefang.org/pipermail/mimedefang_lists.mimedefang.org/attachments/20221007/26e29da1/attachment.html>