]> dxcluster.org Git - spider.git/commitdiff
sort the results by date
authorminima <minima>
Tue, 11 Mar 2003 00:37:34 +0000 (00:37 +0000)
committerminima <minima>
Tue, 11 Mar 2003 00:37:34 +0000 (00:37 +0000)
cmd/show/qsl.pl

index 082dc8baacf293a6468ce951fcfbfa3b055c0656..86905d512f08bc79940af70af1f94ddeb516cb4b 100644 (file)
@@ -19,7 +19,7 @@ foreach my $call (@call) {
        my $q = QSL::get($call);
        if ($q) {
                my $c = $call;
-               for (@{$q->[1]}) {
+               for (sort {$b->[2] <=> $a->[2]} @{$q->[1]}) {
                        push @out, sprintf "%-14s %-10s %4d  %s   %s", $c, $_->[0], $_->[1], cldatetime($_->[2]), $_->[3];
                        $c = "";
                }