PDF/EPUB from email to remarkable cloud

remarkable.pl

#!/usr/bin/perl
 
use strict;
use warnings;
use MIME::Parser;
use Data::Dumper;
use List::Util qw(first);
 
$ENV{RMAPI_HOST}='https://rmfakecloud.example.com/';
 
my $parser = new MIME::Parser;
my $entity = $parser->parse(\*STDIN);
for (my $idx = 0; $idx < scalar $entity->parts() ; $idx++) {
  my $part = $entity->parts($idx);
  my $head = $part->head();
  my $filename = $head->recommended_filename();
  if (my $type = first { index($part->effective_type(),$_) == 0 } qw(application/pdf application/epub)) {
    printf("Found a %s type w/ filename %s\n",$type,$filename);
    my $path = $part->bodyhandle->path;
    link($path,$filename);
    if (-e $path) {
       printf("Sending %s\n",$filename);
       system("rmapi","put",$filename,"/Articles");
    }
    unlink($filename);
  }
}
$parser->filer->purge;

And the procmail recipie that calls this script:

:0c H
* ^To:.*[email protected]
| ~/bin/remarkable.pl