filters/postal-accept.pl

   1 #!/usr/bin/perl
   2
   3 # Take message on stdin, write to appropiate comment folder,
   4 # update wiki
   5
   6 use Email::LocalDelivery;
   7 use Email::Filter;
   8
   9 use Convert::YText qw(decode_ytext encode_ytext);
  10
  11 # we need at least version 2.54 of IkiWiki for the new config api
  12 BEGIN { require IkiWiki; die unless ($IkiWiki::version >= 2.54) }
  13
  14 use IkiWiki;
  15 use IkiWiki::Setup;
  16 use Getopt::Long;
  17 use Carp;
  18
  19 my $folder_ext=".mbox";
  20
  21 my $config_file=undef;
  22
  23 GetOptions('config=s'=>\$config_file);
  24
  25 die "configuration file is mandatory" unless ($config_file);
  26
  27 %config=IkiWiki::defaultconfig();
  28
  29 IkiWiki::Setup::load($config_file);
  30
  31 my $prefix=$config{postal_prefix} || die "prefix not set";
  32
  33 $message=Email::Filter->new();
  34
  35 my $to=$message->to;
  36 if ($to =~ m/$prefix($Convert::YText::valid_rex)/){
  37     my $page=decode_ytext($1);
  38
  39     die("page ".$page." does not exist") if !($pagesources{$page});
  40
  41     my $comments_folder=$page."/comments".$folder_ext;
  42
  43     # write the message to the comment
  44
  45     my ($delivered) = Email::LocalDeliver($config{srcdir}."/".$comments_folder);
  46
  47     die ("delivery failed") if (!defined ($delivered));
  48
  49     # update vcs, copied from Ikiwiki::Plugins::attachment
  50
  51     if ($config{rcs}) {
  52         IkiWiki::rcs_add($delivered);
  53         IkiWiki::disable_commit_hook();
  54         IkiWiki::rcs_commit($delivered, gettext("postal delivery"),
  55                             IkiWiki::rcs_prepedit($delivered));
  56         IkiWiki::enable_commit_hook();
  57         IkiWiki::rcs_update();
  58     }
  59
  60
  61     # refresh wiki
  62     IkiWiki::refresh();
  63     IkiWiki::saveindex();
  64 }
  65