Subversion Repositories sa-exim

Compare Revisions

This comparison shows the changes necessary to convert path

→ /trunk/Greylisting.pm @ 40

→ /trunk/Greylisting.pm @ 41

↔ Reverse comparison
Compare Path: Rev

With Path: Rev

Ignore whitespace Rev 40 → Rev 41

 /trunk/Greylisting.pm
 ,6 → 160,8
             # work around bug in perl untaint in perl 5.8
             $envfrom=undef;
             $envfrom=$tmpvar;
+            $envfrom =~ s/^([a-z0-9._]*)[^@]*/$1/i;
             $rcptto  =~ tr/!#%()*+,-.0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_abcdefghijklmnopqrstuvwxyz{|}~/_/c;
             $rcptto =~ /(.+)/;
             $tmpvar = ($1 or "");