From: minima <minima>
Date: Thu, 17 Oct 2002 00:40:39 +0000 (+0000)
Subject: add PC16/19 sentence length change
X-Git-Tag: PRE-1-52~134
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=22df46c61d3f1ae4115224bcc230ffe7ed6aff99;p=spider.git

add PC16/19 sentence length change
---

diff --git a/Changes b/Changes
index d31e0c7e..873cbd63 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+16Oct02=======================================================================
+1. decrease the default max length of PC16/19 to around 180 characters to be
+slightly friendlier to ARC, which seems to have a difficulty reconstructing
+lines from multiple packets. Also make the value settable via set/var.
 15Oct02=======================================================================
 1. made some detail changes to the raw USDB data and the routines that 
 generate and operate on them. There were some bugs involving a few 'missing'
diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 6917b88b..180ce526 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -94,13 +94,13 @@ sub pc16
 		next unless $_;
 		my $ref = $_;
 		my $str = sprintf "^%s %s %d", $ref->call, $ref->conf ? '*' : '-', $ref->here;
-		if (length($s) + length($str) >= $sentencelth) {
+		if (length($s) + length($str) > $sentencelth) {
 			push @out, "PC16^$ncall" . $s . sprintf "^%s^", get_hops(16);
 			$s = "";
 		}
 		$s .= $str;
 	}
-	push @out, "PC16^$ncall" . $s . sprintf "^%s^", get_hops(16) if length $s;
+	push @out, "PC16^$ncall" . $s . sprintf "^%s^", get_hops(16);
 	return @out;
 }
 
@@ -142,13 +142,13 @@ sub pc19
 		my $conf = $ref->conf;
 		my $version = $ref->version;
 		my $str = "^$here^$call^$conf^$version";
-		if (length($s) + length($str) >= $sentencelth) {
+		if (length($s) + length($str) > $sentencelth) {
 			push @out, "PC19" . $s . sprintf "^%s^", get_hops(19);
 			$s = "";
 		}
 		$s .= $str;
 	}
-	push @out, "PC19" . $s . sprintf "^%s^", get_hops(19) if length $s;
+	push @out, "PC19" . $s . sprintf "^%s^", get_hops(19);
 	return @out;
 }