From: djk <djk>
Date: Tue, 19 Jan 1999 10:09:59 +0000 (+0000)
Subject: fiddled with user counts a bit more
X-Git-Tag: R_1_23~2
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ed3964b50ca394ae47d335b70bc8282c037fe77;p=spider.git

fiddled with user counts a bit more
---

diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm
index a741e5f2..021ff7f2 100644
--- a/perl/DXCluster.pm
+++ b/perl/DXCluster.pm
@@ -251,7 +251,10 @@ sub del
 	}
 	delete $DXCluster::cluster{$call}; # remove me from the cluster table
 	dbg('cluster', "deleting node $call from cluster\n"); 
-	$nodes-- if $nodes > 0;
+	$users -= $self->{users};    # it may be PC50 updated only therefore > 0
+	$users = 0 if $users < 0;
+	$nodes--;
+	$nodes = 0 if $nodes < 0;
 }
 
 sub add_user