#
# Display QSL information from the local database
#
# Copyright (c) 2003 Dirk Koopman G1TLH
#
#
#

my ($self, $line) = @_;
my @call = split /\s+/, uc $line;
my @out;

#$DB::single=1;

return (1, $self->msg('db3', 'QSL')) unless $QSL::dbm;

push @out, $self->msg('qsl1');
foreach my $call (@call) {
	Log('call', "$call: show/dxqsl $call");
	my $q = QSL::get($call);
	if ($q) {
		my $c = $call;
		for (sort {$b->[2] <=> $a->[2]} @{$q->[1]}) {
			push @out, sprintf "%-14s %-10s %4d  %s   %s", $c, $_->[0], $_->[1], cldatetime($_->[2]), $_->[3];
			$c = "";
		}
	} else {
		push @out, $self->msg('db2', $call, 'QSL');
	}
}

return (1, @out);
