#!/usr/bin/env perl

use strict;
use warnings;
use Capture::Tiny qw(capture);

use constant {
	NEWSBOAT_PATH		=> 'newsboat',
	NOTIFY_SEND_PATH	=> 'herbe'
};

sub main
{
	my $stdout;
	my $nb;

	$nb = NEWSBOAT_PATH;
	if (system(
		$nb,
		'-x',
		'reload'
	) != 0) {
		exit 1;
	}

	$stdout = qx($nb -x print-unread);
	$stdout =~ s/\s.+//;
	chomp $stdout;
	if ($stdout != 0) {
		system(
			NOTIFY_SEND_PATH,
			'  ' . $stdout . ' new articles'
		);
	}
	return;
}

main();

__END__