X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=1fca891754bed6bf9b5bcf49b072afb7a5610279;hb=b863ad60651637704882305af0f1ff84a1e45a56;hp=0bf306599d30ee09f7650f4f0ae04ca85c4170b4;hpb=963ead7224e53e257c7c661683174a75c2935cda;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 0bf30659..1fca8917 100755 --- 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); - 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;