filters/postal-deliver.pl

   1 #!/usr/bin/perl
   2
   3 use Email::Filter;
   4 use Convert::YText qw(decode_ytext encode_ytext);
   5
   6 # we need at least version 2.54 of IkiWiki for the new config api
   7 BEGIN { require IkiWiki; die unless ($IkiWiki::version >= 2.54) }
   8
   9 use IkiWiki::Setup;
  10 use Getopt::Long;
  11
  12 my $config_file=undef;
  13
  14 GetOptions('config=s'=>\$config_file);
  15
  16 die "configuration file is mandatory" unless ($config_file);
  17
  18 my %config=IkiWiki::Setup::load($config_file);
  19
  20 my $maildir=$config{postal_maildir} || die "maildir not set";
  21
  22 my $prefix=$config{postal_prefix} || die "prefix not set";
  23
  24 $mail=Email::Filter->new(emergency => $maildir);
  25
  26 my $to=$mail->to;
  27 if ($to =~ m/$prefix($Convert::YText::valid_rex)/){
  28     my $key=decode_ytext($1);
  29
  30     $mail->simple->header_set('X-IkiPostal-Key',$key);
  31
  32     # need to somehow escape the names. Here we use the fact that YText
  33     # cannot have @ signs.
  34     my @path=split(qr{/},$key);
  35     map { $_=encode_ytext($_); s/\./@/g } @path;
  36
  37     my $mailbox=$maildir . ".".join(".",@path)."/" ;
  38
  39     $mail->accept($mailbox);
  40
  41
  42 };
  43
  44
  45