use Date::Format qw( time2str );
use Regexp::Common qw( URI );
use REST::Client;
+use Carp qw(carp);
$me = '[FS::part_export::netsapiens]';
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;
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),
);