% my $role = $context->{client}->send_receive_command_msg('get_role')->{PARAMS}; % my $user = $context->{client}->send_receive_command_msg('get_user')->{PARAMS}; % if ($role eq 'User') {

<% i18nGettext ('I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_TITLE') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_DESCRIPTION') %>

<& /service/workflow/search_instances.html, 'notitle' => 1, 'certificate_link' => 1, 'limit' => 5, 'context_key' => [ 'creator' ], 'context_value' => [ $user ], 'show_custom_columns' => 1, 'custom_columns' => [ 'cert_subject' ], 'custom_columns_filter' => sub { my $key = shift; my $data = shift; if ($key eq 'cert_subject') { ($data) = ($data =~ m{ CN=([^,]+) }xms); } return $data; }, &> % } % elsif ($role eq 'RA Operator') {

<% i18nGettext ('I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_RAOP_TITLE') %>

<& /service/workflow/show_pending_requests.html, 'heading' => 2, &>
<& /service/workflow/show_pending_crrs.html, 'heading' => 2, &> % } % elsif ($role eq 'CA Operator') {

<% i18nGettext ('I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_CAOP_TITLE') %>

<& /service/api/key_list.html, 'heading' => 2, &> % } % else {

<% i18nGettext ('I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_TITLE') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_DESCRIPTION') %>

% }