#!/usr/bin/perl
#use Mooix::Root;
#use Mooix::Thing;
use Mooix::CallStack;

run sub {
	my $this=shift;
	%_=@_;
	my $session = $_{session} or $this->usage("bad session");
	
	# This method runs stackless, and it only allows the sessionmanager
	# to ask it to log in, via its login method.
	if (! Mooix::CallStack::calledby($Mooix::Root->system->sessionmanager, 'login', 1)) {
		$this->croak("only sessionmanager->login can call this method");
	}

	$session->page($this->loginbanner);
	
	$this->exec->super(@_);
}
