#!/usr/bin/perl
#use Fcntl q{:flock};
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	if (!($this->exclusive) || $_{from} eq $this->target) {
		$this->msg("output", message => $_{message},
			   speaker => $_{originator});
	}
}
