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

发布时间：2020-12-15 21:42:16 所属栏目：大数据来源：网络整理

导读：我正在尝试设置一个git钩子,禁止任何人删除我们的存储库的master,alpha和beta分支.有人能帮忙吗？我从来没有做过一个git hook,所以我不想在没有一点帮助的情况下尝试自己开发自己的运气. 提前致谢. 解决方法直接使用预接收挂钩.假设您正在使用裸中央存储库,

我正在尝试设置一个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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!