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

aren't known.

diff --git a/Changes b/Changes
index 982e9dd6e05342b340b85ed1a14ada0dfbaecec8..8b155a089358b9eb19ca90511425a6fe9c7a21e5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,8 +1,12 @@
 07Dec98========================================================================
-1. Added set/name, set/qra, set/location, set/qth, set/homenode
+1. Added set/name, set/qra, set/location, set/qth, set/homenode, set/bbs, 
+set/email
 2. changed the Msg socket close to a shutdown (hopefully more reliable), this 
 should stop clients hanging on exit.
 3. Added Alias support for help
+4. Added lltos and stoll routines to DXBearing
+5. Added auto prompting for name, qth, location and homenode if any of these
+aren't known.
 06Dec98========================================================================
 1. Fixed DXBearing::is_qra so that it correctly detects full QRA locators
 2. Added sh/qra for doing locator distances and bearings

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 0f1912387633402372e93091cbe86574d4de318c..a6e5e2f7d18bce1123844ed5aff208f280f6ca1b 100644 (file)
--- 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));
 }
 

diff --git a/perl/Messages b/perl/Messages
index 6cd9bcd750318e814aba30b3932c777ac4475dce..1dee13e387364ec145123add75047f2bf6c9d2d1 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -14,7 +14,7 @@ package DXM;
                 already => '$_[0] already connnected',
                                anns => 'Announce flag set on $_[0]',
                                annu => 'Announce flag unset on $_[0]',
-                               bbse1 => 'Please try again, set/bbs <your bbs address>',
+                               bbse1 => 'Please enter your BBS address,, set/bbs <your bbs address>',
                                bbs => 'Your BBS Address is now \"$_[0]\"',
                                beepoff => 'Beeps are now off',
                                beepon => 'Beeps are now on',
@@ -39,7 +39,7 @@ package DXM;
                                e8 => 'Need a callsign and some text',
                                e9 => 'Need at least some text',
                                e10 => '$_[0] not connected locally',
-                               emaile1 => 'Please try again, set/email <your e-mail address>',
+                               emaile1 => 'Please enter your email address, set/email <your e-mail address>',
                                emaila => 'Your E-Mail Address is now \"$_[0]\"',
                                email => 'E-mail address set to: $_[0]',
                                helpe1 => 'Help system unavailable, tell sysop',
@@ -49,15 +49,15 @@ package DXM;
                                hereu => 'Here unset on $_[0]',
                                homebbs => 'Home BBS set to: $_[0]',
                                homenode => 'Home Node set to: $_[0]',
-                               hnodee1 => 'Please try again, set/homenode <your home DX Cluster>',
+                               hnodee1 => 'Please enter your Home Node, set/homenode <your home DX Cluster>',
                                hnode => 'Your Homenode is now \"$_[0]\"',
                                l1 => 'Sorry $_[0], you are already logged on on another channel',
                                l2 => 'Hello $_[0], this is $main::mycall in $main::myqth running DXSpider V$main::version',
-                               loce1 => 'Please try again, set/location <latitude longitude>',
+                               loce1 => 'Please enter your location,, set/location <latitude longitude>',
                                loce2 => 'Don\'t recognise \"$_[0]\" as a Lat/Long (eg 52 20 N 0 16 E)',
                                loc => 'Your Lat/Long is now \"$_[0]\"',
                                m2 => '$_[0] Information: $_[1]',
-                               namee1 => 'Please try again, set/name <your name>',
+                               namee1 => 'Please enter your name, set/name <your name>',
                                namee2 => 'Can\'t find user $_[0]!',
                                name => 'Your name is now \"$_[0]\"',
                                node => '$_[0] set as AK1A style Node',
@@ -71,9 +71,10 @@ package DXM;
                                pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
                                priv => 'Privilege level changed on $_[0]',
                                prx => '$main::mycall >',
-                               qthe1 => 'Please try again, set/qth <your qth>',
+                               qll => 'Please enter your location with set/location or set/qra',
+                               qthe1 => 'Please enter your QTH, set/qth <your qth>',
                                qth => 'Your QTH is now \"$_[0]\"',
-                               qrae1 => 'Please try again, set/qra <qra locator>',
+                               qrae1 => 'Please enter your QRA locator, set/qra <qra locator>',
                                qrae2 => 'Don\'t recognise \"$_[0]\" as a QRA locator (eg JO02LQ)',
                                qra => 'Your QRA Locator is now \"$_[0]\"',
                                rcmdo => 'RCMD \"$_[0]\" sent to $_[1]',