I made a slight modification to my Qmail-Scanner perl file to create
a CSV summary after the run completes - here's my perl code (note,
I'm not a perl coder by day, or night):

  # add to CSV file creating for analysis later
  my $sa_csv = Text::CSV_XS->new;
  my $input_fields = [$headers{'to'},
                      $headers{'from'},
                      $headers{'subject'},
                      $headers{'date'},
                      $sa_hits,
                      $sa_action
                      ];

  my $csv_io = new IO::File ">> /var/spool/qscan/qs-sa.csv";
  if (defined $csv_io) {
    if ($sa_csv->print($csv_io, $input_fields)) {
      print $csv_io "\n";
    } else {
      my $err = $sa_csv->error_input;
      &sadebug("combine() failed on argument: $err");
    }
    $csv_io->close;
  }
  else {
    &sadebug("Error!  Could not open CSV File!");
  }

This worked great up until I upgraded to lenny with perl 5.10 - now I
get this error message in my logs:

Mar  1 23:52:45 fastconcepts my_qmail-scanner-queue-2.01-st.pl:
X-Qmail-Scanner-2.01st:[fastconcepts12359731628652326] Requeuing:
Insecure dependency in require while running with -T switch
at /var/qmail/bin/my_qmail-scanner-queue-2.01-st.pl line 4043. BEGIN
failed--compilation aborted.

line 4043 is this line:

if ($sa_csv->print($csv_io, $input_fields)) {

Any thoughts on how to fix this please?

Thank you,

Josh

------------------------------------------------------------------------------
Open Source Business Conference (OSBC), March 24-25, 2009, San Francisco, CA
-OSBC tackles the biggest issue in open source: Open Sourcing the Enterprise
-Strategies to boost innovation and cut costs with open source participation
-Receive a $600 discount off the registration fee with the source code: SFAD
http://p.sf.net/sfu/XcvMzF8H
_______________________________________________
Qmail-scanner-general mailing list
Qmail-scanner-general@list...
https://lists.sourceforge.net/lists/listinfo/qmail-scanner-general