projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix range over different sized numbers in sh/dx
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index e62123bfc1ef1a8235bb3c942b93f501db367f38..b254ae5ab1723b33b159058014af9a146295afb4 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-592,6
+592,8
@@
sub sort
}
# some accessors
}
# some accessors
+
+# want is default = 1
sub _want
{
my $n = shift;
sub _want
{
my $n = shift;
@@
-602,6
+604,17
@@
sub _want
return exists $self->{$s} ? $self->{$s} : 1;
}
return exists $self->{$s} ? $self->{$s} : 1;
}
+# wantnot is default = 0
+sub _wantnot
+{
+ my $n = shift;
+ my $self = shift;
+ my $val = shift;
+ my $s = "want$n";
+ $self->{$s} = $val if defined $val;
+ return exists $self->{$s} ? $self->{$s} : 0;
+}
+
sub wantbeep
{
return _want('beep', @_);
sub wantbeep
{
return _want('beep', @_);
@@
-662,6
+675,11
@@
sub wantpc16
return _want('pc16', @_);
}
return _want('pc16', @_);
}
+sub wantpc90
+{
+ return _wantnot('pc90', @_);
+}
+
sub wantsendpc16
{
return _want('sendpc16', @_);
sub wantsendpc16
{
return _want('sendpc16', @_);
@@
-687,6
+705,11
@@
sub wantdxitu
return _want('dxitu', @_);
}
return _want('dxitu', @_);
}
+sub wantnp
+{
+ return _wantnot('np', @_);
+}
+
sub wantlogininfo
{
my $self = shift;
sub wantlogininfo
{
my $self = shift;