projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make the character handling better for spanish?
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index f16494f91c9361c41813878ed9705d0aff533bbb..bfc861de27271aaf7ee0c9cac912d3f41d11f24e 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-28,7
+28,7
@@
use vars qw(%u $dbm $filename %valid $lastoperinterval $lasttime);
%u = ();
$dbm = undef;
$filename = undef;
%u = ();
$dbm = undef;
$filename = undef;
-$lastoperinterval =
3
0*24*60*60;
+$lastoperinterval =
6
0*24*60*60;
$lasttime = 0;
# hash of valid elements and a simple prompt
$lasttime = 0;
# hash of valid elements and a simple prompt
@@
-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', @_);
@@
-580,6
+587,12
@@
sub is_ak1a
my $self = shift;
return $self->{sort} eq 'A';
}
my $self = shift;
return $self->{sort} eq 'A';
}
+
+sub unset_passwd
+{
+ my $self = shift;
+ delete $self->{passwd};
+}
1;
__END__
1;
__END__