projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make sure the maxconnect check is on incoming only
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 0bf306599d30ee09f7650f4f0ae04ca85c4170b4..1fca891754bed6bf9b5bcf49b072afb7a5610279 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-187,7
+187,7
@@
sub new_channel
# (fairly) politely disconnect people that are connected to too many other places at once
my $r = Route::get($call);
# (fairly) politely disconnect people that are connected to too many other places at once
my $r = Route::get($call);
- if ($r && $user) {
+ if ($
conn->{sort} =~ /^I/ && $
r && $user) {
my @n = $r->parents;
my $m = $r->isa('Route::Node') ? $maxconnect_node : $maxconnect_user;
my $c = $user->maxconnect;
my @n = $r->parents;
my $m = $r->isa('Route::Node') ? $maxconnect_node : $maxconnect_user;
my $c = $user->maxconnect;