From: khoff <khoff>
Date: Fri, 6 Apr 2007 00:01:02 +0000 (+0000)
Subject: Disable debug output by default.
X-Git-Tag: TRIXBOX_2_6~564
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=3f965d65535b31bcb2a2b37cc625ad46d82c81a9

Disable debug output by default.
Pass @_ along to new exports.
---

diff --git a/FS/FS/part_export/nas_wrapper.pm b/FS/FS/part_export/nas_wrapper.pm
index fee9f48fe..2499ba3ee 100644
--- a/FS/FS/part_export/nas_wrapper.pm
+++ b/FS/FS/part_export/nas_wrapper.pm
@@ -45,7 +45,7 @@ use Data::Dumper qw(Dumper);
 
 @ISA = qw(FS::part_export);
 $me = '[' . __PACKAGE__ . ']';
-$DEBUG = 1;
+$DEBUG = 0;
 
 %info = (
   'svc'     => 'svc_broadband',
@@ -189,7 +189,7 @@ sub _export_command {
   }
 
   warn "[debug]$me Dispatching child exports... "
-    . &Dumper($queue_child_exports);
+    . &Dumper($queue_child_exports) if $DEBUG;
 
   # Actually call the child exports now, with their preset action and arguments.
   foreach my $_action (keys(%$queue_child_exports)) {
@@ -199,6 +199,7 @@ sub _export_command {
         $_child_export,
         $_action,
         @{$_child_export->{'args'}},
+        @_,
       );
 
       # Bail if there's an error queueing one of the exports.