add all the basic aranea routing + local configuration broadcasts

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 886099f2cc15759824888249e88a9a796d0c3485..32d63b1f4d5c37608eb25d73f5cbe0649b71c99a 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -313,6 +313,9 @@ sub start
        $self->state('init');
        $self->{pc50_t} = $main::systime;
 
+       my $thing = Thingy::Hello->new(origin=>$main::mycall, user=>$call);
+       $thing->broadcast($self);
+       
        # send info to all logged in thingies
        $self->tell_login('loginn');