#!/usr/bin/perl -w

use strict;

sub urc {
	my $fn = shift;
	my $rv = 0;
	local $/ = "}\@\n";
	open my $fd, "<", $fn;
	while (my $r = <$fd>) {
		$rv = $1 if $r =~ /\[-?1:\^9F[^\]]*?\(\^A2=([0-9]+)\)/m;
	}
	close $fd;

	return $rv;
}

chdir(<$ENV{'HOME'}/.thunderbird/*.default>);
open my $tail, "-|", "tail", "-n", 0, "-f", <*/*/*.msf>;
my %urcs = map { $_ => urc($_) } <*/*/*.msf>;
my $fn;

for (keys %urcs) {
	print "$_: ", $urcs{$_}, "\n" if $urcs{$_};
}

$/ = "}\@\n";

while (<$tail>) {
	$fn = $1 if (/.*(?:^|\n)==> (.*) <==\n/s);
	while (/\[-?1:\^9F[^\]]*?\(\^A2=([0-9]+)\)/g) {
		next if $urcs{$fn} eq $1;
		print "$fn: $1\n";
		$urcs{$fn} = $1;
	}
}