.local/bin/ref-mbsync.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

#!/usr/local/bin/perl

use strict;
use warnings;

use constant {
	MBSYNC_PATH			=> '/usr/local/bin/mbsync',
	NOTIFY_SEND_PATH	=> '/usr/local/bin/notify-send'
};

sub main
{
	system(
		NOTIFY_SEND_PATH,
		'mbsync',
		'-u',
		'low',
		'Fetching mail...'
	);
	system(
		MBSYNC_PATH,
		'-c',
		'/usr/home/jozan/.mbsyncrc',
		'-a'
	);
	exit 0;
}

main();

__END__