removed old cruft from system-introspector program

diff --git a/bin/system-introspector b/bin/system-introspector
index 0380a8d..e5f939c 100755 (executable)
--- a/bin/system-introspector
+++ b/bin/system-introspector
@@ -7,10 +7,6 @@ use System::Introspector::State;
 use File::Tree::Snapshot;
 use System::Introspector::Config;
 use System::Introspector::Logger qw(:log); 
-use Log::Contextual::Destination;
-use Log::Contextual::SimpleLogger; 
-use Object::Remote::Logging qw( );     
-
 
 GetOptions(
     'c|config=s'    => \my $config_file,
@@ -38,12 +34,11 @@ if (defined($debug) && ! defined($log_level)) {
 
 my $log_destination; 
 if (defined($log_level)) {
-       $log_destination = Log::Contextual::Destination->new(
+       $log_destination = Object::Remote::LogDestination->new(
                logger => Log::Contextual::SimpleLogger->new({ levels_upto => $log_level }),
        );      
        
-    #$log_destination->connect(System::Introspector::Logger->arg_router);
-    $log_destination->connect(Object::Remote::Logging->arg_router);
+    $log_destination->connect(System::Introspector::Logging->arg_router);
 }
 
 $config_file = "$storage_dir/main.conf" unless defined $config_file;

diff --git a/lib/System/Introspector/Gatherer/Report.pm b/lib/System/Introspector/Gatherer/Report.pm
index 0e8fd1a..df26866 100644 (file)
--- a/lib/System/Introspector/Gatherer/Report.pm
+++ b/lib/System/Introspector/Gatherer/Report.pm
@@ -6,6 +6,8 @@ use Scalar::Util qw(reftype blessed);
 use System::Introspector::Logger qw( :log :dlog );
 our @ISA = qw(Tie::StdHash);
 
+#TODO get this into one class with ::Array if possible
+
 sub TIEHASH {
     log_trace { "tieing report data to hash" };
     return bless({}, $_[0]);