X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=1af0388a3449ed82a9bfdeb7a370f4579505e3a8;hb=2f4355fb63f336cce61887b189d5556faf1734d7;hp=94fe0478664473b657b6297b9189ae8e091c1696;hpb=85564500ce87c832f2a99fd96ccc1775dc896a0d;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 94fe0478..1af0388a 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -230,7 +230,7 @@ sub process_inqueue
 	
 	my $data = $self->{data};
 	my $dxchan = $self->{dxchan};
-	my ($sort, $call, $line) = $data =~ /^(\w)(\S+)\|(.*)$/;
+	my ($sort, $call, $line) = $data =~ /^(\w)([A-Z0-9\-]+)\|(.*)$/;
 
 	# the above regexp must work
 	return unless ($sort && $call && $line);
@@ -374,6 +374,7 @@ for (;;) {
 		DXCommandmode::process(); # process ongoing command mode stuff
 		DXProt::process();		# process ongoing ak1a pcxx stuff
 		DXConnect::process();
+		DXMsg::process();
 		eval { 
 			Local::process();       # do any localised processing
 		};