Bug in Local Domains

[Julian Field]

At 13:54 31/01/2002, you wrote:
>Thanks, It seems You have more perl knowledge than I have :-)))
>I forget something: You should write all the input files (localdomains,
>spamwhitelist)
>in lower case, or add "lc" to appropriate lines in config.pl too.

Already done, will be in the next version (not so critical).

>At 11:00 31/01/2002, you wrote:
> >The from/to addresses are case insensetive in SMTP protokoll, but
> >mailscanner uses it in case sensitive way.
> >For example if You send a mail from Your ABC.com domain, and in Local
> >Domains file is only abc.com, then
> >if Your mail is disinfected it will be sent to outer recipients in spite
>of
> >You set not to deliver from local addresses!
> >
> >The same case-sensitivity problem exists with spam white list.
>
>Here's a rather briefer change that achieves much the same thing:
>Just two lines to add.
>
>*** sendmail.pl Wed Jan 30 14:00:13 2002
>--- sendmail.pl.new     Thu Jan 31 11:28:32 2002
>***************
>*** 170,175 ****
>--- 170,176 ----
>        next if $SkipChecks;
>
>        # Check to ensure the sender address isn't in the white list
>+     $from = lc($from);
>        $from =~ s/^<//; # Delete leading and
>        $from =~ s/>$//; # trailing <>
>        $fromdomain = $from;
>
>*** disinfect.pl        Thu Dec 13 12:37:30 2001
>--- disinfect.pl.new    Thu Jan 31 11:28:58 2002
>***************
>*** 98,103 ****
>--- 98,104 ----
>        # Don't do this if we aren't delivering cleaned up mail and the
>message
>        # came from one of the local domains.
>        $from = (split(/\0/, $MessagesInfo->{$id}))[0];
>+     $from = lc($from);
>        $from =~ s/^<//; # Delete leading and
>        $from =~ s/>$//; # trailing <>
>        $fromdomain = $from;

--
Julian Field                Teaching Systems Manager
jkf at ecs.soton.ac.uk         Dept. of Electronics & Computer Science
Tel. 023 8059 2817          University of Southampton
                             Southampton SO17 1BJ