diff options
Diffstat (limited to 'FS/FS/part_export/everyone_net.pm')
| -rw-r--r-- | FS/FS/part_export/everyone_net.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/part_export/everyone_net.pm b/FS/FS/part_export/everyone_net.pm index 221940d..dbb5ea3 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'), |