not quite a bug

Julian Field mailscanner at ecs.soton.ac.uk
Wed Mar 19 16:09:01 GMT 2003


At 15:25 19/03/2003, you wrote:
>Hi Julian,
>
>browsing the code I found this in Sendmail.pm:
>
>   sub KickMessage {
>     my(@ids) = @_;
>     my($idlist);
>
>     $idlist = join(' -qI', @ids);
>     $idlist .= ' &' if MailScanner::Config::Value('deliverinbackground');
>     #print STDERR "About to do \"Sendmail2 -qI$idlist\"\n";
>     system(MailScanner::Config::Value('sendmail2') . ' -qI' . $idlist);
>   }
>
>and this generates:
>sendmail -qI -qIxxxx -qIzzzz -qIwwww

It shouldn't. It should put a " -qI" between each id, but without one at
the beginning.


>Just for cleanup, I think it should be:
>   sub KickMessage {
>     my(@ids) = @_;
>     my($idlist);
>
>     $idlist = join(' -qI', @ids);
>     $idlist .= ' &' if MailScanner::Config::Value('deliverinbackground');
>     #print STDERR "About to do \"Sendmail2 -qI$idlist\"\n";
>     system(MailScanner::Config::Value('sendmail2') . $idlist);
>   }
>
>
>--
>Mariano Absatz
>El Baby
>----------------------------------------------------------
>Errors have been made. Others will be blamed.

--
Julian Field
www.MailScanner.info
MailScanner thanks transtec Computers for their support



More information about the MailScanner mailing list