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