perl – 不允许在git中删除Master分支

前端之家收集整理的这篇文章主要介绍了perl – 不允许在git中删除Master分支前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在尝试设置一个git钩子,禁止任何人删除我们的存储库的master,alpha和beta分支.有人能帮忙吗?我从来没有做过一个git hook,所以我不想在没有一点帮助的情况下尝试自己开发自己的运气.

提前致谢.

解决方法

直接使用预接收挂钩.假设您正在使用裸中央存储库,请将以下代码放在您的repo.git / hooks / pre-receive中,并且不要忘记chmod x your-repo.git / hooks / pre-receive.
#! /usr/bin/perl

# create: 00000... 51b8d... refs/heads/topic/gbacon
# delete: 51b8d... 00000... refs/heads/topic/gbacon
# update: 51b8d... d5e14... refs/heads/topic/gbacon

my $errors = 0;

while (<>) {
  chomp;

  next
    unless m[ ^
              ([0-9a-f]+)       # old SHA-1
              \s+
              ([0-9a-f]+)       # new SHA-1
              \s+
              refs/heads/(\S+)  # ref
              \s*
              $
            ]x;

  my($old,$new,$ref) = ($1,$2,$3);

  next unless $ref =~ /^(master|alpha|beta)$/;

  die "$0: deleting $ref not permitted!\n"
    if $new =~ /^0+$/;
}

exit $errors == 0 ? 0 : 1;

猜你在找的Perl相关文章