X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=2d43b0f07cae85dc472abeb4f01ec307847fb6fc;hb=8832827e5bec29e9a9e2a62201c6ac7baf9b2fa3;hp=c35d21ca1517d7d286185fbb1d1426d685793397;hpb=1b28f13d136ceecc638e66fa427f226bdca83346;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index c35d21ca..2d43b0f0 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -168,6 +168,7 @@ sub alloc
 	$self->{oldstate} = 0;
 	$self->{lang} = $main::lang if !$self->{lang};
 	$self->{func} = "";
+	$self->{width} = 80;
 
 	# add in all the dxcc, itu, zone info
 	my @dxcc = Prefix::extract($call);
@@ -718,6 +719,8 @@ sub process_one
 			$self->enhanced($line);
 		} elsif ($sort eq 'A' || $sort eq 'O' || $sort eq 'W') {
 			$self->start($line, $sort);
+		} elsif ($sort eq 'C') {
+			$self->width($line); # change number of columns
 		} elsif ($sort eq 'Z') {
 			$self->disconnect;
 		} elsif ($sort eq 'D') {