upstream/monitoring-plugins
1
0
Fork 0
mirror of https://github.com/monitoring-plugins/monitoring-plugins.git synced 2026-03-09 09:45:14 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

git-nofity: Try to shorten Gitweb URLs

Browse source 
Instead of using the full SHA1 values of commit object names within
Gitweb URLs, try to abbreviate them to a shorter unique name.
This commit is contained in:
Holger Weiss 2009-10-24 22:55:44 +02:00
parent aa5dfec917
commit a6b3296897
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
tools/git-notify
View file

@ -168,6 +168,11 @@ sub format_table(@)
return @table;
}
# return the gitweb URL of the given commit or undef
sub gitweb_url($$)
{
}
# format an integer date + timezone as string
# algorithm taken from git's date.c
sub format_date($$)
@ -317,6 +322,7 @@ sub send_commit_notice($$)
my ($ref,$obj) = @_;
my %info = get_object_info($obj);
my @notice = ();
my $url;
open DIFF, "-|" or exec "git", "diff-tree", "-p", "-M", "--no-commit-id", $obj or die "cannot exec git-diff-tree";
my $diff = join("", <DIFF>);
@ -324,6 +330,17 @@ sub send_commit_notice($$)
return if length($diff) == 0;
if ($gitweb_url)
{
open REVPARSE, "-|" or exec "git", "rev-parse", "--short", $obj or die "cannot exec git-rev-parse";
my $short_obj = <REVPARSE>;
close REVPARSE or die $! ? "Cannot execute rev-parse: $!" : "rev-parse exited with status: $?";
$short_obj = $obj if not defined $short_obj;
chomp $short_obj;
$url = "$gitweb_url/?a=commit;h=$short_obj";
}
push @notice, format_table(
"Module: $repos_name",
"Branch: $ref",
@ -331,7 +348,7 @@ sub send_commit_notice($$)
"Author:" . $info{"author"},
$info{"committer"} ne $info{"author"} ? "Committer:" . $info{"committer"} : undef,
"Date:" . format_date($info{"author_date"},$info{"author_tz"}),
$gitweb_url ? "URL: $gitweb_url/?a=commit;h=$obj" : undef),
$url ? "URL: $url" : undef),
"",
@{$info{"log"}},
"",