<%attr> ajax => 1 <%args> $arg => 'a' <%init> $arg =~ s/^(.{1}).*$/-$1/; <%perl> my $out = $m->comp("/include/system:netcvdiag", arg => $arg); $out =~ s/^\s*//g; $out =~ s/>/>/g; $out =~ s/ @(Show all) | @(Show UUIDs) | @(Show tuners) | @(Get NetCeiver count) | @(Show satellite settings) | @(Show tuner state) | @(Show HW/SW-versions)

<% $out %>
<%method netcv_status>