diff options
author | ivan <ivan> | 2004-02-23 08:12:47 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-02-23 08:12:47 +0000 |
commit | b5fa7c0c1953139f1fbe0dabf3930871646016b8 (patch) | |
tree | 85577a8c157d845c9d11545d6566c27f069e7158 /FS/FS/part_export.pm | |
parent | ed9253ea9ea732fa3c827b10bbadf0ff7784c0b2 (diff) |
implement fallback suspension code
Diffstat (limited to 'FS/FS/part_export.pm')
-rw-r--r-- | FS/FS/part_export.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index 0d91961..8423da2 100644 --- a/FS/FS/part_export.pm +++ b/FS/FS/part_export.pm @@ -468,18 +468,22 @@ sub _export_delete { return "_export_delete: unknown export type ". $self->exporttype; } -#fallbacks providing null operations +#call svcdb-specific fallbacks sub _export_suspend { my $self = shift; #warn "warning: _export_suspened unimplemented for". ref($self); - ''; + my $svc_x = shift; + my $new = $svc_x->clone_suspended; + $self->_export_replace( $new, $svc_x ); } sub _export_unsuspend { my $self = shift; #warn "warning: _export_unsuspend unimplemented for ". ref($self); - ''; + my $svc_x = shift; + my $old = $svc_x->clone_kludge_unsuspend; + $self->_export_replace( $svc_x, $old ); } =back |