#!/usr/bin/perl
#use Mooix::Thing;
use Sys::CpuLoad;
run sub {
	my $this=shift;
	%_=@_;
	
	# Make sure that this command is not spoofed, just in case.
        if ($_{avatar} != $this) {
		fail "No!"; 
	}
	
	# count avatars and sessions
	my %avatars;
	my $avatars;
	my $sessions;
	foreach my $session ($_{session}->owner->sessions->list) {
		$sessions++;
		next unless $session->avatar;
		if (! exists $avatars{$session->avatar->index}) {
			$avatars{$session->avatar->index}=1;
			$avatars++
		}
	}
	
	$_{session}->write("$avatars avatar".($avatars == 1 ? '' : 's')." ".
	       "($sessions session".($sessions == 1 ? '' : 's')."); Load: ".
	       join(", ", Sys::CpuLoad::load()));
}
