[Mimedefang] string compare / matching

[Petra Humann]

Hello,

I have some code in my filter_end:

sub filter_end ($) {
    my($entity) = @_;
....
    my $from_header = $entity->head->get("From");
    $from_header =~ s/^.*<//;
    $from_header =~ s/>$//;
    $from_header = lc($from_header);

    my $absender = $Sender;
    $absender =~ s/^<//;
    $absender =~ s/>$//;
    $absender = lc($absender);

    if ( $absender ne $from_header ) {
	md_syslog ('warning', "$MsgID not equal Sender $absender from
$from_header");
    } else {
	md_syslog ('warning', "$MsgID equal Sender $absender from $from_header");
    }

I ever get: "not equal", although $absender and $from_header are
equal. If I write:

	if ( ! grep /$absender/, $from_header) ...

it works, but some addresses doesn't, like "liste**recipient**@liste.com".

How do I solve this problem?

Regards.
Petra Humann
-- 
Mail:    humann at tcs.inf.tu-dresden.de
WWW:     http://wwwtcs.inf.tu-dresden.de/~humann/