add PC16/19 sentence length change

diff --git a/Changes b/Changes
index d31e0c7e87f2499ba7fc4823799323a05325f5ba..873cbd63a799bc3c2d503563657145be334f8d65 100644 (file)
--- 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 6917b88b8501b384d34fa958464911e4f54aa975..180ce526ef17357c67d474bc45c34b9994e0b368 100644 (file)
--- 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;
 }