# git sendemail-validate hook -rw-r--r-- 453 bytes View raw
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
# SPDX-License-Identifier: GPL-2.0-or-later

use Mail::Box::Manager;

my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open(folder => $ARGV[0], type => 'Mail::Box::Mbox', access => 'rw');
my $msg = $folder->message(0);
my Mail::Message::Head $head = $msg->head;

my $msg_id = `/home/gregkh/bin/make_message_id`;

$head->delete('Message-Id');
$head->add("Message-Id : <${msg_id}>");
$folder->close;

`patatt sign --hook "${ARGV[0]}"`