[Mimedefang] string compare / matching

[Petra Humann]

I solved it:

> sub filter_end ($) {
>     my($entity) = @_;
> ....
>     my $from_header = $entity->head->get("From");

chomp($from_header);

>     $from_header =~ s/^.*<//;
>     $from_header =~ s/>$//;
>     $from_header = lc($from_header);

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