From: minima <minima>
Date: Thu, 17 Oct 2002 00:34:02 +0000 (+0000)
Subject: reduce the length of data in sentences to a default of 180 characters
X-Git-Tag: PRE-1-52~135
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd0c19a8aeee5313a8963841cb85daa84eb1aa88;p=spider.git

reduce the length of data in sentences to a default of 180 characters
---

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 1ef9c022..6917b88b 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -27,7 +27,7 @@ $main::branch += $BRANCH;
 
 use vars qw($sentencelth);
 
-$sentencelth = 200;
+$sentencelth = 180;
  
 #
 # All the PCxx generation routines
@@ -141,7 +141,7 @@ sub pc19
 		my $here = $ref->here;
 		my $conf = $ref->conf;
 		my $version = $ref->version;
-	    my $str = "^$here^$call^$conf^$version";
+		my $str = "^$here^$call^$conf^$version";
 		if (length($s) + length($str) >= $sentencelth) {
 			push @out, "PC19" . $s . sprintf "^%s^", get_hops(19);
 			$s = "";