add interval processing

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 937bbfea034b21da0d447bdf95f3483a95ee9c6c..72144d91ea2f302b65a03552cd9728f94797c96c 100644 (file)
--- 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;