29 lines
921 B
Perl
Executable File
29 lines
921 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use lib $ENV{GL_BINDIR};
|
|
use Gitolite::Easy;
|
|
|
|
my ( $trigger, $repo, $user, $aa, $ref, $verb, $utime, $stime, $cutime, $cstime ) = @ARGV;
|
|
|
|
# now do whatever you want with this data; the following is just an example.
|
|
|
|
# Ideally, you will (a) write your own code with a different filename so later
|
|
# gitolite upgrades won't overwrite your copy, (b) add appropriate variables
|
|
# to the rc file, and (c) change your rc file to call your program at the end
|
|
# of the POST_GIT list.
|
|
|
|
if ( my $limit = $rc{CPU_TIME_WARN_LIMIT} ) {
|
|
my $total = $utime + $cutime + $stime + $cstime;
|
|
# some code to send an email or whatever...
|
|
say2 "limit = $limit, actual = $total" if $total > $limit;
|
|
}
|
|
|
|
if ( $rc{DISPLAY_CPU_TIME} ) {
|
|
say2 "perf stats for $verb on repo '$repo':";
|
|
say2 " user CPU time: " . ( $utime + $cutime );
|
|
say2 " sys CPU time: " . ( $stime + $cstime );
|
|
}
|
|
|