lastcomm-duration.pl 4

will return all commands longer than 4s

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

diff --git a/recepies/acct/lastcomm-duration.pl b/recepies/acct/lastcomm-duration.pl
index b3f7ea3..ed83a04 100755 (executable)
--- a/recepies/acct/lastcomm-duration.pl
+++ b/recepies/acct/lastcomm-duration.pl
@@ -5,7 +5,7 @@ use strict;
 
 use YAML;
 
-my $too_long = 0.5; # s
+my $too_long = shift @ARGV || 0.5; # s
 my $stats;
 
 open(my $lastcomm, '-|', 'lastcomm');