From ed96190995aa228ca30398b06c3cc0af1a59bf54 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 12 May 2008 23:01:57 +0100
Subject: [PATCH] add 'exact' keyword to sh/dx

this allows an exact match for a callsign.
---
 Changes             | 3 +++
 cmd/Commands_en.hlp | 2 ++
 cmd/show/dx.pl      | 6 ++++++
 perl/Version.pm     | 2 +-
 4 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 446b8752..f7335648 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+12May08=======================================================================
+1. add 'exact' keyword on sh/dx to allow for an exact match to a callsign.
+From a request by Robert HB9DZA.
 10May08=======================================================================
 1. add some privileges to (un)set/bad* and show/bad* commands. Thanks to
 Mauro IV3SCP for pointing this out to me.
diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index f1f26cc1..a1ab2305 100644
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -1999,6 +1999,7 @@ any order to the basic SHOW/DX command, they are:-
  <prefix>        - for a spotted callsign beginning with <prefix>
  *<suffix>       - for a spotted callsign ending in <suffix>
  *<string>*      - for a spotted callsign containing <string>
+ <call> exact    - for a spotted callsign *exactly* as typed.
    
  day <number>    - starting <number> days ago
  day <from>-<to> - <from> days <to> days ago
@@ -2069,6 +2070,7 @@ any order to the basic SHOW/DX command, they are:-
    SH/DX by_zone 4,5,6
    SH/DX state in,oh
    SH/DX by_state in,oh
+   SH/DX hb2008g exact
   
 === 0^SHOW/DXCC <prefix>^Interrogate the spot database by country
 This command takes the <prefix> (which can be a full or partial 
diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl
index f99a2b6c..f2629bff 100644
--- a/cmd/show/dx.pl
+++ b/cmd/show/dx.pl
@@ -28,6 +28,7 @@ my $bystate;
 my $itu;
 my $byitu;
 my $fromdxcc;
+my $exact;
 my ($doqsl, $doiota, $doqra, $dofilter);
 
 while ($f = shift @list) {		# next field
@@ -40,6 +41,10 @@ while ($f = shift @list) {		# next field
 		($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count?
 		next if $to;
 	}
+	if (lc $f eq 'exact') {
+		$exact = 1;
+		next;
+	}
 	if (lc $f eq 'dxcc') {
 		$dxcc = 1;
 		next;
@@ -180,6 +185,7 @@ if ($pre) {
 		} else {
 			$pre =~ s/\.\*\$$//;
 		}
+		$pre .= '$' if $exact;
 		$expr = "\$f1 =~ m{$pre}";
 		$pre =~ s/[\^\$]//g;
 		$hint = "m{\U$pre}";
diff --git a/perl/Version.pm b/perl/Version.pm
index 34f9aaff..219b2486 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.55';
 $subversion = '0';
-$build = '6';
+$build = '7';
 
 1;
-- 
2.34.1