diff options
author | Mitch Jackson <mitch@mitchjacksontech.com> | 2018-08-14 19:41:57 -0400 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-08-14 20:26:39 -0400 |
commit | c955f8e33cf8270f37b2d07e3920a30be33dd14a (patch) | |
tree | 5e88360c4c0a557bc11432468e29d465a29542df /FS/FS/part_export | |
parent | cd17fdd28e6fc14fcce521277a6aa65e322f9337 (diff) |
RT# 78547 noexport_hack part_svc::netsapiens
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/netsapiens.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/FS/FS/part_export/netsapiens.pm b/FS/FS/part_export/netsapiens.pm index ac78dbca5..c6110f5ac 100644 --- a/FS/FS/part_export/netsapiens.pm +++ b/FS/FS/part_export/netsapiens.pm @@ -7,6 +7,7 @@ use Tie::IxHash; use Date::Format qw( time2str ); use Regexp::Common qw( URI ); use REST::Client; +use Carp qw(carp); $me = '[FS::part_export::netsapiens]'; @@ -392,6 +393,12 @@ sub _export_unsuspend { sub export_device_insert { my( $self, $svc_phone, $phone_device ) = (shift, shift, shift); + if ( $FS::svc_Common::noexport_hack ) { + carp 'export_device_insert() suppressed by noexport_hack' + if $self->option('debug'); + return; + } + my $domain = $self->ns_domain($svc_phone); my $countrycode = $svc_phone->countrycode; my $phonenum = $svc_phone->phonenum; @@ -426,6 +433,12 @@ sub export_device_insert { sub export_device_delete { my( $self, $svc_phone, $phone_device ) = (shift, shift, shift); + if ( $FS::svc_Common::noexport_hack ) { + carp 'export_device_delete() suppressed by noexport_hack' + if $self->option('debug'); + return; + } + my $ns = $self->ns_device_command( 'DELETE', $self->ns_device($svc_phone, $phone_device), ); |