projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b4826d1
)
5. Added auto prompting for name, qth, location and homenode if any of these
author
djk
<djk>
Mon, 7 Dec 1998 01:29:20 +0000
(
01:29
+0000)
committer
djk
<djk>
Mon, 7 Dec 1998 01:29:20 +0000
(
01:29
+0000)
aren't known.
Changes
patch
|
blob
|
history
perl/DXCommandmode.pm
patch
|
blob
|
history
perl/Messages
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 982e9dd6e05342b340b85ed1a14ada0dfbaecec8..8b155a089358b9eb19ca90511425a6fe9c7a21e5 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,8
+1,12
@@
07Dec98========================================================================
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
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
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");
# 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));
}
$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]',
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',
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',
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',
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]',
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',
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]',
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',
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 >',
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]\"',
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]',
qrae2 => 'Don\'t recognise \"$_[0]\" as a QRA locator (eg JO02LQ)',
qra => 'Your QRA Locator is now \"$_[0]\"',
rcmdo => 'RCMD \"$_[0]\" sent to $_[1]',