projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
WIP RBN
[spider.git]
/
perl
/
DXChannel.pm
diff --git
a/perl/DXChannel.pm
b/perl/DXChannel.pm
index 0e543e9cea6f424c9dfe4cc6634b8b97ef7dc74c..73102ff461503f1cc904b60f03cb3045d4a5eac0 100644
(file)
--- 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',
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',
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;
}
($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};
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};