X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAranea.pm;h=5ee04b1c1a43b654b0c7e1d1c0231ac6d7145fea;hb=c4a169b536b6189937c6e789010c370ff3f2259e;hp=087eefc3d2f16c639f01384a77107648d95f5771;hpb=4d22d5fd3874e8292d82f84a777b99ff7d10402a;p=spider.git diff --git a/perl/Aranea.pm b/perl/Aranea.pm index 087eefc3..5ee04b1c 100644 --- a/perl/Aranea.pm +++ b/perl/Aranea.pm @@ -59,7 +59,6 @@ sub new # add this node to the table, the values get filled in later my $pkg = shift; my $call = shift; - $main::routeroot->add($call, '5251', Route::here(1)) if $call ne $main::mycall; $self->{'sort'} = 'W'; return $self; } @@ -73,7 +72,7 @@ sub start # log it my $host = $self->{conn}->{peerhost} || "unknown"; Log('Aranea', "$call connected from $host"); - + # remember type of connection $self->{consort} = $line; $self->{outbound} = $sort eq 'O';