ssoma-rm

   1 #!/usr/bin/perl -w
   2 # Copyright (C) 2013-2016 all contributors <meta@public-inbox.org>
   3 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
   4 # this is intended for server administrators, so it takes an absolute
   5 # path (however this may be run by clients, too).
   6 my $usage = "ssoma-rm /path/to/git/repo < /path/to/rfc2822_message";
   7 use strict;
   8 use warnings;
   9 use Ssoma::Git;
  10 use Ssoma::Remover;
  11 my $dir = shift or die "usage: $usage\n";
  12 my $git = Ssoma::Git->new($dir);
  13 my $rm = Ssoma::Remover->new($git);
  14 my $mime;
  15 {
  16         local $/; # slurp message from stdin
  17         $mime = Email::MIME->new(<>);
  18 };
  19 $rm->remove_mime($mime);