5. Added auto prompting for name, qth, location and homenode if any of these

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 639820ad15fff7ce177f95432574a2df862769cd..a6e5e2f7d18bce1123844ed5aff208f280f6ca1b 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -19,6 +19,7 @@ use DXDebug;
 use DXM;
 use DXLog;
 use DXLogPrint;
+use DXBearing;
 use CmdAlias;
 use FileHandle;
 use Carp;
@@ -81,6 +82,12 @@ sub start
        # send prompts and things
        my $info = DXCluster::cluster();
        $self->send("Cluster:$info");
+       $self->send($self->msg('namee1')) if !$user->name;
+       $self->send($self->msg('qthe1')) if !$user->qth;
+       $self->send($self->msg('qll')) if !$user->qra || (!$user->lat && !$user->long);
+       $self->send($self->msg('hnodee1')) if !$user->qth;
+       
+       
        $self->send($self->msg('pr', $call));
 }