add in last config time

[spider.git] / perl / Aranea.pm

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 087eefc3d2f16c639f01384a77107648d95f5771..787fc5389986f01c869d75b1bc91222c6a0da8e3 100644 (file)
--- 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