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.63 of IkiWiki
  13 BEGIN { require IkiWiki; die unless ($IkiWiki::version >= 2.63) }
  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 %IkiWiki::config=IkiWiki::defaultconfig();
  28 IkiWiki::Setup::load($config_file);
  29
  30 IkiWiki::loadplugins();
  31 IkiWiki::checkconfig();
  32
  33
  34 my $prefix=$config{postal_prefix} || die "prefix not set";
  35
  36 my $message=Email::Filter->new();
  37
  38 $message->exit(0); # do not exit after delivery
  39
  40 my $to=$message->to;
  41 if ($to =~ m/$prefix($Convert::YText::valid_rex)/){
  42     my $page=decode_ytext($1);
  43
  44     IkiWiki::loadindex();
  45
  46 # hmm, not sure why pagesource is indexed by page.ext, but it is awkward here
  47 #    die("page ".$page." does not exist") if (!exists $IkiWiki::pagesources{$page});
  48
  49     chdir $config{srcdir} || die ("chdir $config{srcdir}: $!");
  50
  51     my $comments_folder=$page."/comments".$folder_ext;
  52
  53     # write the message to the comment
  54
  55     $message->accept($comments_folder) || die("delivery failed");
  56
  57     debug("delivered to $comments_folder\n");
  58     # update vcs, copied from Ikiwiki::Plugins::attachment
  59
  60     if ($config{rcs}) {
  61         IkiWiki::rcs_add($comments_folder);
  62         IkiWiki::disable_commit_hook();
  63         IkiWiki::rcs_commit($comments_folder, gettext("postal delivery"),
  64                             IkiWiki::rcs_prepedit($comments_folder));
  65         IkiWiki::enable_commit_hook();
  66         IkiWiki::rcs_update();
  67     }
  68
  69
  70     # refresh wiki
  71     IkiWiki::refresh();
  72     IkiWiki::saveindex();
  73 }
  74