<%doc> Show duplex mismatches % % <%attr> title => 'Duplex Mismatches' section => 'Management' % % <%args> % % <%init> my $DEBUG = 0; print "
", Dumper(%ARGS), "

" if $DEBUG; my $list = Interface->find_duplex_mismatches(); my @cssitem = ("formtablec1", "formtablec2"); my $ci = 1;
Duplex/Speed Mismatches:
 
% if ( !scalar(@$list) ){

No mismatches found.

% }else{ % foreach ('Interface', 'Admin Duplex', 'Oper Duplex', 'Speed'){ % } % foreach my $pair ( @$list ){ % $ci = ($ci + 1) % 2; % foreach my $id ( @$pair ){ % my $int = Interface->retrieve($id) || die "Can't retrieve Interaface id: $id"; % } % }
<% $_ %>
<% $int->get_label %> <% $int->admin_duplex %> <% $int->oper_duplex %> <% $int->speed_pretty %>

% }