From de6b9e0d2faf9e92830a8977e1538838199aae63 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 6 Oct 2005 20:35:14 +0000
Subject: [PATCH] add debugging option to everyone_net export

---
 FS/FS/part_export/everyone_net.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/FS/FS/part_export/everyone_net.pm b/FS/FS/part_export/everyone_net.pm
index 221940d6d..dbb5ea315 100644
--- a/FS/FS/part_export/everyone_net.pm
+++ b/FS/FS/part_export/everyone_net.pm
@@ -10,6 +10,8 @@ tie my %options, 'Tie::IxHash',
   'clientID'  => { label=>'clientID' },
   'password'  => { label=>'Password' },
   #'workgroup' => { label=>'Default Workgroup' },
+  'debug'     => { label=>'Enable debugging',
+                    type=>'checkbox'          },
 ;
 
 %info = (
@@ -51,6 +53,9 @@ sub _xrc_command {
   eval "use Net::XRC qw(:types);";
   return $@ if $@;
 
+  local($Net::XRC::DEBUG) = 1
+    if $self->option('debug');
+
   my $xrc = new Net::XRC (
     'clientID' => $self->option('clientID'),
     'password' => $self->option('password'),
-- 
2.11.0