diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-05-23 11:47:03 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-05-23 11:47:03 -0700 |
commit | 884d54765a4709bee112d7204b127670648b7a55 (patch) | |
tree | 60dfef8d848d86d3aab2e68479e24271c327251a /FS/FS/part_export | |
parent | 76b2f486c109892260bb7d7ba6d4898f742beca8 (diff) |
add debug flag, RT#73618
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/vitelity.pm | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/FS/FS/part_export/vitelity.pm b/FS/FS/part_export/vitelity.pm index 8d802b16d..089e1093d 100644 --- a/FS/FS/part_export/vitelity.pm +++ b/FS/FS/part_export/vitelity.pm @@ -4,7 +4,7 @@ use base qw( FS::part_export ); use vars qw( %info ); use Tie::IxHash; use Geo::StreetAddress::US; -use Net::Vitelity; +use Net::Vitelity 0.05; use FS::Record qw( qsearch dbh ); use FS::phone_avail; use FS::svc_phone; @@ -25,6 +25,10 @@ tie my %options, 'Tie::IxHash', 'disable_e911' => { label => "Disable E911 provisioning", type => 'checkbox', }, + 'debug' => { label => 'Enable debugging', + type => 'checkbox', + value => 1, + }, ; %info = ( @@ -246,10 +250,10 @@ sub vitelity_command { my( $self, $command, @args ) = @_; my $vitelity = Net::Vitelity->new( - 'login' => $self->option('login'), - 'pass' => $self->option('pass'), - 'apitype' => $self->option('fax') ? 'fax' : 'api', - #'debug' => $debug, + 'login' => $self->option('login'), + 'pass' => $self->option('pass'), + 'apitype' => $self->option('fax') ? 'fax' : 'api', + 'debug' => $self->option('debug'), ); $vitelity->$command(@args); @@ -259,10 +263,10 @@ sub vitelity_lnp_command { my( $self, $command, @args ) = @_; my $vitelity = Net::Vitelity->new( - 'login' => $self->option('login'), - 'pass' => $self->option('pass'), - 'apitype' => 'lnp', - #'debug' => $debug, + 'login' => $self->option('login'), + 'pass' => $self->option('pass'), + 'apitype' => 'lnp', + 'debug' => $self->option('debug'), ); $vitelity->$command(@args); |