#!/usr/bin/perl

use 5.028;
use strict;
use warnings;
use lib "$ENV{HOME}/src/dotfiles/perl5";

use Fcntl qw(LOCK_EX LOCK_NB);
use File::Path qw(make_path);
use File::Spec::Functions qw(catfile splitpath);
use Local::Homedir::Mail qw(expand_mbox);

# CONFIG

our $mboxes   = "$ENV{HOME}/annex/mail";
our $expanded = "$ENV{HOME}/.fmail/annex";

# CODE

# flock ourselves to ensure that only one copy of this script is ever
# running
exit 0 unless flock DATA, LOCK_EX|LOCK_NB;
die "no movemymail\n" if -e "$ENV{HOME}/.nomovemymail";

make_path($expanded);
open my $touch_fh, '>', "$expanded/.duplicity-ignore";
close $touch_fh;

foreach my $mbox (glob "$mboxes/*.gz") {
    # $mbox might be a dangling symlink on this machine
    next unless -e $mbox;

    my (undef, undef, $name) = splitpath($mbox);
    $name =~ s/\.gz$//;
    expand_mbox($mbox, catfile($expanded, $name));
}

# needed for above flock to work (__DATA__ would also work)
__END__