add fill-missing-signoffs-since

1 files changed, 34 insertions, 0 deletions

diff --git a/scripts/git/fill-missing-signoffs-since b/scripts/git/fill-missing-signoffs-since
new file mode 100755
index 00000000..35612cc7
--- /dev/null
+++ b/scripts/git/fill-missing-signoffs-since
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+# fill-missing-signoffs-since -- fill in missing Signed-off-by: lines
+
+use 5.032;
+use strict;
+use warnings;
+
+use File::Basename "basename";
+use Git::Wrapper;
+use Try::Tiny;
+
+@ARGV == 1 or die "usage: " . basename $0 . " COMMITTISH\n";
+my $since = shift;
+my $git = Git::Wrapper->new(".");
+#<<<
+try {
+    $git->rev_parse({ git_dir => 1 });
+} catch {
+    die "pwd doesn't look like a git repository ..\n";
+};
+# #>>>
+
+my ($name) = $git->config(qw(user.name));
+my ($email) = $git->config(qw(user.email));
+# TODO implement the "since" part of this -- the following does the entire
+# repo history, rather than commits in the range $since..HEAD
+# $git->filter_repo({
+#         message_callback => '
+#     if b"Signed-off-by:" not in message:
+#         message = message.rstrip()
+#         message += b"\n\nSigned-off-by: ' . $name . ' <' . $email . '>\n"
+#     return message'
+# });