projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add more code gradually
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index e62123bfc1ef1a8235bb3c942b93f501db367f38..eb43c595b7e1f3e6fde712a4f3255017cc6e4980 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-21,7
+21,7
@@
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
||
(0,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/
,
(0,0));
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
@@
-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;