projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
move ::process things back into persec
[spider.git]
/
perl
/
DXChannel.pm
diff --git
a/perl/DXChannel.pm
b/perl/DXChannel.pm
index a9dbd86d48eb2de34b2f2646ce14cbef07048568..fbdbeee310bf430b5bac3d5f7282347916f47b04 100644
(file)
--- a/
perl/DXChannel.pm
+++ b/
perl/DXChannel.pm
@@
-300,62
+300,58
@@
sub del
# is it a bbs
sub is_bbs
{
# is it a bbs
sub is_bbs
{
- my $self = shift;
- return $self->{sort} eq 'B';
+ return $_[0]->{sort} eq 'B';
}
sub is_node
{
}
sub is_node
{
- my $self = shift;
- return $self->{sort} =~ /^[ACRSX]$/;
+ return $_[0]->{sort} =~ /^[ACRSX]$/;
}
# is it an ak1a node ?
sub is_ak1a
{
}
# is it an ak1a node ?
sub is_ak1a
{
- my $self = shift;
- return $self->{sort} eq 'A';
+ return $_[0]->{sort} eq 'A';
}
# is it a user?
sub is_user
{
}
# is it a user?
sub is_user
{
- my $self = shift;
- return $self->{sort} =~ /^[UW]$/;
+ return $_[0]->{sort} =~ /^[UW]$/;
}
# is it a clx node
sub is_clx
{
}
# is it a clx node
sub is_clx
{
- my $self = shift;
- return $self->{sort} eq 'C';
+ return $_[0]->{sort} eq 'C';
}
# it is a Web connected user
sub is_web
{
}
# it is a Web connected user
sub is_web
{
- my $self = shift;
- return $self->{sort} eq 'W';
+ return $_[0]->{sort} eq 'W';
}
# is it a spider node
sub is_spider
{
}
# is it a spider node
sub is_spider
{
- my $self = shift;
- return $self->{sort} eq 'S';
+ return $_[0]->{sort} eq 'S';
}
# is it a DXNet node
sub is_dxnet
{
}
# is it a DXNet node
sub is_dxnet
{
- my $self = shift;
- return $self->{sort} eq 'X';
+ return $_[0]->{sort} eq 'X';
}
# is it a ar-cluster node
sub is_arcluster
{
}
# is it a ar-cluster node
sub is_arcluster
{
- my $self = shift;
- return $self->{sort} eq 'R';
+ return $_[0]->{sort} eq 'R';
+}
+
+sub is_rbn
+{
+ return $_[0]->{sort} eq 'N';
}
# for perl 5.004's benefit
}
# for perl 5.004's benefit