Store full Mercurial revision hashes

This commit is contained in:
Eelco Dolstra 2015-07-06 17:12:37 +02:00
parent b85e9ef1cd
commit ccf6e6062c
2 changed files with 3 additions and 1 deletions

View file

@ -52,7 +52,7 @@ sub fetchInput {
die "error pulling latest change mercurial repo at `$uri':\n$stderr" if $res;
(my $res1, $stdout, $stderr) = captureStdoutStderr(600,
"hg", "log", "-r", $id, "--template", "{node|short} {rev} {branch}");
"hg", "log", "-r", $id, "--template", "{node} {rev} {branch}");
die "error getting branch and revision of $id from `$uri':\n$stderr" if $res1;
my ($revision, $revCount, $branch) = split ' ', $stdout;

View file

@ -374,6 +374,8 @@ BLOCK renderShortEvalInput;
r[% input.revision %]
[% ELSIF input.type == "git" %]
<tt>[% input.revision.substr(0, 7) %]</tt>
[% ELSIF input.type == "hg" %]
<tt>[% input.revision.substr(0, 12) %]</tt>
[% ELSIF input.type == "build" || input.type == "sysbuild" %]
<a href="[% c.uri_for('/build' input.get_column('dependency')) %]">[% input.get_column('dependency') %]</a>
[% ELSE %]