added callsign to logging

[spider.git] / cmd / show / call.pl

diff --git a/cmd/show/call.pl b/cmd/show/call.pl
index 28c409f06273d8a6c53418e386bfe38771f4f523..d45f756c597eaa74f61054a9e8cac5cd1423eea5 100644 (file)
--- 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;
                }