filters/postal-accept.pl

   1 #!/usr/bin/perl
   2
   3 # Take message on stdin, write to appropiate comment folder,
   4 # update wiki
   5 use strict;
   6 use Email::LocalDelivery;
   7 use Email::Filter;
   8 use Data::Dumper;
   9
  10 use Convert::YText qw(decode_ytext);
  11
  12 # we need at least version 2.54 of IkiWiki for the new config api
  13 BEGIN { require IkiWiki; die unless ($IkiWiki::version >= 2.54) }
  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 IkiWiki::Setup::load($config_file);
  29 IkiWiki::checkconfig();
  30
  31
  32 my $prefix=$config{postal_prefix} || die "prefix not set";
  33
  34 my $message=Email::Filter->new();
  35
  36 my $to=$message->to;
  37 if ($to =~ m/$prefix($Convert::YText::valid_rex)/){
  38     my $page=decode_ytext($1);
  39
  40     IkiWiki::loadindex();
  41
  42 # hmm, not sure why pagesource is indexed by page.ext, but it is awkward here
  43 #    die("page ".$page." does not exist") if (!exists $IkiWiki::pagesources{$page});
  44
  45     my $comments_folder=$config{srcdir}."/".$page."/comments".$folder_ext;
  46
  47     # write the message to the comment
  48
  49     $message->accept($comments_folder) || die("delivery failed");
  50
  51     # update vcs, copied from Ikiwiki::Plugins::attachment
  52
  53     if ($config{rcs}) {
  54         IkiWiki::rcs_add($comments_folder);
  55         IkiWiki::disable_commit_hook();
  56         IkiWiki::rcs_commit($comments_folder, gettext("postal delivery"),
  57                             IkiWiki::rcs_prepedit($comments_folder));
  58         IkiWiki::enable_commit_hook();
  59         IkiWiki::rcs_update();
  60     }
  61
  62
  63     # refresh wiki
  64     IkiWiki::refresh();
  65     IkiWiki::saveindex();
  66 }
  67