X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;h=67014fc3a569eb4988c0877aa148a05e89a36b87;hb=f18ba64dd93bbf7c47e6b5143bfc99af817888e8;hp=617a0aed43a0718c47cebaf5ea28413d95165a39;hpb=e1d5c2a325cb6b8674eab55c23f12445aae01f52;p=spider.git

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 617a0aed..67014fc3 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -63,7 +63,7 @@ sub max
 # object with that callsign. The upper layers are expected to do something
 # sensible with this!
 #
-# called as $parent->add(call, dxchan, version, flags)
+# called as $parent->add(call, version, flags, ip)
 #
 
 sub add
@@ -79,6 +79,7 @@ sub add
 	}
 	$self = $parent->new($call, @_);
 	$parent->_addnode($self);
+	dbg("CLUSTER: node $call added") if isdbg('cluster');
 	return $self;
 }
 
@@ -110,6 +111,7 @@ sub del
 		$self->_del_users;
 		delete $list{$ncall};
 		push @nodes, $self;
+		dbg("CLUSTER: node $ncall deleted") if isdbg('cluster');
 	}
 	return @nodes;
 }
@@ -298,7 +300,7 @@ sub get
 	my $call = shift;
 	$call = shift if ref $call;
 	my $ref = $list{uc $call};
-	dbg("Failed to get Node $call" ) if !$ref && isdbg('routerr');
+	dbg("ROUTE: Failed to get Node $call" ) if !$ref && isdbg('routerr');
 	return $ref;
 }
 
@@ -389,7 +391,7 @@ sub DESTROY
 	my $pkg = ref $self;
 	my $call = $self->{call} || "Unknown";
 
-	dbg("destroying $pkg with $call") if isdbg('routelow');
+	dbg("ROUTE: destroying $pkg with $call") if isdbg('routelow');
 }
 
 #