projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
and again
[spider.git]
/
cmd
/
show
/
dx.pl
diff --git
a/cmd/show/dx.pl
b/cmd/show/dx.pl
index a70ef50f66f7f2ac848eafd7e468e5e131732f2f..b10ee7cd61260a40e7b85b0332cbcd26b07e13b6 100644
(file)
--- a/
cmd/show/dx.pl
+++ b/
cmd/show/dx.pl
@@
-32,7
+32,7
@@
while ($f = shift @list) { # next field
}
if (lc $f eq 'on' && $list[0]) { # is it freq range?
# print "yup freq\n";
}
if (lc $f eq 'on' && $list[0]) { # is it freq range?
# print "yup freq\n";
- my @r = split '/', $list[0];
+ my @r = split '/',
lc
$list[0];
# print "r0: $r[0] r1: $r[1]\n";
my @fr = Bands::get_freq($r[0], $r[1]);
if (@fr) { # yup, get rid of extranous param
# print "r0: $r[0] r1: $r[1]\n";
my @fr = Bands::get_freq($r[0], $r[1]);
if (@fr) { # yup, get rid of extranous param
@@
-65,12
+65,12
@@
while ($f = shift @list) { # next field
my ($a, $b);
# $DB::single =1;
my ($a, $b);
# $DB::single =1;
- if ($list[0] && (($a, $b) = $list[0] =~ /(AF|AN|NA|SA|EU|AS|OC)-?(\d\d\d)/oi)) {
+ if ($list[0] && (($a, $b) = $list[0] =~ /(AF|AN|NA|SA|EU|AS|OC)-?(\d
?
\d\d)/oi)) {
$a = uc $a;
$doiota = "\\b$a\[\-\ \]\?$b\\b";
shift @list;
}
$a = uc $a;
$doiota = "\\b$a\[\-\ \]\?$b\\b";
shift @list;
}
- $doiota = '\b(IOTA|(AF|AN|NA|SA|EU|AS|OC)[- ]?\d\d\d)\b' unless $doiota;
+ $doiota = '\b(IOTA|(AF|AN|NA|SA|EU|AS|OC)[- ]?\d
?
\d\d)\b' unless $doiota;
next;
}
if (lc $f eq 'qra') {
next;
}
if (lc $f eq 'qra') {
@@
-121,7
+121,7
@@
if ($spotter) {
# qsl requests
if ($doqsl) {
$expr .= " && " if $expr;
# qsl requests
if ($doqsl) {
$expr .= " && " if $expr;
- $expr .= "\$f3 =~ m{(QSL|VIA)}io";
+ $expr .= "\$f3 =~ m{(
\@|>|
QSL|VIA)}io";
}
# iota requests
}
# iota requests