X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=79b9b8ba4a67498a7accde3f7753ab8a1f75dce1;hb=a24cc09d8262093df92c767d3010c0a5fd6e42d7;hp=942f6faa61742fa5ace3edcb91630d176eab4b43;hpb=b29626c537438016f7221c667628d5e49b9f4fce;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 942f6faa..79b9b8ba 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1603,7 +1603,7 @@ sub _add_thingy
 				$user = DXUser::get($call);
 				unless ($user) {
 					$user = DXUser->new($call);
-					dbg("PCProt::_add_thingy new user $call");
+					dbg("PCProt::_add_thingy new user $call") if isdbg('route');
 				}
 			}
 			if ($is_node) {
@@ -1622,7 +1622,7 @@ sub _add_thingy
 						} else {
 							$user->sort('A');
 						}
-						dbg("PCProt::_add_thingy node $call sort updated " . $user->sort);
+						dbg("PCProt::_add_thingy node $call sort updated " . $user->sort) if isdbg('route');
 					}
 				}
 			} else {
@@ -2016,6 +2016,11 @@ sub handle_92
 				dbg("PCPROT: $_->[0] refers to me, ignored") if isdbg('chanerr');
 				next;
 			}
+			if ($_->[0] eq $main::myalias && $_->[1] || $_->[0] eq $main::mycall && $_->[1] == 0) {
+				dbg("PCPROT: $_->[0] changing type to " . $_->[1]?"Node":"User" . ", ignored") if isdbg('chanerr');
+				next;
+			}
+			
 			push @nent, $_;
 		}