% my $usersquery = $dbh->prepare("SELECT username, realname, password FROM users ORDER BY userid DESC");
% $usersquery->execute;
jbovlaste user list
% while(defined(my $userrow=$usersquery->fetchrow_hashref)) {
% if( $userrow->{'password'} !~ 'DISABLED' ) {
- <% $userrow->{'realname'} %> (
<% $userrow->{'username'} %>
)
% }
% }
<%init>
our($dbh,%session);
$r->content_type("text/html; charset=utf-8");
%init>
<%method title>
User Listing
%method>