projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9561d4d
)
add <tr>,<es> and <ms> shortcuts to sh/dx
author
Dirk Koopman
<djk@tobit.co.uk>
Wed, 3 Jun 2020 23:14:47 +0000
(
00:14
+0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Wed, 3 Jun 2020 23:14:47 +0000
(
00:14
+0100)
Changes
patch
|
blob
|
history
cmd/show/dx.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index e06371d6d212b60e2be2b4d7cfc1951d8e920ba0..fd5711ae4414a2d408a0d9efb3298949000516b1 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-2,6
+2,7
@@
1. Make sure that all possible regexes get passed across to the search engine.
2. Fix out of order logging on sh/log queries spanning more than one month.
3. Do not read backwards on sh/dx, reading forwards seems a 1/3 quicker.
1. Make sure that all possible regexes get passed across to the search engine.
2. Fix out of order logging on sh/log queries spanning more than one month.
3. Do not read backwards on sh/dx, reading forwards seems a 1/3 quicker.
+4. Add <ms>, <tr> and <es> shortcuts to sh/dx (e.g sh/dx <tr> on 2m).
02Jun20=======================================================================
1. Fix the small whoopsie in sh/dx.
01Jun20=======================================================================
02Jun20=======================================================================
1. Fix the small whoopsie in sh/dx.
01Jun20=======================================================================
diff --git
a/cmd/show/dx.pl
b/cmd/show/dx.pl
index 6a9a3829a3a7a79f5878034703edd9a7bfb2959d..94fbb7d84f97dfe4eaab5db3de78072fc86415d9 100644
(file)
--- a/
cmd/show/dx.pl
+++ b/
cmd/show/dx.pl
@@
-50,7
+50,8
@@
sub handle
next if $from && $to > $from;
}
if ($f && !$to) {
next if $from && $to > $from;
}
if ($f && !$to) {
- ($to) = $f =~ /^(\d+)$/o || 0 if !$to; # is it a to count?
+ ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count?
+ $to ||= 0;
dbg("sh/dx to: $to") if isdbg('sh/dx');
next if $to;
}
dbg("sh/dx to: $to") if isdbg('sh/dx');
next if $to;
}
@@
-79,6
+80,22
@@
sub handle
push @flist, "info {QSL|VIA}";
next;
}
push @flist, "info {QSL|VIA}";
next;
}
+ if (lc $f eq '<es>') {
+ dbg("sh/dx <es>") if isdbg('sh/dx');
+ push @flist, "info {<ES>}";
+ next;
+ }
+ if (lc $f eq '<tr>') {
+ dbg("sh/dx <es>") if isdbg('sh/dx');
+ push @flist, "info {<TR>}";
+ next;
+ }
+ if (lc $f eq '<ms>') {
+ dbg("sh/dx <ms>") if isdbg('sh/dx');
+ push @flist, "info {<ms>}";
+ next;
+ }
+
if (lc $f eq 'iota') {
my $doiota;
if (@list && $list[0] && (($a, $b) = $list[0] =~ /(AF|AN|NA|SA|EU|AS|OC)[-\s]?(\d\d?\d?)/i)) {
if (lc $f eq 'iota') {
my $doiota;
if (@list && $list[0] && (($a, $b) = $list[0] =~ /(AF|AN|NA|SA|EU|AS|OC)[-\s]?(\d\d?\d?)/i)) {