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 Log('call', "$call: show/dxqsl $call");
20 my $q = QSL::get($call);
23 for (sort {$b->[2] <=> $a->[2]} @{$q->[1]}) {
24 push @out, sprintf "%-14s %-10s %4d %s %s", $c, $_->[0], $_->[1], cldatetime($_->[2]), $_->[3];
28 push @out, $self->msg('db2', $call, 'QSL');