projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
575a26e
)
added callsign to logging
author
minima
<minima>
Mon, 6 Nov 2000 14:25:05 +0000
(14:25 +0000)
committer
minima
<minima>
Mon, 6 Nov 2000 14:25:05 +0000
(14:25 +0000)
cmd/show/call.pl
patch
|
blob
|
history
cmd/show/qrz.pl
patch
|
blob
|
history
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 ($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;
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);
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;
}
while (my $result = $t->getline) {
push @out,$result;
}
diff --git
a/cmd/show/qrz.pl
b/cmd/show/qrz.pl
index 51a63c41afd3521fbb1e7291dde0a2066589ff01..45363143c6824c0b672dffaac6bd3cc43b041005 100644
(file)
--- 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
#
#
# 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 ($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;
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");
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";
my $state = "call";
while (my $result = $t->getline) {
# print "$state: $result";