scripts/signoff-patch

#!/usr/bin/perl -i

use strict;
use warnings;

# read identity from git config
my $name = `git config user.name`; chomp $name;
my $email = `git config user.email`; chomp $email;
my $identity = "$name <$email>";

my $last_signed = '';

while (<>) {
    if (/^Signed-off-by: \Q$identity\E\n/) {
	$last_signed = $ARGV;
    } elsif (/^---\n/ && $last_signed ne $ARGV) {
	# insert signature here
	print "Signed-off-by: $identity\n";
	$last_signed = $ARGV;
    }
    print;
}