From bc1e80a2aa02b5e9e2fd6de0d2d56baa8f7c3ca8 Mon Sep 17 00:00:00 2001 From: Thomas Lamprecht Date: Tue, 23 Jul 2019 21:32:20 +0200 Subject: [PATCH] drop now unused repoid.pl Signed-off-by: Thomas Lamprecht --- repoid.pl | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100755 repoid.pl diff --git a/repoid.pl b/repoid.pl deleted file mode 100755 index 5120ef8..0000000 --- a/repoid.pl +++ /dev/null @@ -1,40 +0,0 @@ -#!/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; - return if $line =~ m/^#/; - return 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"; -- 2.39.2