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]}"`