From 2e60042c452f5f5c10747474fd622055c18229ed Mon Sep 17 00:00:00 2001 From: djk Date: Sun, 18 Jul 1999 14:08:10 +0000 Subject: [PATCH] added the 'qsl' feature to sh/dx --- cmd/Commands_en.hlp | 4 ++++ cmd/show/dx.pl | 11 +++++++++++ 2 files changed, 15 insertions(+) diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp index b41d0d83..3acb929b 100644 --- a/cmd/Commands_en.hlp +++ b/cmd/Commands_en.hlp @@ -379,12 +379,16 @@ day - - days days ago info - any spots containing in the info or remarks spotter - any spots spotted by + +qsl - this automatically looks for any qsl info on the call + held in the database. e.g. SH/DX 9m0 SH/DX on 20m info iota SH/DX 9a on vhf day 30 + SH/DX rf1p qsl === 0^SHOW/DXCC ^Interrogate the spot database by country This command takes the (which can be a full or partial diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl index 700138b6..52467faa 100644 --- a/cmd/show/dx.pl +++ b/cmd/show/dx.pl @@ -18,6 +18,7 @@ my $pre; my $spotter; my $info; my $expr; +my $qsl; while ($f = shift @list) { # next field # print "f: $f list: ", join(',', @list), "\n"; @@ -56,6 +57,10 @@ while ($f = shift @list) { # next field $spotter = uc shift @list; next; } + if (lc $f eq 'qsl') { + $doqsl = 1; + next; + } if (!$pre) { $pre = uc $f; } @@ -96,6 +101,12 @@ if ($spotter) { $expr .= "\$f4 =~ m{$spotter}o"; } +# qsl requests +if ($doqsl) { + $expr .= " && " if $expr; + $expr .= "\$f3 =~ m{(QSL|VIA)}io"; +} + #print "expr: $expr from: $from to: $to fromday: $fromday today: $today\n"; # now do the search -- 2.43.0