%args> $type => undef $id => undef $msg => undef $activities => undef %args>
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_SHOW_INSTANCE_DESCRIPTION') %>
% ## I expect the following: % ## SERVICE_MSG => "COMMAND", % ## COMMAND => $cmd, % ## PARAMS => % ## { % ## WORKFLOW => % ## { % ## ID => $id, % ## STATE => $state, % ## CONTEXT => { ... a simple hash ... } % ## } % ## }<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_TABLE_HEAD_NAME') %> | <% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_TABLE_HEAD_VALUE') %> |
---|---|
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_SERIAL') %> | <% $msg->{PARAMS}->{WORKFLOW}->{ID} %> |
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_STATE') %> | <% i18nGettext($msg->{PARAMS}->{WORKFLOW}->{STATE}) %> |
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_TYPE') %> | <% i18nGettext($msg->{PARAMS}->{WORKFLOW}->{TYPE}) %> |
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_DESCRIPTION') %> | <% i18nGettext($msg->{PARAMS}->{WORKFLOW}->{DESCRIPTION}) %> |
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_LAST_UPDATE') %> | <% $msg->{PARAMS}->{WORKFLOW}->{LAST_UPDATE} %> |
% $m->comp('/lib/field_to_i18n.mhtml', % 'field' => $param); |
% my $value = $msg->{PARAMS}->{WORKFLOW}->{CONTEXT}->{$param};
% if ($value =~ /^(ARRAY|HASH|-----BEGIN)/)
% {
% ## serialized stuff
% my $ser = OpenXPKI::Serialization::Simple->new();
% my $ref = $ser->deserialize($value);
% if ($param eq "cert_info") % { % ## simple hash % foreach my $key (sort keys %{$ref}) % { <% $key %>::=<% $ref->{$key} %> % } % } % elsif ($param eq "cert_subject_alt_name") % { % ## array of arrays % foreach my $pair (@{$ref}) % { % next if (not $pair); ## empty array <% $pair->[0] %>::=<% $pair->[1] %> % } % } % elsif ($param eq "approvals") % { % ## hash: user to role % foreach my $user (sort keys %{$ref}) % { % next if (not defined $user); ## empty hash <% $user %>→<% $ref->{$user} %> % } % } % else % { <% $value %> % }% } elsif ($param eq "spkac") { % for (my $i = int(length ($value) / 64); $i > 0; $i--) % { % $value = substr ($value, 0, $i*64)."\n".substr($value,$i*64); % } <% $value %>% } else { <% i18nGettext($value) %> % } |