From: minima <minima>
Date: Wed, 28 Jul 2004 18:05:29 +0000 (+0000)
Subject: force nodes to *be* nodes on PC19
X-Git-Tag: R_1_51B~24
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=c48d57578cb3182f900e57cfc0b829d2684147bd

force nodes to *be* nodes on PC19
---

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;
 		}