#!/usr/bin/perl -w
# Copyright (C) 2013, Eric Wong <normalperson@yhbt.net> and all contributors
# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
# this is intended for server administrators, so it takes an absolute
# path (however this may be run by clients, too).
my $usage = "ssoma-rm /path/to/git/repo < /path/to/rfc2822_message";
use strict;
use warnings;
use Ssoma::Git;
use Ssoma::Remover;
my $dir = shift or die "usage: $usage\n";
my $git = Ssoma::Git->new($dir);
my $rm = Ssoma::Remover->new($git);
my $simple;
{
	local $/; # slurp message from stdin
	$simple = Email::Simple->new(<>);
};
$rm->remove_simple($simple);