projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ef0d1ce
)
fix netsapiens device provisioning? or at least better debugging, RT#5226
author
ivan
<ivan>
Tue, 14 Jul 2009 02:53:57 +0000
(
02:53
+0000)
committer
ivan
<ivan>
Tue, 14 Jul 2009 02:53:57 +0000
(
02:53
+0000)
FS/FS/part_export/netsapiens.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/netsapiens.pm
b/FS/FS/part_export/netsapiens.pm
index
eea2509
..
9181344
100644
(file)
--- a/
FS/FS/part_export/netsapiens.pm
+++ b/
FS/FS/part_export/netsapiens.pm
@@
-1,12
+1,13
@@
package FS::part_export::netsapiens;
package FS::part_export::netsapiens;
-use vars qw(@ISA %info);
+use vars qw(@ISA
$me
%info);
use URI;
use MIME::Base64;
use Tie::IxHash;
use FS::part_export;
@ISA = qw(FS::part_export);
use URI;
use MIME::Base64;
use Tie::IxHash;
use FS::part_export;
@ISA = qw(FS::part_export);
+$me = '[FS::part_export::netsapiens]';
tie my %options, 'Tie::IxHash',
'login' => { label=>'NetSapiens tac2 User API username' },
tie my %options, 'Tie::IxHash',
'login' => { label=>'NetSapiens tac2 User API username' },
@@
-16,6
+17,7
@@
tie my %options, 'Tie::IxHash',
'device_password' => { label=>'NetSapiens tac2 Device API password' },
'device_url' => { label=>'NetSapiens tac2 Device URL' },
'domain' => { label=>'NetSapiens Domain' },
'device_password' => { label=>'NetSapiens tac2 Device API password' },
'device_url' => { label=>'NetSapiens tac2 Device URL' },
'domain' => { label=>'NetSapiens Domain' },
+ 'debug' => { label=>'Enable debugging', type=>'checkbox' },
;
%info = (
;
%info = (
@@
-38,7
+40,7
@@
sub ns_command {
sub ns_device_command {
my $self = shift;
sub ns_device_command {
my $self = shift;
- $self->_ns_command('device', @_);
+ $self->_ns_command('device
_
', @_);
}
sub _ns_command {
}
sub _ns_command {
@@
-59,6
+61,10
@@
sub _ns_command {
$args[0] .= $ns->buildQuery( { @_ } );
}
$args[0] .= $ns->buildQuery( { @_ } );
}
+ warn "$me $method ". $self->option($prefix.'url').
+ " $command ". join(', ', @_). "\n"
+ if $self->option('debug');
+
my $auth = encode_base64( $self->option($prefix.'login'). ':'.
$self->option($prefix.'password') );
push @args, { 'Authorization' => "Basic $auth" };
my $auth = encode_base64( $self->option($prefix.'login'). ':'.
$self->option($prefix.'password') );
push @args, { 'Authorization' => "Basic $auth" };