blob: 4ce869e271dc7bb0a5f772481b8054130d5bb875 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
% my ( $html, $hashref ) = $svc_x->export_getstatus;
% if ( keys %$hashref ) {
Status settings
<% ntable('#cccccc',2) %>
% foreach my $key ( sort {$a cmp $b} keys %$hashref ) {
<TR>
<TD ALIGN="right"><% $key |h %></TD>
<TD BGCOLOR="#ffffff">
% if ( ref($hashref->{$key}) eq 'ARRAY' ) {
% foreach (@{ $hashref->{$key} }) {
<% $_ |h %><BR>
% }
% } else {
<% $hashref->{$key} |h %>
% }
</TD>
</TR>
% }
</TABLE>
<BR>
% }
<%init>
my $svc_x = shift;
</%init>
|