From 34690ce5321cbcf1cec5f264f4302c2f2208997b Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 21 Feb 2007 17:57:59 +0000 Subject: [PATCH] Save XML files, pre- and post-transform, to /tmp if $ENV{IRSPY_SAVE_XML} is true. --- lib/ZOOM/IRSpy.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 03952fe..fa7606a 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.60 2007-02-13 15:02:35 mike Exp $ +# $Id: IRSpy.pm,v 1.61 2007-02-21 17:57:59 mike Exp $ package ZOOM::IRSpy; @@ -246,9 +246,9 @@ sub _render_record { sub _irspy_to_zeerex { - my ($this, $conn) = @_; + my $this = shift(); + my($conn, $save_xml) = @_; my $irspy_doc = $conn->record()->{zeerex}->ownerDocument; - my $save_xml = 0; if ($save_xml) { unlink('/tmp/irspy_orig.xml'); @@ -274,7 +274,7 @@ sub _rewrite_record { my($conn) = @_; $conn->log("irspy", "rewriting XML record"); - my $rec = $this->_irspy_to_zeerex($conn); + my $rec = $this->_irspy_to_zeerex($conn, $ENV{IRSPY_SAVE_XML}); _really_rewrite_record($this->{conn}, $rec); } -- 1.7.10.4