From c48d57578cb3182f900e57cfc0b829d2684147bd Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 28 Jul 2004 18:05:29 +0000 Subject: [PATCH] force nodes to *be* nodes on PC19 --- perl/DXProt.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 8903f121..7278bd7b 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -949,13 +949,13 @@ sub handle_19 my $user = DXUser->get_current($origin); if (!$user) { $user = DXUser->new($origin); - $user->sort('S'); $user->priv(1); # I have relented and defaulted nodes $user->lockout(1); $user->homenode($origin); $user->node($origin); $user->wantroutepc19(1); } + $user->sort('A') unless $user->is_node; $user->put; } $parent = $op; @@ -988,12 +988,12 @@ sub handle_19 my $user = DXUser->get_current($call); if (!$user) { $user = DXUser->new($call); - $user->sort('A'); $user->priv(1); # I have relented and defaulted nodes $user->lockout(1); $user->homenode($call); $user->node($call); } + $user->sort('A') unless $user->is_node; # do we believe this call? my $genline = "PC19^$here^$call^$conf^$ver^$_[-1]^"; @@ -1007,6 +1007,7 @@ sub handle_19 } else { dbg("PCPROT: We don't believe $call on $self->{call}"); } + $user->put; next; } -- 2.43.0