2 # show the usdb info for each callsign or prefix entered
6 # Copyright (c) 2002 Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 my @list = split /\s+/, $line; # generate a list of callsigns
15 return (1, $self->msg('db3', 'FCC USDB')) unless $USDB::present;
17 #print "line: $line\n";
20 my ($city, $state) = USDB::get($l);
22 push @out, sprintf "%-7s -> %s, %s", $l,
23 join (' ', map {ucfirst} split(/\s+/, lc $city)), $state;
25 push @out, sprintf "%-7s -> Not Found", $l;