From 22df46c61d3f1ae4115224bcc230ffe7ed6aff99 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 17 Oct 2002 00:40:39 +0000
Subject: [PATCH] add PC16/19 sentence length change

---
 Changes           | 4 ++++
 perl/DXProtout.pm | 8 ++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

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