X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FAranea.pm;h=787fc5389986f01c869d75b1bc91222c6a0da8e3;hb=5aaaa0212b6bda5def233ffce515d889b8e547e7;hp=087eefc3d2f16c639f01384a77107648d95f5771;hpb=4d22d5fd3874e8292d82f84a777b99ff7d10402a;p=spider.git

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 087eefc3..787fc538 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';
@@ -123,8 +122,9 @@ sub start
 
 	# broadcast our configuration to the world
 	unless ($self->{outbound}) {
-		my $thing = Thingy::Rt->new_lcf;
+		my $thing = Thingy::Rt->new_cf;
 		$thing->broadcast;
+		$self->lastcf($main::systime);
 	}
 	
 	# run a script send the output to the debug file