]> dxcluster.org Git - spider.git/commitdiff
upper cased callsigns
authorminima <minima>
Mon, 6 Nov 2000 14:36:22 +0000 (14:36 +0000)
committerminima <minima>
Mon, 6 Nov 2000 14:36:22 +0000 (14:36 +0000)
cmd/show/call.pl
cmd/show/qrz.pl

index d45f756c597eaa74f61054a9e8cac5cd1423eea5..f2e96e15829d04a563b184b62fab07559080705a 100644 (file)
@@ -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;
                }
index 45363143c6824c0b672dffaac6bd3cc43b041005..5301c2cd6f72d35c39b562eec5eb3db15664dc4a 100644 (file)
@@ -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";