From 4e913f45fcd752c8a084dfb31f2c8e0da30f59b1 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 6 Nov 2000 14:36:22 +0000
Subject: [PATCH] upper cased callsigns

---
 cmd/show/call.pl | 2 +-
 cmd/show/qrz.pl  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cmd/show/call.pl b/cmd/show/call.pl
index d45f756c..f2e96e15 100644
--- a/cmd/show/call.pl
+++ b/cmd/show/call.pl
@@ -24,7 +24,7 @@ foreach $l (@list) {
 			 Timeout  =>  5);
 	if ($t) {
 		$t->print(uc $l);
-		Log('call', "$call: show/call $l");
+		Log('call', "$call: show/call \U$l");
 		while (my $result = $t->getline) {
 			push @out,$result;
 		}
diff --git a/cmd/show/qrz.pl b/cmd/show/qrz.pl
index 45363143..5301c2cd 100644
--- a/cmd/show/qrz.pl
+++ b/cmd/show/qrz.pl
@@ -24,7 +24,7 @@ foreach $l (@list) {
 			 Timeout  =>  5);
 	if ($t) {
 		$t->print("GET /database?callsign=$l HTTP/1.0\n\n");
-		Log('call', "$call: show/qrz $l");
+		Log('call', "$call: show/qrz \U$l");
 		my $state = "call";
 		while (my $result = $t->getline) {
 #			print "$state: $result";
-- 
2.34.1