2 # Display QSL information from the local database
4 # Copyright (c) 2003 Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 my @call = split /\s+/, uc $line;
15 return (1, $self->msg('db3', 'QSL')) unless $QSL::dbm;
17 push @out, $self->msg('qsl1');
18 foreach my $call (@call) {
19 my $q = QSL::get($call);
22 for (sort {$b->[2] <=> $a->[2]} @{$q->[1]}) {
23 push @out, sprintf "%-14s %-10s %4d %s %s", $c, $_->[0], $_->[1], cldatetime($_->[2]), $_->[3];
27 push @out, $self->msg('db2', $call, 'QSL');