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@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/qmail-scanner-general
