.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
%doc><%args>
$session
%args>
<%perl>
$m->out("");
if ($session->{'authenticated'} == 0) {
$m->out("not authenticated");
} else {
$m->out("authenticated");
}
%perl>