% foreach my $user (@$users) { % my $username = $user->key(); % my $first = $user->prop("FirstName"); % my $last = $user->prop("LastName"); % my $lockable = $user->prop("Lockable") || "yes"; % my $removable = $user->prop("Removable") || "yes"; % my $fwd = (($user->prop("EmailForward") || "local") =~ m/^forward|both$/) ? % $user->prop("ForwardAddress") : ""; % my $vpnaccess = $user->prop("VPNClientAccess") || "no"; % $vpnaccess = $vpnaccess eq "yes" ? $c->l("YES") : $c->l("NO"); % my $password_set = $user->prop("PasswordSet"); % my $useraccounts_user_name = $user->key; # useraccountss_entry name extracted from the data structure % my $csrf_token = "TOKEN"; # CSRF token for security % my $modify_text = l("MODIFY"); # Localized text % my $remove_text = l("REMOVE"); # Localized text % my $password_text = l("PASSWORD_RESET"); % my $lock_text = l("Lock"); # Localized text % my $roundcube_text = l("Webmail"); # Localized text % my ($actionModify, $actionLock, $actionResetPw, $actionRemove,$actionroundcube) = " "; % my $thisdomain = $c->req->url->to_abs->host; % if ($useraccounts_user_name eq "admin") { %$actionModify = qq{ % % % $modify_text % % %}; %$actionResetPw = qq{ % % % $password_text % % %}; % } else { %$actionModify = qq{ % % % $modify_text % % %}; % } % if ($password_set ne "yes") { %#$actionLock = l("ACCOUNT_LOCKED"); %$actionLock = qq{ % % % Unlock % % %}; %$actionResetPw = qq{ % % % $password_text % % %}; % } elsif ($useraccounts_user_name ne "admin") { %$actionLock = qq{ % % % $lock_text % % %}; %$actionResetPw = qq{ % % % $password_text % % %}; % } % if ( $removable eq "yes" ) { %$actionRemove = qq{ % % % $remove_text % % %}; % } % $actionroundcube = qq{ % % % $roundcube_text % % %}; % }

<%= l "ACCOUNT" %>	<%= l "USER_NAME" %>	<%= l "usr_VPN_CLIENT_ACCESS" %>	<%= l "usr_FORWARDING_ADDRESS" %>	<%= l "ACTION" %>
<%= $username %>	<%= $first %> <%=$last %>	<%= $vpnaccess %>	<%= $fwd %>	<%= $c->render_to_string(inline => $actionModify) %>	<%= $c->render_to_string(inline => $actionResetPw) %>	<%= $c->render_to_string(inline => $actionLock) %>	<%= $c->render_to_string(inline => $actionRemove) %>	<%= $c->render_to_string(inline => $actionroundcube) %>