mailnotify.pl

#!/usr/bin/env perl
use v5.10.1;
use strict;
use warnings;
use utf8;
use UI;
use Net::IMAP::Simple;

sub imap_connect {
	# change this as needed:
	my $cmd = "env HOME=/srv/mail/mw /usr/local/libexec/dovecot/imap";

	return Net::IMAP::Simple->new('cmd:'.$cmd)
		or die "imap connect failed: $Net::IMAP::Simple::errstr";
}

my $imap = imap_connect;

# slightly pointless given that the other timer runs more often, but prevent
# unneccessary imap pipe timeouts by doing a NOOP every 10 minutes - might be
# useful in case I ever switch to IMAP IDLE
UI::every imap_noop => 10*60, sub { $imap->noop };

# periodic mailcheck every minute for now, because I'm too lazy to deal with
# IMAP IDLE
sub overview {
	my @mailboxes = $imap->mailboxes;
	my @subs = $imap->mailboxes_subscribed;

	my (@subscribed, %status);

	my $i = 0;
	foreach (@mailboxes) {
		push @subscribed, $i++ if $_ ~~ @subs;
		$status{$_} = [$imap->status($_)];
	}

	UI::mbx \@mailboxes, \%status;
	UI::subscriptions \@mailboxes, \@subscribed;
};

UI::every imap_subs => 5*60, \&overview;

UI::log "monitor started";
overview;

UI::mainloop;