X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=e6f98c95197b106fd57430b0784f5c5a60144aed;hb=6bcc8c5655882b27482f538335ba6e0083f3f3cc;hp=8903f12195fcb539107345b5bbc584ac19ae3382;hpb=23d5848190b73200389fdfc2291e3453b3b91b15;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 8903f121..e6f98c95 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -73,7 +73,7 @@ $eph_pc34_restime = 30;
 $pingint = 5*60;
 $obscount = 2;
 $chatdupeage = 20 * 60 * 60;
-$investigation_int = 7*86400;	# time between checks to see if we can see this node
+$investigation_int = 12*60*60;	# time between checks to see if we can see this node
 $pc19_version = 5466;			# the visible version no for outgoing PC19s generated from pc59
 
 @checklist = 
@@ -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;
 		}