#!/usr/bin/perl
#use Mooix::Thing;
use strict;
use warnings;
run sub {
	my $this=shift;
	%_=@_;
	exists $_{seconds} or $this->usage("bad seconds");
	
	foreach my $session ($this->sessions->list) {
		my $idle = $session->idle;
		if ($idle >= $_{seconds} || $idle == -1) {
			$session->write($_{message}) if exists $_{message};
			$this->logout(session => $session);
		}
	}
}
