Bug#300103: Acknowledgement (sa-exim: Greylisting.pm assumes that the connection IP is IPv4 only)

[Daniel Tryba]

A simple Q&D hack to make sure $ipbyte[1-4] are set regardless of the 
actual ip in $connectip:

--- Greylisting.pm.old  2005-03-17 19:22:39.573706307 +0100
+++ Greylisting.pm      2005-03-17 19:23:53.452208739 +0100
@@ -171,7 +171,10 @@
            # connectip is supposed to be untainted now, but I was 
still getting
            # some insecure dependecy error messages sometimes (perl 
5.8 problem apparently)
            $connectip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
-           my ($ipbyte1, $ipbyte2, $ipbyte3, $ipbyte4) = ($1, $2, $3, $4);
+           my $ipbyte1 = ($1 or "x");
+           my $ipbyte2 = ($2 or "x");
+           my $ipbyte3 = ($3 or "x");
+           my $ipbyte4 = ($4 or "x");
            my $ipdir1 = "$option{'dir'}/$ipbyte1";
            my $ipdir2 = "$ipdir1/$ipbyte2";
            my $ipdir3 = "$ipdir2/$ipbyte3";


--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]