X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=73102ff461503f1cc904b60f03cb3045d4a5eac0;hb=4a134278a40e451ff1769c7b98d1a4f709a6b828;hp=0e543e9cea6f424c9dfe4cc6634b8b97ef7dc74c;hpb=2090157518d0d2da860345507680f4ad91b043a2;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 0e543e9c..73102ff4 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -62,6 +62,9 @@ $count = 0;
 		  here => '0,Here?,yesno',
 		  conf => '0,In Conference?,yesno',
 		  dx => '0,DX Spots,yesno',
+		  rbn => '0,RBN Spots,yesno',
+		  ft => '0,(RBN) FT4/8 Spots,yesno',
+		  cw => '0,RBN CW Spots,yesno',
 		  redirect => '0,Redirect messages to',
 		  lang => '0,Language',
 		  func => '5,Function',
@@ -679,6 +682,11 @@ sub broadcast_list
 			($filter) = $dxchan->{spotsfilter}->it(@{$fref}) if ref $fref;
 			next unless $filter;
 		}
+		if ($sort eq 'rbn') {
+		    next unless $dxchan->{dx}; # this is deliberate!
+			($filter) = $dxchan->{spotsfilter}->it(@{$fref}) if ref $fref;
+			next unless $filter;
+		}
 		next if $sort eq 'ann' && !$dxchan->{ann} && $s !~ /^To\s+LOCAL\s+de\s+(?:$main::myalias|$main::mycall)/i;
 		next if $sort eq 'wwv' && !$dxchan->{wwv};
 		next if $sort eq 'wcy' && !$dxchan->{wcy};