%doc>
Show VLAN mismatches
%doc>
%
%
<%attr>
title => 'VLAN Mismatches'
%attr>
%
%
<%args>
%args>
%
%
<%init>
my $DEBUG = 0;
print "
", Dumper(%ARGS), "
" if $DEBUG;
my $res = Interface->find_vlan_mismatches();
my $num;
if ( defined $res && ref($res) eq 'HASH' ){
$num = scalar(keys %$res);
}else{
$m->comp('/generic/error.mhtml', error=>"Invalid data");
}
print Dumper($res) if $DEBUG;
my @cssitem = ("formtablec1", "formtablec2");
my $ci = 1;
%init>
VLAN Mismatches <% ($num) %>:
% if ( !$num ){
No mismatches found.
% }else{
% foreach ('Interface', 'VLANs', 'Interface', 'VLANs'){
<% $_ %> |
% }
% foreach my $iid ( sort { $res->{$a}{name} cmp $res->{$b}{name} } keys %$res ){
% my $name = $res->{$iid}{name};
% my $vlans = $res->{$iid}{vlans};
% my $n_id = $res->{$iid}{n_id};
% my $n_name = $res->{$iid}{n_name};
% my $n_vlans = $res->{$iid}{n_vlans};
% $ci = ($ci + 1) % 2;
<% $name %> |
<% $vlans %> |
<% $n_name %> |
<% $n_vlans %> |
% }
% }