Nogen der kan se hvad der er galt med nedenstående? Jeg får denne fejl:
"Too many arguments for open at /var/qmail/bin/qmail-scanner-queue.pl line
1616, near ""$aliasdb")"
Execution of /var/qmail/bin/qmail-scanner-queue.pl aborted due to
compilation errors."
fejlen kommer i dwen linie markeret med <-----------------------------------
----- code --------------
#Read in the aliases database from /var/qmail/users/qmail-scanner-aliases
my $aliasdb = '/var/qmail/users/qmail-scanner-aliases';
if ((-e $aliasdb && -f $aliasdb && -o $aliasdb) &&
("0600" eq sprintf("%04lo", ((stat($aliasdb))[2]) & 07777))) {
open(ALIASDB, '<', "$aliasdb"); # we should really handle an error here
<---------------------------------
while(<ALIASDB>) {
chomp;
# skip comments
if (/^#/) {
next;
}
# alias
if ((/(.*\@.*)\s+(\".*\"\@.*)/) || (/(.*\@.*)\s+(.*\@.*)/)) {
$alias{lc($1)} = lc($2);
next;
}
# shouldn't reach this point
}
close(ALIASDB);
}
----------- / code ----------------------------------------
På forhånd mange tak!
Mvh
Michael