Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

#40 Can't use string as an ARRAY - AMAVIS.pm

closed
nobody
None
1
2002-09-08
2002-09-07
Andreas Stern
No

[root@asyl virus]# amavis < /var/virusmails/virus-20020901-223034-25273
Can't use string ("sysop@link-atu.comlink.apc.org") as an ARRAY ref while "strict refs" in use at /usr/lib/perl5/site_perl/5.6.1/AMAVIS.pm line 536.
[root@asyl virus]#

---
/etc/amavis/amavis.conf :
---

[global]

;; Which MTA to use. Specify one.

mail-transfer-agent = DebugMTA

[DebugMTA]

input file = /dev/stdin

output file = /dev/stdout
problem dir = /var/spool/amavis/problems

Discussion

  • Andreas Stern
    Andreas Stern
    2002-09-08

    • priority: 5 --> 1
    • status: open --> closed
     
  • Andreas Stern
    Andreas Stern
    2002-09-08

    Logged In: YES
    user_id=607667

    diff -ru amavis-ng-0.1.4.1.orig/AMAVIS/MTA/DebugMTA.pm amavis-ng-0.1.4.1.modi_3/AMAVIS/MTA/DebugMTA.pm
    --- amavis-ng-0.1.4.1.orig/AMAVIS/MTA/DebugMTA.pm Fri Jun 28 11:24:26 2002
    +++ amavis-ng-0.1.4.1.modi_3/AMAVIS/MTA/DebugMTA.pm Sun Sep 8 22:06:02 2002
    @@ -12,6 +12,7 @@
    use AMAVIS;
    use AMAVIS::Logging;
    use IO::File;
    +use File::Path;

    use vars qw(
    $cfg_input_file
    @@ -86,7 +87,7 @@
    writelog($args,LOG_DEBUG, "Sender: $1");
    }
    if (/^To: *(.*)$/) {
    - @$args{'recipients'}=split /\s*,\s*/,$1;
    + push @{$$args{'recipients'}}, split /\s*,\s*/,$1;
    writelog($args,LOG_DEBUG, "Recipients: $1");
    }
    print $output $_;