move git-post-tasks action into Doit script

Script was generated with the help of ChatGPT.

Author: eserte

Makefile.PL

@@ -143,39 +143,13 @@ fix-$type-cpantestersmatrix-permissions:
 EOF
     }
 
-    if (defined $ENV{USER} && $ENV{USER} eq 'eserte') {
-	if ($^O =~ /bsd/i) { # assume BSD make
-	    $postamble .= <<'EOF';
-GIT_TAG_DATE=	$(shell date +%Y%m%d)
-EOF
-	} else { # assume GNU make
-	    $postamble .= <<'EOF';
-GIT_TAG_DATE!=	date +%Y%m%d
-EOF
-	}
-	$postamble .= <<'EOF';
-GIT_TAG=	deployment/bbbikede/${GIT_TAG_DATE}
-
+    $postamble .= <<'EOF';
 git-post-tasks:
-	git diff-index --quiet --cached HEAD
-	git diff-files --quiet || (\
-	    echo "There are uncommitted changes"; \
-	    git diff-files; \
-	    false; \
-	)
-	test -z "$$(git ls-files --exclude-standard --others)" || (\
-	    echo "There are untracked files"; \
-	    git ls-files --exclude-standard --others; \
-	    false; \
-	)
-	$(NOECHO) echo -n "This will tag version $(GIT_TAG) and push the default branch and the current tag. OK? "
+	$(NOECHO) echo -n "This will tag and push. OK? "
 	$(NOECHO) read yn
-	git tag -a -m "* $(GIT_TAG)" $(GIT_TAG) || (echo "If setting this tag fails, then try using a suffix e.g. _2"; false)
-	git push
-	git push origin $(GIT_TAG)
+	bin/git-post-tasks-doit.pl
 
 EOF
-    }
 
     $postamble;
 }

bin/git-post-tasks-doit.pl

@@ -0,0 +1,63 @@
+#!/usr/bin/env perl
+# -*- perl -*-
+
+use if !$ENV{DOIT_IN_REMOTE}, lib => "$ENV{HOME}/src/Doit/lib";
+use Doit;
+use Doit::Log;
+use Getopt::Long;
+use POSIX qw(strftime);
+
+sub generate_git_tag {
+    my $base = "deployment/bbbikede/" . strftime("%Y%m%d", localtime);
+    my $tag = $base;
+    my $doit = shift;
+
+    for my $i (0..9) {
+        my $try = $i == 0 ? $tag : "${tag}_$i";
+        my $exists = eval {
+            $doit->info_system(qw(git rev-parse --verify), $try);
+            1;
+        };
+        if (!$exists) {
+            return $try;
+        }
+    }
+
+    error("Too many tags exist with base $tag (_0 to _9)");
+}
+
+return 1 if caller;
+
+my $doit = Doit->init;
+GetOptions("ignore-dirty-workdir" => \my $ignore_dirty_workdir)
+    or error "usage: $0 [--ignore-dirty-workdir] [--dry-run]";
+
+# Ensure working tree is clean
+$doit->system(qw(git diff-index --quiet --cached HEAD));
+
+my $dirty_git_error = $ignore_dirty_workdir ? sub { warning @_ } : sub { error @_ };
+
+my $changed = eval {
+    $doit->system(qw(git diff-files --quiet));
+    0;
+};
+if ($changed) {
+    my @diff = split /\n/, $doit->info_qx(qw(git diff-files));
+    $dirty_git_error->("There are uncommitted changes:\n" . join("\n", @diff) . "\nPlease commit or stash your changes first.");
+}
+
+my @untracked = split /\n/, $doit->info_qx(qw(git ls-files --exclude-standard --others));
+if (@untracked) {
+    $dirty_git_error->("There are untracked files:\n" . join("\n", @untracked) . "\nPlease clean up untracked files first.");
+}
+
+# Generate tag
+my $tag = generate_git_tag($doit);
+info("Using tag: $tag");
+
+# Create and push tag
+$doit->system(qw(git tag -a -m), "* $tag", $tag);
+$doit->system(qw(git push));
+$doit->system(qw(git push origin), $tag);
+
+__END__