From ff8c77ef8bad7d4ff4433ca233a1dc8f0203983d Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 14 Sep 2001 23:35:55 +0000 Subject: [PATCH] move the prompt --- perl/DXCommandmode.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index c2cab9f9..4142f043 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -128,7 +128,6 @@ sub start $self->send($self->msg('qll')) if !$user->qra || (!$user->lat && !$user->long); $self->send($self->msg('hnodee1')) if !$user->qth; $self->send($self->msg('m9')) if DXMsg::for_me($call); - $self->prompt; # decide on echo if (!$user->wantecho) { @@ -149,6 +148,8 @@ sub start # run a script send the output to the punter my $script = new Script(lc $call) || new Script('user_default'); $script->run($self) if $script; + + $self->prompt; } # -- 2.43.0