projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
841b610
)
fix ipv4 addresses masquerading as ipv6
author
Dirk Koopman
<djk@tobit.co.uk>
Sun, 28 Jun 2020 12:01:54 +0000
(13:01 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Sun, 28 Jun 2020 12:01:54 +0000
(13:01 +0100)
perl/RBN.pm
patch
|
blob
|
history
diff --git
a/perl/RBN.pm
b/perl/RBN.pm
index 91d1a9fd2a18c224df5b81dcba7fd7e0c1e2090c..6773118f0315ea621c4b658d1e9318141b76a03f 100644
(file)
--- a/
perl/RBN.pm
+++ b/
perl/RBN.pm
@@
-37,7
+37,7
@@
our $beacontime = 5*60; # same as minspottime, but for beacons (and shorter)
our $dwelltime = 6; # the amount of time to wait for duplicates before issuing
# a spot to the user (no doubt waiting with bated breath).
our $dwelltime = 6; # the amount of time to wait for duplicates before issuing
# a spot to the user (no doubt waiting with bated breath).
-our $filterdef = $Spot::filterdef; # we use the same filter as the Spot system. Can't think why.
+our $filterdef = $Spot::filterdef; # we use the same filter as the Spot system. Can't think why
:-)
.
sub new
{
sub new
{
@@
-58,6
+58,8
@@
sub new
$self->{minspottime} = $minspottime;
$self->{beacontime} = $beacontime;
$self->{showstats} = 0;
$self->{minspottime} = $minspottime;
$self->{beacontime} = $beacontime;
$self->{showstats} = 0;
+ $self->{pingint} = 0;
+ $self->{nopings} = 0;
return $self;
}
return $self;
}
@@
-84,7
+86,10
@@
sub start
($h) = $line =~ /host=([\da..fA..F:]+)/;
$line =~ s/\s*host=[\da..fA..F:]+// if $h;
}
($h) = $line =~ /host=([\da..fA..F:]+)/;
$line =~ s/\s*host=[\da..fA..F:]+// if $h;
}
- $self->{hostname} = $h if $h;
+ if ($h) {
+ $h =~ s/^::ffff://;
+ $self->{hostname} = $h;
+ }
}
$self->{width} = 80 unless $self->{width} && $self->{width} > 80;
$self->{consort} = $line; # save the connection type
}
$self->{width} = 80 unless $self->{width} && $self->{width} > 80;
$self->{consort} = $line; # save the connection type