X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=a6e5e2f7d18bce1123844ed5aff208f280f6ca1b;hb=6e4fd89c5c4e7f05035b002a43bb57f60539ddc1;hp=0f1912387633402372e93091cbe86574d4de318c;hpb=b4826d1f4125788e14fed3adbb99e66242904e74;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 0f191238..a6e5e2f7 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -82,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));
 }