equal
deleted
inserted
replaced
73 |
73 |
74 open(my $fh, "<$CONFDIR/vips.conf") |
74 open(my $fh, "<$CONFDIR/vips.conf") |
75 or die "can't read $CONFDIR/vips.conf!\n"; |
75 or die "can't read $CONFDIR/vips.conf!\n"; |
76 $vips = qr{@{[join "|", map { chomp; "(?:".quotemeta($_).")" } grep !/(?:^\s*#|^\s*$)/, <$fh>]}}; |
76 $vips = qr{@{[join "|", map { chomp; "(?:".quotemeta($_).")" } grep !/(?:^\s*#|^\s*$)/, <$fh>]}}; |
77 |
77 |
78 foreach my $h (qw(from to cc bcc)) { |
78 foreach my $h (qw(from to cc bcc return-path envelope-to)) { |
79 if ($header{$h}) { |
79 if ($header{$h}) { |
80 if ($header{$h} =~ /$vips/i) { |
80 if ($header{$h} =~ /$vips/i) { |
81 print $header; |
81 print $header; |
82 local $/ = \10240; |
82 local $/ = \10240; |
83 print while <$m>; |
83 print while <$m>; |