X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=a2f7734724f1e74da0994c8ca607b44be315e7e1;hb=7497cb27ff60760f9d0280549b26c215ebae19ff;hp=5ba2657118a470c03fb2653e614df7e94c9b036b;hpb=cefda30169ac53e06d788528b38c962dcad7df48;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 5ba26571..a2f77347 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -656,6 +656,10 @@ sub normal
 					my $dxchan = DXChannel->get($s->{call});
 					$dxchan->send($field[3]) if $dxchan;
 					delete $rcmds{$field[2]} if !$dxchan;
+				} else {
+					# send unsolicited ones to the sysop
+					my $dxchan = DXChannel->get($main::myalias);
+					$dxchan->send($field[3]) if $dxchan;
 				}
 			} else {
 				my $ref = DXUser->get_current($field[1]);
@@ -840,6 +844,10 @@ sub normal
 						$dxchan = DXChannel->get($s->{call});
 						$dxchan->send($field[4]) if $dxchan;
 						delete $rcmds{$field[2]} if !$dxchan;
+					} else {
+						# send unsolicited ones to the sysop
+						my $dxchan = DXChannel->get($main::myalias);
+						$dxchan->send($field[4]) if $dxchan;
 					}
 				}
 			} else {