From 4f18470292da780c53dcf4885c9227562ee07742 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 26 Aug 2008 23:53:47 +0000
Subject: [PATCH] add unchecked vs. ok distinction to lint

---
 FS/FS/Tron.pm                     | 3 +++
 httemplate/elements/mcp_lint.html | 3 ++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/FS/FS/Tron.pm b/FS/FS/Tron.pm
index 33280955e..dcb917e21 100644
--- a/FS/FS/Tron.pm
+++ b/FS/FS/Tron.pm
@@ -53,6 +53,7 @@ sub tron_scan {
     $hash{$option} = $value;
   }
   close READER;
+  close WRITER;
 
   unless ( keys %hash ) {
     return "error scanning $machine\n";
@@ -86,6 +87,8 @@ sub tron_lint {
     push @lint, "$option is $current" unless $current =~ $desired{$option};
   }
 
+  push @lint, 'unchecked' unless scalar($cust_svc->options);
+
   @lint;
 
 }
diff --git a/httemplate/elements/mcp_lint.html b/httemplate/elements/mcp_lint.html
index 826549c65..9e2b5cab6 100644
--- a/httemplate/elements/mcp_lint.html
+++ b/httemplate/elements/mcp_lint.html
@@ -1,5 +1,6 @@
 % foreach my $lint (@lint) {
-  <FONT COLOR="#FF0000"><% $lint %></FONT><BR>
+%   my $color = ( $lint =~ /unchecked$/ ? '#FF9900' : '#FF0000' );
+    <FONT COLOR="<% $color %>"><% $lint %></FONT><BR>
 % }
 
 <%init>
-- 
2.11.0