X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXCommandmode.pm;h=b10149ec6bcbd9bcf75b27e8839898878c21dd41;hb=1935ba236a7ef4999bceb00b6faf28038f3b052e;hp=051332b03b75c8f85ff9e32d75dbe23755a25f0d;hpb=942a06f9a573659489eb4a9185b73c4296cd31fd;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 051332b0..b10149ec 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -155,6 +155,10 @@ sub start
 		$self->{registered} = 1;
 	}
 
+	# establish slug queue, if required
+	$self->{sluggedpc11s} = [];
+	$self->{isslugged} = $DXProt::pc92_slug_changes + $main::systime if $DXProt::pc92_slug_changes;
+
 	# send the relevant MOTD
 	$self->send_motd;
 
@@ -1001,6 +1005,7 @@ sub format_dx_spot
 	
 	my $comment = substr (($_[3] || ''), 0, $clth);
 	$comment =~ s/\t/ /g;
+	
 	$comment .= ' ' x ($clth - (length($comment)));
 	
     if ($self->{user}->wantgrid) {