<%doc> Show VLAN mismatches % % <%attr> title => 'VLAN Mismatches' % % <%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;
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 %>
% }