$hash{$option} = $value;
}
close READER;
+ close WRITER;
unless ( keys %hash ) {
return "error scanning $machine\n";
push @lint, "$option is $current" unless $current =~ $desired{$option};
}
+ push @lint, 'unchecked' unless scalar($cust_svc->options);
+
@lint;
}
% foreach my $lint (@lint) {
- <FONT COLOR="#FF0000"><% $lint %></FONT><BR>
+% my $color = ( $lint =~ /unchecked$/ ? '#FF9900' : '#FF0000' );
+ <FONT COLOR="<% $color %>"><% $lint %></FONT><BR>
% }
<%init>