blob: 026280546b83f7e2f56ba246c71670fc5b351b91 (
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
|
% my ( $settings, $defaults ) = $svc_x->export_getsettings;
% if ( keys %$settings ) {
%# XXX a way to label this "Communigate pro settings".. just a config maybe
External settings
<% ntable('#cccccc',2) %>
% foreach my $key ( keys %$settings ) {
<TR>
<TD ALIGN="right"><% $key |h %></TD>
<TD BGCOLOR="<% $defaults->{$key} ? '#eeeeee' : '#ffffff' %>">
<% $defaults->{$key} ? '<I>' : '<B>' %>
<% $settings->{$key} |h %>
<% $defaults->{$key} ? '</I>' : '</B>' %>
</TD>
</TR>
% }
</TABLE>
<BR>
% }
<%init>
my $svc_x = shift;
</%init>
|
