X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=72144d91ea2f302b65a03552cd9728f94797c96c;hb=319cdc6c2167b84d93ee1d9c6d219405f4272b82;hp=937bbfea034b21da0d447bdf95f3483a95ee9c6c;hpb=c3c15883cf25add24fc49e32eb0d17dce6839a62;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 937bbfea..72144d91 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -70,9 +70,6 @@ sub new
 	my $call = shift;
 	my @rout = $main::routeroot->add_user($call, Route::here(1));
 
-	# ALWAYS output the user
-	my $thing = Thingy::Hello->new(user => $call);
-	$thing->broadcast($self);
 	
 	my $ref = Route::User::get($call);
 	$main::me->route_pc16($main::mycall, undef, $main::routeroot, $ref) if $ref;
@@ -178,6 +175,11 @@ sub start
 		$user->lastoper($main::systime + ((int rand(10)) * 86400));
 	}
 
+	# ALWAYS output the user
+	my $thing = Thingy::Hello->new(user => $call, h => $self->{here});
+	$thing->broadcast($self);
+	$self->lasthello($main::systime);
+
 	# run a script send the output to the punter
 	my $script = new Script(lc $call) || new Script('user_default');
 	$script->run($self) if $script;