#! /bin/sh
set -e

formail -cz -X Subject: -X X-Launchpad-Bug: | \
	perl -nle '
		s/\s+/ /g;
		if (s/^Subject:\s+//i) {
			s/^\[Bug (\d+)\] \[NEW\] // or exit 0;
			$bug = $1;
			$subj = $_;
		} elsif (s/^X-Launchpad-Bug:\s+//i) {
			if (/\bimportance=(\w+)/) {
				$imp = $1;
			}
		}
		END {
			if (defined $bug and defined $subj) {
				$imp = "Undecided" unless defined $imp;
				open FILE, ">>$ENV{HOME}/.irssi/fnotify";
				print FILE "LPBUG $bug $imp $subj";
				close FILE;
			}
		}'