From: Mike Taylor <mike@indexdata.com>
Date: Wed, 19 Dec 2012 12:06:27 +0000 (+0000)
Subject: Support new "irspy_data" log-level to register information written to
X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=67950f52de73f76cbaa398c1edda5fbdfe7087ab;p=irspy-moved-to-github.git

Support new "irspy_data" log-level to register information written to
target description record.
---

diff --git a/lib/ZOOM/IRSpy/Record.pm b/lib/ZOOM/IRSpy/Record.pm
index c5b6c1b..29160ec 100644
--- a/lib/ZOOM/IRSpy/Record.pm
+++ b/lib/ZOOM/IRSpy/Record.pm
@@ -117,9 +117,10 @@ sub store_result {
         $xml .= " $key=\"" . xml_encode($info{$key}) . "\"";
     }
 
-    $xml .= ">" . isodate(time()) . "</irspy:$type>\n";
+    $xml .= ">" . isodate(time()) . "</irspy:$type>";
 
-    $this->append_entry('irspy:status', $xml);
+    $this->{irspy}->log("irspy_data", $xml);
+    $this->append_entry('irspy:status', $xml . "\n");
 }