projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added TODO list
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index c9725f271e5b804cb6581e02a859e8e2e335fbae..b996e5c536bc6d377265cadbde0d8375a8f0bbea 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-40,7
+40,7
@@
$lasttime = 0;
lat => '0,Latitude,slat',
long => '0,Longitude,slong',
qra => '0,Locator',
lat => '0,Latitude,slat',
long => '0,Longitude,slong',
qra => '0,Locator',
- email => '0,E-mail Address',
+ email => '0,E-mail Address
,parray
',
priv => '9,Privilege Level',
lastin => '0,Last Time in,cldatetime',
passwd => '9,Password,yesno',
priv => '9,Privilege Level',
lastin => '0,Last Time in,cldatetime',
passwd => '9,Password,yesno',
@@
-65,6
+65,7
@@
$lasttime = 0;
wanttalk => '0,Rec Talk,yesno',
wantwx => '0,Rec WX,yesno',
wantdx => '0,Rec DX Spots,yesno',
wanttalk => '0,Rec Talk,yesno',
wantwx => '0,Rec WX,yesno',
wantdx => '0,Rec DX Spots,yesno',
+ wantemail => '0,Rec Msgs as Email,yesno',
pagelth => '0,Current Pagelth',
pingint => '9,Node Ping interval',
nopings => '9,Ping Obs Count',
pagelth => '0,Current Pagelth',
pingint => '9,Node Ping interval',
nopings => '9,Ping Obs Count',
@@
-74,6
+75,7
@@
$lasttime = 0;
lastoper => '9,Last for/oper,cldatetime',
nothere => '0,Not Here Text',
registered => '9,Registered?,yesno',
lastoper => '9,Last for/oper,cldatetime',
nothere => '0,Not Here Text',
registered => '9,Registered?,yesno',
+ prompt => '0,Required Prompt',
);
no strict;
);
no strict;
@@
-520,6
+522,11
@@
sub wantgrid
return _want('grid', @_);
}
return _want('grid', @_);
}
+sub wantemail
+{
+ return _want('email', @_);
+}
+
sub wantann_talk
{
return _want('ann_talk', @_);
sub wantann_talk
{
return _want('ann_talk', @_);