From 4e913f45fcd752c8a084dfb31f2c8e0da30f59b1 Mon Sep 17 00:00:00 2001 From: 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.43.0