display statistics just for long running commands

git-svn-id: svn://svn.rot13.org/sysadmin-cookbook@39 191e9f34-6774-4a6d-acfc-7664dacd4a2a

diff --git a/recepies/acct/lastcomm-duration.pl b/recepies/acct/lastcomm-duration.pl
index f0d1dc0..b3f7ea3 100755 (executable)
--- a/recepies/acct/lastcomm-duration.pl
+++ b/recepies/acct/lastcomm-duration.pl
@@ -26,6 +26,7 @@ foreach my $stat ( keys %$stats ) {
        print "\n$stat:\n";
        my $counter = $stats->{$stat};
        foreach my $name ( sort { $counter->{$b} <=> $counter->{$a} } keys %$counter ) {
-               printf "%8.2f %s\n", $counter->{$name}, $name;
+               my $d = $counter->{$name};
+               printf "%8.2f %s\n", $d, $name if $d > $too_long;
        }
 }