normalise PC19 version nos

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 886099f2cc15759824888249e88a9a796d0c3485..2bf621e1a1883d61776c0b689bb2c3b5961e917b 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -223,7 +223,7 @@ sub init
        $main::me->{metric} = 0;
        $main::me->{pingave} = 0;
        $main::me->{registered} = 1;
-       $main::me->{version} = 5251 + $main::version;
+       $main::me->{version} = 5252 + $main::version;
        $main::me->{build} = $main::build;
 }
 
@@ -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');