From: Tyler Riddle <t.riddle@shadowcat.co.uk>
Date: Wed, 10 Oct 2012 03:06:12 +0000 (-0700)
Subject: removed old cruft from system-introspector program
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7a9ac85762b279775ee6a5a8f641fdeec6e6360;p=scpubgit%2FSystem-Introspector.git

removed old cruft from system-introspector program
---

diff --git a/bin/system-introspector b/bin/system-introspector
index 0380a8d..e5f939c 100755
--- 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
--- 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]);