projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a893c45
)
remove spurious dupe field defs
author
Dirk Koopman
<djk@tobit.co.uk>
Fri, 21 Jan 2022 23:03:13 +0000
(23:03 +0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Fri, 21 Jan 2022 23:03:13 +0000
(23:03 +0000)
perl/DXUser.pm
patch
|
blob
|
history
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index d147d68afe29fed5aa5ecfa47a2cd24ca6348dfd..a1fecbad1acba3eb5a75b9274b5f2a103c7fa84e 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-73,38
+73,25
@@
my $json;
lastping => '1,Last Ping at,ptimelist',
lastseen => '0,Last Seen,cldatetime',
lat => '0,Latitude,slat',
lastping => '1,Last Ping at,ptimelist',
lastseen => '0,Last Seen,cldatetime',
lat => '0,Latitude,slat',
- lat => '0,Latitude,slat',
lockout => '9,Locked out?,yesno', # won't let them in at all
long => '0,Longitude,slong',
lockout => '9,Locked out?,yesno', # won't let them in at all
long => '0,Longitude,slong',
- long => '0,Longitude,slong',
- maxconnect => '1,Max Connections',
maxconnect => '1,Max Connections',
name => '0,Name',
maxconnect => '1,Max Connections',
name => '0,Name',
- name => '0,Name',
node => '0,Last Node',
nopings => '9,Ping Obs Count',
nothere => '0,Not Here Text',
node => '0,Last Node',
nopings => '9,Ping Obs Count',
nothere => '0,Not Here Text',
- nothere => '0,Not Here Text',
pagelth => '0,Current Pagelth',
passphrase => '9,Pass Phrase,yesno',
pagelth => '0,Current Pagelth',
passphrase => '9,Pass Phrase,yesno',
- passphrase => '9,Pass Phrase,yesno',
- passwd => '9,Password,yesno',
passwd => '9,Password,yesno',
pingint => '9,Node Ping interval',
priv => '9,Privilege Level',
passwd => '9,Password,yesno',
pingint => '9,Node Ping interval',
priv => '9,Privilege Level',
- priv => '9,Privilege Level',
prompt => '0,Required Prompt',
prompt => '0,Required Prompt',
- prompt => '0,Required Prompt',
- qra => '0,Locator',
qra => '0,Locator',
qth => '0,Home QTH',
qra => '0,Locator',
qth => '0,Home QTH',
- qth => '0,Home QTH',
rbnseeme => '0,RBN See Me',
registered => '9,Registered?,yesno',
rbnseeme => '0,RBN See Me',
registered => '9,Registered?,yesno',
- registered => '9,Registered?,yesno',
startt => '0,Start Time,cldatetime',
version => '1,Version',
startt => '0,Start Time,cldatetime',
version => '1,Version',
- version => '1,Version',
wantann => '0,Req Announce,yesno',
wantann_talk => '0,Talklike Anns,yesno',
wantbeacon => '0,Want RBN Beacon,yesno',
wantann => '0,Req Announce,yesno',
wantann_talk => '0,Talklike Anns,yesno',
wantbeacon => '0,Want RBN Beacon,yesno',
@@
-131,7
+118,6
@@
my $json;
wantwwv => '0,Req WWV,yesno',
wantwx => '0,Req WX,yesno',
width => '0,Preferred Width',
wantwwv => '0,Req WWV,yesno',
wantwx => '0,Req WX,yesno',
width => '0,Preferred Width',
- width => '0,Preferred Width',
xpert => '0,Expert Status,yesno',
wantgrid => '0,Show DX Grid,yesno',
);
xpert => '0,Expert Status,yesno',
wantgrid => '0,Show DX Grid,yesno',
);
@@
-919,19
+905,19
@@
sub lastping
return $b->{$call};
}
return $b->{$call};
}
-sub registered
-{
-
my $self = shift;
-
my $val;
-
if (defined $_[0]) {
-
$val = unpad($_[0]);
-
$self->{registered} = $val;
-
}
-
if (exists $self->{registered}) {
-
$val = $self->{registered} // 0;
-
}
-
return $val // 0 ; # to stop undef warnings
-}
+
#
sub registered
+
#
{
+
#
my $self = shift;
+
#
my $val;
+
#
if (defined $_[0]) {
+
#
$val = unpad($_[0]);
+
#
$self->{registered} = $val;
+
#
}
+
#
if (exists $self->{registered}) {
+
#
$val = $self->{registered} // 0;
+
#
}
+
#
return $val // 0 ; # to stop undef warnings
+
#
}
1;
__END__
1;
__END__