compute a repository ID

[pve-manager.git] / repoid.pl

diff --git a/repoid.pl b/repoid.pl
new file mode 100755 (executable)
index 0000000..f431c84
--- /dev/null
+++ b/repoid.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+
+# use use the first 8 characters from the master commit ID
+
+# git status --porcelain
+
+use strict;
+use lib qw(.);
+use PVE::Tools qw(run_command);
+
+my $gitdir = shift;
+die "no repository" if !$gitdir;
+
+my $path = "$gitdir/refs/heads/master";
+die "master branch does not exists" if ! -f $path;
+
+my $arg1 = shift;
+
+if ($arg1) {
+    die "unknown parameter '$arg1'" if $arg1 ne 'check';
+
+    my $testfunc = sub {
+       my $line = shift;
+       next if $line =~ m/^#/;
+       next if $line =~ m/^\?\?/;
+
+       die "detected modified content: $line\n";
+    };
+
+    my $cmd = ['git', '--git-dir', $gitdir ,'status', '--porcelain'];
+    run_command($cmd, outfunc => $testfunc);
+}
+
+my $repoid = `cat $path`;
+chomp $repoid;
+
+die "invalid commit format" if $repoid !~ m/^[0-9a-f]{40}$/;
+
+my $res = substr $repoid, 0, 8;
+print "$res\n";