sub unknown_mode { my ( $self, $requested ) = (@_); my $q = $self->query(); my $session = $self->param('session'); my $username = $session->param('logged_in'); $requested = HTML::Entities::encode_entities($requested); if ( defined($username) && length($username) ) { return "
unknown mode '$requested' for logged in user $username
"; } else { return "Unknown mode '$requested' for anonymous user.
"; } }