From 08ef12723f860ed402ddb5f80ff163b1851e17ad Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 6 Nov 2000 14:25:05 +0000
Subject: [PATCH] added callsign to logging

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

diff --git a/cmd/show/call.pl b/cmd/show/call.pl
index 28c409f0..d45f756c 100644
--- a/cmd/show/call.pl
+++ b/cmd/show/call.pl
@@ -8,6 +8,7 @@
 my ($self, $line) = @_;
 my @list = split /\s+/, $line;		      # generate a list of callsigns
 my $l;
+my $call = $self->call;
 my @out;
 
 return (1, "SHOW/CALL <callsign>, e.g. SH/CALL g1tlh") unless @list;
@@ -23,7 +24,7 @@ foreach $l (@list) {
 			 Timeout  =>  5);
 	if ($t) {
 		$t->print(uc $l);
-		Log('call', "show/call $l");
+		Log('call', "$call: show/call $l");
 		while (my $result = $t->getline) {
 			push @out,$result;
 		}
diff --git a/cmd/show/qrz.pl b/cmd/show/qrz.pl
index 51a63c41..45363143 100644
--- a/cmd/show/qrz.pl
+++ b/cmd/show/qrz.pl
@@ -1,5 +1,5 @@
 #
-# Query the PineKnot Database server for a callsign
+# Query the QRZ Database server for a callsign
 #
 # from an idea by Steve Franke K9AN and information from Angel EA7WA
 #
@@ -8,6 +8,7 @@
 my ($self, $line) = @_;
 my @list = split /\s+/, $line;		      # generate a list of callsigns
 my $l;
+my $call = $self->call;
 my @out;
 
 return (1, "SHOW/QRZ <callsign>, e.g. SH/QRZ g1tlh") unless @list;
@@ -23,7 +24,7 @@ foreach $l (@list) {
 			 Timeout  =>  5);
 	if ($t) {
 		$t->print("GET /database?callsign=$l HTTP/1.0\n\n");
-		Log('call', "show/qrz $l");
+		Log('call', "$call: show/qrz $l");
 		my $state = "call";
 		while (my $result = $t->getline) {
 #			print "$state: $result";
-- 
2.43.0