#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $name=lc($_{name});

	my @ret;
	foreach my $avatar ($this->avatars->list) {
		next unless ref $avatar;

		my @users=$avatar->users;
		next unless @users;
		
		# TODO articles?
		if (lc($avatar->name) eq $name ||
                    grep { lc($_) eq $name } $avatar->alias) {
			push @ret, @users;
		}
	}
	return @ret;
}
