#!/usr/bin/perl
#use Fcntl q{:flock};
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $avatar=$_{avatar};

	require $this->fieldfile("getlock.pl");
	my @locks=getduallock($this, LOCK_EX, "closed");
	
	if ($this->closed) {
		fail "It's already closed.";
	}
	if (! $this->close(quiet => 1)) {
		fail "You can't close that.";
	}
	
	$this->msg('close', %_);
}
