projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e2c2e1c
)
RT# 78547 noexport_hack part_svc::netsapiens
author
Mitch Jackson
<mitch@mitchjacksontech.com>
Tue, 14 Aug 2018 23:41:57 +0000
(19:41 -0400)
committer
Mitch Jackson
<mitch@freeside.biz>
Wed, 19 Sep 2018 04:41:50 +0000
(
00:41
-0400)
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
ac78dbc
..
c6110f5
100644
(file)
--- 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 Date::Format qw( time2str );
use Regexp::Common qw( URI );
use REST::Client;
+use Carp qw(carp);
$me = '[FS::part_export::netsapiens]';
$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);
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;
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);
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),
);
my $ns = $self->ns_device_command(
'DELETE', $self->ns_device($svc_phone, $phone_device),
);