X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=2bf621e1a1883d61776c0b689bb2c3b5961e917b;hb=bcf099764f49e68ef016964e420b906e7900623e;hp=886099f2cc15759824888249e88a9a796d0c3485;hpb=a12f9d08a1b1d51b9c07740b50b87f5090a59e78;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 886099f2..2bf621e1 100644
--- 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');