use Tie::IxHash;
use IPC::Run qw(run);
use FS::CGI qw(rooturl);
+use Carp qw(carp);
-$DEBUG = 1;
+$DEBUG = 0;
$me = '[' . __PACKAGE__ . ']';
$GAPSLITE_HOME = '/usr/local/src/GS_CFG_GEN/';
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 $@;
'com.grandstream.cmd.TextEncoder',
$mac, $filename, "$dir/cfg$mac",
);
- run \@cmd, '>&', \$out_and_err,
- },
+ run \@cmd, '>&', \$out_and_err
or die "grandstream encode failed: $out_and_err";
unlink $filename;
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'),