X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;fp=perl%2FDXChannel.pm;h=6bc67a2ae316f08fd880d2d95eebe71e2821a277;hb=dbeecf2c5b0e87c38b52edf992d41b122a676fcd;hp=d680251b2fa27afcd31853d0cf0ad72593bb3115;hpb=0be137c3bbf8516ccfa5fd2a88952595ee279a54;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index d680251b..6bc67a2a 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};