diff options
author | Mitch Jackson <mitch@mitchjacksontech.com> | 2018-08-14 19:27:57 -0400 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-08-14 20:26:39 -0400 |
commit | bd7a4fa7a0fd966692d95b0f9cc7991a2a51310c (patch) | |
tree | 93d3224fe546912a5cc35718c1c82d84b4296a96 /FS | |
parent | 0751f3ab8748fe06e3a5c018b15bf5aea3374970 (diff) |
RT# 78547 noexport_hack - part_svc::grandstream
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_export/grandstream.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/FS/FS/part_export/grandstream.pm b/FS/FS/part_export/grandstream.pm index 5c6f1ed8d..981eb1969 100644 --- a/FS/FS/part_export/grandstream.pm +++ b/FS/FS/part_export/grandstream.pm @@ -7,6 +7,7 @@ use MIME::Base64; use Tie::IxHash; use IPC::Run qw(run); use FS::CGI qw(rooturl); +use Carp qw(carp); $DEBUG = 0; @@ -50,6 +51,12 @@ sub rebless { shift; } sub gs_create_config { my($self, $mac, %opt) = (@_); + if ( $FS::svc_Common::noexport_hack ) { + carp 'gs_create_config() suppressed by noexport_hack' + if $self->option('debug') || $DEBUG; + return; + } + eval "use Net::SCP;"; die $@ if $@; @@ -131,6 +138,12 @@ sub gs_create { sub gs_delete { my($self, $mac) = (shift, shift); + if ( $FS::svc_Common::noexport_hack ) { + carp 'gs_delete() suppressed by noexport_hack' + if $self->option('debug') || $DEBUG; + return; + } + $mac = sprintf('%012s', lc($mac)); ssh_cmd( user => $self->option('user'), |