X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;fp=perl%2FDXProtHandle.pm;h=6403ba65f152c4296c9c91ea6698bcb242f41f4f;hb=7a06c3acc97b783ff9e84fca22b93947ff0741da;hp=6f240200263758baaeb4b87a2b202fb35fdfa12e;hpb=17d726014561756adf9fa40a68940bcd88e5f7b3;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 6f240200..6403ba65 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -955,7 +955,7 @@ sub check_add_user
 		}
 		$user->lastin($main::systime); # this makes it last longer than just this invocation
 		$user->put;				# just to make sure it gets written away!!!
-		dbg("DXProt: PC92 new user record for $call created");
+		dbg(sprintf "DXProt: PC92 new user record for $call created type: %s priv: %d lockout: %d", $user->sort, $user->priv, $user->lockout);
 	}
 
 	# this is to fix a problem I introduced some build ago by using this function for users
@@ -2204,25 +2204,25 @@ sub handle_92
 			if (is_numeric($version) || is_numeric($build)) {
 				my $changed = 0;
 				if (($oldversion ne $version || $build ne $oldbuild)) {
-					dbg("PCPROT: PC92 K node $call updated version: $version (was $oldversion) build: $build (was $oldbuild)");
+					dbg("PCPROT: PC92 K rec, node $call updated version: $version (was $oldversion) build: $build (was $oldbuild)");
 					$user->version($parent->version($version));
 					$user->build($parent->build($build));
 					++$changed;
 				}
 				if ($oldsort ne 'S') {
-					dbg("PCPROT: PC92 K node $call updated sort: $sort (was $oldsort)");
+					dbg("PCPROT: PC92 K rec, node $call updated sort: $sort (was $oldsort)");
 					$user->sort('S');
 					++$changed;
 				}
 				unless ($user->K) {
-					dbg("PCPROT: PC92 K node $call updated - marked as PC92 K user");
+					dbg("PCPROT: PC92 K rec, node $call updated - marked as sending PC92 K records ");
 					$user->K(1);
 					++$changed;
 				}
 				$user->put if $changed;
 				$parent->K(1); # mark this as come in on a K
 			} else {
-				dbg("DXProt PC92 K version call $call: invalid version: '$version' or build: '$version', ignored");
+				dbg("DXProt PC92 K rec, version call $call: invalid version: '$version' or build: '$version', ignored");
 			}
 			dbg("ROUTE: reset obscount on $call now " . $parent->obscount) if isdbg('obscount');
 		}