prevent PC92 A/C changing our $my(alias|call)

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 942f6faa61742fa5ace3edcb91630d176eab4b43..79b9b8ba4a67498a7accde3f7753ab8a1f75dce1 100644 (file)
--- 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, $_;
                }