diff options
author | Mitch Jackson <mitch@freeside.biz> | 2018-08-14 15:47:35 -0400 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-08-14 20:25:01 -0400 |
commit | b0c8b7e221d39eb13771e2870b21f4007deb0964 (patch) | |
tree | ca4943918dbc5f45b13e590f3c9a8204b68c1edc /FS/FS/part_export.pm | |
parent | a3c654c1ae9ea07726aba9899a9b2e1d4dbd12c6 (diff) |
RT# 78547 - consolidate noexport_hack
Diffstat (limited to 'FS/FS/part_export.pm')
-rw-r--r-- | FS/FS/part_export.pm | 32 |
1 files changed, 30 insertions, 2 deletions
diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index 572a1b6..1a8f43d 100644 --- a/FS/FS/part_export.pm +++ b/FS/FS/part_export.pm @@ -554,15 +554,19 @@ sub default_export_machine { die "no default export hostname for export ".$self->exportnum; } -#these should probably all go away, just let the subclasses define em - =item export_insert SVC_OBJECT =cut +# Do not overload! Overload _export_insert instead + sub export_insert { my $self = shift; #$self->rebless; + if ( $FS::svc_Common::noexport_hack ) { + carp "export_insert() suppressed by noexport_hack" if $DEBUG; + return; + } $self->_export_insert(@_); } @@ -579,9 +583,15 @@ sub export_insert { =cut +# Do not overload! Overload _export_replace instead + sub export_replace { my $self = shift; #$self->rebless; + if ( $FS::svc_Common::noexport_hack ) { + carp "export_replace() suppressed by noexport_hack" if $DEBUG; + return; + } $self->_export_replace(@_); } @@ -589,9 +599,15 @@ sub export_replace { =cut +# Do not overload! Overload _export_delete instead + sub export_delete { my $self = shift; #$self->rebless; + if ( $FS::svc_Common::noexport_hack ) { + carp "export_delete() suppressed by noexport_hack" if $DEBUG; + return; + } $self->_export_delete(@_); } @@ -599,9 +615,15 @@ sub export_delete { =cut +# Do not overload! Overload _export_suspend instead + sub export_suspend { my $self = shift; #$self->rebless; + if ( $FS::svc_Common::noexport_hack ) { + carp "export_suspend() suppressed by noexport_hack" if $DEBUG; + return; + } $self->_export_suspend(@_); } @@ -609,9 +631,15 @@ sub export_suspend { =cut +# Do not overload! Overload _export_unsuspend instead + sub export_unsuspend { my $self = shift; #$self->rebless; + if ( $FS::svc_Common::noexport_hack ) { + carp "export_unsuspend() suppressed by noexport_hack" if $DEBUG; + return; + } $self->_export_unsuspend(@_); } |