Device | % foreach my $col (sort keys %$where){ % my $colview = $col; % $colview =~ s/^[^.]+\.//; % $colview = $colview eq 'count' ? 'Number of Active<%ucfirst($colview)%> | % }|
---|---|---|
<% $dns %> | % } % else { # general case<% $dns %> | % } <%perl> foreach my $col (sort keys %$where){ # Trim off table name for column $col =~ s/^[^.]+\.//; my $val = $result->{$col}; # Column Specfic stuff if ($col eq 'remote_ip') { $val = "$val"; } %perl><%$val%> | % }