X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=8c5e56d9abe3cdf5da625734b33670350bbc189b;hb=be8bb8ddece08d2893896418423a95548cbf316f;hp=5347ce21f5e55768b7daf30001ee97ff626357b2;hpb=b72f2581870f11b7e78ca7add1e9fea856145f02;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 5347ce21..8c5e56d9 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -422,7 +422,7 @@ sub pc92d
 # send a config
 sub pc92c
 {
-	return _gen_pc92('C', 1, @_);
+	return _gen_pc92('C', 0, @_);
 }
 
 # send a keep alive
@@ -430,7 +430,7 @@ sub pc92k
 {
 	my $nref = shift;
 	my $s = "PC92^$main::mycall^" . gen_pc9x_t() . "^K";
-	$s .= "^" . _encode_pc92_call($nref, 1);
+	$s .= "^" . _encode_pc92_call($nref, 1) . ":$main::me->{build}";
 	$s .= "^" . scalar $nref->nodes;
 	$s .= "^" . scalar $nref->users;
 	return $s . '^H99^';