diff options
author | Mitch Jackson <mitch@mitchjacksontech.com> | 2018-08-14 19:34:50 -0400 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-09-19 00:40:45 -0400 |
commit | c6ac0d4705ef01f2cca9340c7089bae1908cae27 (patch) | |
tree | ab6fe6bdfbb8ac20a3f94edcd8ee29897bd06b6c | |
parent | c616cf2095e79a6dec2f16cd9ffaa139841ee0ee (diff) |
RT# 78547 noexport_hack part_svc::http_status
-rw-r--r-- | FS/FS/part_export/http_status.pm | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/FS/FS/part_export/http_status.pm b/FS/FS/part_export/http_status.pm index 5c4a8d0..3e182d3 100644 --- a/FS/FS/part_export/http_status.pm +++ b/FS/FS/part_export/http_status.pm @@ -8,6 +8,7 @@ use URI::Escape; use LWP::UserAgent; use HTTP::Request::Common; use Email::Valid; +use Carp qw(carp); tie my %options, 'Tie::IxHash', 'url' => { label => 'URL', }, @@ -53,6 +54,12 @@ sub _export_delete { '' }; sub export_getstatus { my( $self, $svc_x, $htmlref, $hashref ) = @_; + if ( $FS::svc_Common::noexport_hack ) { + carp 'export_getstatus() suppressed by noexport_hack' + if $self->option('debug') || $DEBUG; + return; + } + my $url; my $urlopt = $self->option('url'); no strict 'vars'; @@ -131,6 +138,12 @@ sub export_setstatus_listdel { sub export_setstatus_listX { my( $self, $svc_x, $action, $list, $address_item ) = @_; + if ( $FS::svc_Common::noexport_hack ) { + carp 'export_setstatus_listX() suppressed by noexport_hack' + if $self->option('debug') || $DEBUG; + return; + } + my $option; if ( $list =~ /^[WA]/i ) { #Whitelist/Allow $option = 'whitelist_'; @@ -182,6 +195,12 @@ sub export_setstatus_vacationdel { sub export_setstatus_vacationX { my( $self, $svc_x, $action, $hr ) = @_; + if ( $FS::svc_Common::noexport_hack ) { + carp 'export_setstatus_vacationX() suppressed by noexport_hack' + if $self->option('debug') || $DEBUG; + return; + } + my $option = 'vacation_'. $action. '_url'; my $subject = uri_escape($hr->{subject}); @@ -216,5 +235,3 @@ sub export_setstatus_vacationX { } 1; - -1; |