add unchecked vs. ok distinction to lint

[freeside.git] / FS / FS / Tron.pm

diff --git a/FS/FS/Tron.pm b/FS/FS/Tron.pm
index 3328095..dcb917e 100644 (file)
--- 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;
 
 }