use warnings;
use strict;

use constant {
		IDLE => 0,
		RELAY => 1,
		BLOCKED => 2,
	};

my $state = IDLE;
while (<>) {
	chomp;
	if (/Relay.access.denied/) {
		$state = RELAY;
	}
	elsif (/blocked.using/) {
		$state = BLOCKED;
	}
	elsif (/^\s*(\d+)\s+(\S+)\s*$/) {
		if ($state == RELAY) {
			print "Relay Access Denied: $2\n"
		}
		elsif ($state == BLOCKED) {
			print "Blocked: $2\n"
		}
	}
	else {
		$state = IDLE;
	}
}