poprelayd

[Jirka Kosina]

On Tue, 30 Apr 2002, Jirka Kosina wrote:

> Jelikoz jsem v zivote nenapsal v perlu ani radku, tak se chci zeptat, 
> jestli nahodou nekdo nemate upraveny poprelayd (konkretne jde asi o funkci 
> scanaddr() ) tak, aby rozeznaval v logu i IP adresy bez reverze.

Kdyby to nahodou nekdo potreboval a nechtelo se mu to zkoumat:

--- ./poprelayd.old     Tue Apr 30 15:14:37 2002
+++ ./poprelayd Tue Apr 30 15:14:30 2002
@@ -176,7 +176,7 @@
     my $junk;

     if ($s =~ m/i(pop2|pop3|map)d\[[0-9]+\]: Login user=/)  {
-       $s =~ s/.*host=\[?(\S+)\]?.*/$1/;
+       $s =~ s/.*host=\[?([a-zA-Z0-9\.\-]+)\]?.*/$1/;
        ($junk, $junk, $junk, $junk, @paddrs) = gethostbyname($s);
        while (@paddrs)  {
            push(@addrs, join('.', unpack('C4', shift(@paddrs))));


-- 
JiKos.