X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=42d5c65ed6f772bdcc52987dddaacf23a602da65;hb=8cf374587593eacd30423223278ed63df45babc6;hp=bcb4dc006fc1482f7f2929f35c69f37be55a318a;hpb=813a3e444bc223a8c1032348a40948c91b9cb257;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index bcb4dc00..42d5c65e 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -275,7 +275,7 @@ sub process
 						$ref->store($ref->{lines});
 						add_dir($ref);
 						my $dxchan = DXChannel->get($ref->{to});
-						$dxchan->send($dxchan->msg('m9')) if $dxchan;
+						$dxchan->send($dxchan->msg('m9')) if $dxchan && $dxchan->is_user;
 						Log('msg', "Message $ref->{msgno} from $ref->{from} received from $f[2] for $ref->{to}");
 					}
 				}
@@ -302,6 +302,9 @@ sub process
 			} else {
 				$self->send(DXProt::pc42($f[2], $f[1], $f[3]));	# unknown stream
 			} 
+
+			# send next one if present
+			queue_msg(0);
 			last SWITCH;
 		}