--- ../jdresolve-0.6.1/jdresolve 2000-10-16 07:43:31.000000000 -0200 +++ jdresolve 2005-01-11 02:55:12.000000000 -0200 @@ -627,7 +627,12 @@ $class{$_}{COUNT} = 1; $class{$_}{SOCKET} = undef; $class{$_}{RESOLVED} = 'p'; - + if ($1 == '0') { + $class{$_}{RESOLVED} = 'F'; + debug("LAME CLASS 0.x.y!", 1); + next; + } + ($class{$_}{DBNAME}, $class{$_}{DBTYPE}, $class{$_}{DBTIME}) = dbread($_); if ($opts{dbfirst} and defined $class{$_}{DBNAME}) { @@ -835,6 +840,8 @@ # Checks sockets for DNS replies and processes them # RETURNS: 1 (always) + debug("Sockets active: " . $sel->count, 3); + # Check pending replies, give it 5 seconds at most for ($sel->can_read(5)) { my $resolved = 0; @@ -952,8 +959,13 @@ # Nothing pending for this line if we got here for (@{$line{HOSTS}}) { + # escape the host periods + my $host = $_; + $host =~ s/\./\\\./g; + #debug("Escaped host IP to: $host\n", 4); + # Update line with resolved hosts - $hosts{$_}{RESOLVED} ne 'F' and $line{TEXT} =~ s/$_/$hosts{$_}{NAME}/; + $hosts{$_}{RESOLVED} ne 'F' and $line{TEXT} =~ s/$host/$hosts{$_}{NAME}/; # We don't need this host anymore removehost($_);