projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
strip spotters ssid from WWV
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index e1b44dfad41f94109d6771820c5700ae36b86bf3..0ef376f0409fa4809897392149d2cadecbc36dc1 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-18,7
+18,7
@@
use Carp;
use strict;
use vars qw(%u $dbm $filename %valid);
use strict;
use vars qw(%u $dbm $filename %valid);
-%u =
undef
;
+%u =
()
;
$dbm = undef;
$filename = undef;
$dbm = undef;
$filename = undef;
@@
-36,7
+36,7
@@
$filename = undef;
lastin => '0,Last Time in,cldatetime',
passwd => '9,Password',
addr => '0,Full Address',
lastin => '0,Last Time in,cldatetime',
passwd => '9,Password',
addr => '0,Full Address',
-
sort
=> '0,Type of User', # A - ak1a, U - User, S - spider cluster, B - BBS
+
'sort'
=> '0,Type of User', # A - ak1a, U - User, S - spider cluster, B - BBS
xpert => '0,Expert Status,yesno',
bbs => '0,Home BBS',
node => '0,Last Node',
xpert => '0,Expert Status,yesno',
bbs => '0,Home BBS',
node => '0,Last Node',
@@
-106,7
+106,7
@@
sub new
my $self = {};
$self->{call} = $call;
my $self = {};
$self->{call} = $call;
- $self->{
sort
} = 'U';
+ $self->{
'sort'
} = 'U';
$self->{dxok} = 1;
$self->{annok} = 1;
$self->{lang} = $main::lang;
$self->{dxok} = 1;
$self->{annok} = 1;
$self->{lang} = $main::lang;
@@
-272,7
+272,7
@@
sub field_prompt
sub sort
{
my $self = shift;
sub sort
{
my $self = shift;
- @_ ? $self->{
sort} = shift : $self->{sort
} ;
+ @_ ? $self->{
'sort'} = shift : $self->{'sort'
} ;
}
1;
__END__
}
1;
__END__