diff options
author | ivan <ivan> | 2005-09-07 09:37:26 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-09-07 09:37:26 +0000 |
commit | 51ece2a921eda1257f424fe69d8ce9780b9ba13f (patch) | |
tree | 4a9e144f92af3b7172fbc1b64eccd7ad48b43307 /eg | |
parent | 6824eb2001d4b6091af082d0be58932fa3e569c0 (diff) |
add cpanel export
Diffstat (limited to 'eg')
-rw-r--r-- | eg/export_template.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/eg/export_template.pm b/eg/export_template.pm index 2c199db85..2830ce337 100644 --- a/eg/export_template.pm +++ b/eg/export_template.pm @@ -56,6 +56,24 @@ sub _export_delete { ref($err_or_queue) ? '' : $err_or_queue; } +#these two are optional +# fallback for svc_acct will change and restore password +sub _export_suspend { + my( $self, $svc_something ) = (shift, shift); + $err_or_queue = $self->myexport_queue( $svc_something->svcnum, + 'suspend', $svc_something->username ); + ref($err_or_queue) ? '' : $err_or_queue; +} + +sub _export_unsuspend { + my( $self, $svc_something ) = (shift, shift); + $err_or_queue = $self->myexport_queue( $svc_something->svcnum, + 'unsuspend', $svc_something->username ); + ref($err_or_queue) ? '' : $err_or_queue; +} + +### + #a good idea to queue anything that could fail or take any time sub myexport_queue { my( $self, $svcnum, $method ) = (shift, shift, shift); @@ -79,3 +97,10 @@ sub myexport_delete { #subroutine, not method #do things with $username } +sub myexport_suspend { #subroutine, not method +} + +sub myexport_unsuspend { #subroutine, not method +} + + |