Device | % foreach my $col (sort keys %$where){ % my $colview = $col; % $colview =~ s/^[^.]+\.//; % $colview = $colview eq 'count' ? 'Number of Active<%ucfirst($colview)%> | % }||
---|---|---|---|
<% $dns %> | % } % elsif (exists $where->{count}) { # set up by specific =~ /multiple/i<% $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"; } elsif ($col eq 'port') { $val = "$val"; } %perl><%$val%> | % }