diff options
| author | ivan <ivan> | 2005-10-06 20:35:14 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2005-10-06 20:35:14 +0000 |
| commit | de6b9e0d2faf9e92830a8977e1538838199aae63 (patch) | |
| tree | e8144256b2ebfc1fe094c4d76fa11d951a7101d6 | |
| parent | 33aeb33a7fafaf099c679c6d7150b54b99e4810f (diff) | |
add debugging option to everyone_net export
| -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'), |