projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removed extraneous help files from load
[spider.git]
/
perl
/
DXCluster.pm
diff --git
a/perl/DXCluster.pm
b/perl/DXCluster.pm
index 25dafaed20d249cdafd994823d42dfdd068e9c2c..153c70e9c80b5309ca0d0a8ffc19f31438288e96 100644
(file)
--- a/
perl/DXCluster.pm
+++ b/
perl/DXCluster.pm
@@
-57,7
+57,7
@@
sub get_exact
# belt and braces
$call = uc $call;
# belt and braces
$call = uc $call;
- # search for 'as is'
+ # search for 'as is'
only
return $cluster{$call};
}
return $cluster{$call};
}
@@
-224,6
+224,8
@@
sub new
my $self = $pkg->alloc($dxchan, $call, $confmode, $here);
$self->{pcversion} = $pcversion;
$self->{list} = { } ;
my $self = $pkg->alloc($dxchan, $call, $confmode, $here);
$self->{pcversion} = $pcversion;
$self->{list} = { } ;
+ $self->{mynode} = $self; # for sh/station
+ $self->{users} = 0;
$nodes++;
dbg('cluster', "allocating node $call to cluster\n");
return $self;
$nodes++;
dbg('cluster', "allocating node $call to cluster\n");
return $self;
@@
-265,7
+267,7
@@
sub update_users
} else {
$self->{users} = $count;
}
} else {
$self->{users} = $count;
}
- $users += $self->{users};
+ $users += $self->{users}
if $self->{users}
;
$maxusers = $users+$nodes if $users+$nodes > $maxusers;
}
$maxusers = $users+$nodes if $users+$nodes > $maxusers;
}