#!sdh

use strict;
use warnings;

SDH::inc('/.sess');

my $result = 0;

if (!$WR::admin) {
	if ($WR::user) {
		$result = SDH::inc('/.noauth');
	} else {
		$result = SDH::inc('/.login');
		if ($result) {
			if ($WR::admin) {
				$result = 0;
			} else {
				$result = SDH::inc('/.noauth');
			}
		} else {
			$result = 'OK';
		}
	}
}

$result;