projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bring Curses uptodate in html
[spider.git]
/
cmd
/
dx.pl
diff --git
a/cmd/dx.pl
b/cmd/dx.pl
index 6e14cda5caa4d36038326085fb39b1fbd3f2e297..85dc4cf91f47aba2df092596b78eca31b2d218f5 100644
(file)
--- a/
cmd/dx.pl
+++ b/
cmd/dx.pl
@@
-33,14
+33,14
@@
if ($f[0] =~ /^by$/i) {
}
# get the freq and callsign either way round
}
# get the freq and callsign either way round
-if (is_freq($f[1])) {
+if (is_freq($f[1])
&& $f[0] =~ m{^[\w\d]+(?:/[\w\d]+){0,2}$}
) {
$spotted = uc $f[0];
$freq = $f[1];
$spotted = uc $f[0];
$freq = $f[1];
-} elsif (is_freq($f[0])) {
+} elsif (is_freq($f[0])
&& $f[1] =~ m{^[\w\d]+(?:/[\w\d]+){0,2}$}
) {
$freq = $f[0];
$spotted = uc $f[1];
} else {
$freq = $f[0];
$spotted = uc $f[1];
} else {
- return (1, $self->msg('dx
2
'));
+ return (1, $self->msg('dx
3
'));
}
# make line the rest of the line
}
# make line the rest of the line