From: Thomas Lamprecht <t.lamprecht@proxmox.com>
Date: Tue, 23 Jul 2019 19:32:20 +0000 (+0200)
Subject: drop now unused repoid.pl
X-Git-Url: https://git.proxmox.com/?p=pmg-api.git;a=commitdiff_plain;h=bc1e80a2aa02b5e9e2fd6de0d2d56baa8f7c3ca8

drop now unused repoid.pl

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
---

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";