X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=91d268b0fc33398f9a4721c2f85daf131c15c6eb;hb=337f38bfac57a5e5df34c63094fb869b0e2f6bee;hp=639820ad15fff7ce177f95432574a2df862769cd;hpb=a9b7071fedfdb2150f3ef3d74e0d626b4f2dc0ea;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 639820ad..91d268b0 100644
--- 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));
 }