From 08ef12723f860ed402ddb5f80ff163b1851e17ad Mon Sep 17 00:00:00 2001 From: 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 , 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 , 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