diff options
author | ivan <ivan> | 2002-05-16 14:28:57 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-05-16 14:28:57 +0000 |
commit | 9554f2be960fdb511a4c9d8b519261614319f0aa (patch) | |
tree | 1deb337a4b755cd5814bbb95cf993f34b225c08e /FS | |
parent | ac0647c2bacded54f476e7219b1dce05b8d3226c (diff) |
adding (stub) bsdshell and textradius exports
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_export/bsdshell.pm | 50 | ||||
-rw-r--r-- | FS/FS/part_export/textradius.pm | 50 | ||||
-rw-r--r-- | FS/t/part_export-bsdshell.t | 5 | ||||
-rw-r--r-- | FS/t/part_export-textradius.t | 5 |
4 files changed, 110 insertions, 0 deletions
diff --git a/FS/FS/part_export/bsdshell.pm b/FS/FS/part_export/bsdshell.pm new file mode 100644 index 0000000..4a890d0 --- /dev/null +++ b/FS/FS/part_export/bsdshell.pm @@ -0,0 +1,50 @@ +package FS::part_export::bsdshell; + +use vars qw(@ISA); +use FS::part_export; + +@ISA = qw(FS::part_export); + +sub rebless { shift; } + +sub _export_insert { + my($self, $svc_acct) = (shift, shift); + $err_or_queue = $self->bsdshell_queue( $svc_acct->svcnum, 'insert', + $svc_acct->username, $svc_acct->_password ); + ref($err_or_queue) ? '' : $err_or_queue; +} + +sub _export_replace { + my( $self, $new, $old ) = (shift, shift, shift); + #return "can't change username with bsdshell" + # if $old->username ne $new->username; + #return '' unless $old->_password ne $new->_password; + $err_or_queue = $self->bsdshell_queue( $new->svcnum, + 'replace', $new->username, $new->_password ); + ref($err_or_queue) ? '' : $err_or_queue; +} + +sub _export_delete { + my( $self, $svc_acct ) = (shift, shift); + $err_or_queue = $self->bsdshell_queue( $svc_acct->svcnum, + 'delete', $svc_acct->username ); + ref($err_or_queue) ? '' : $err_or_queue; +} + +#a good idea to queue anything that could fail or take any time +sub bsdshell_queue { + my( $self, $svcnum, $method ) = (shift, shift, shift); + my $queue = new FS::queue { + 'svcnum' => $svcnum, + 'job' => "FS::part_export::bsdshell::bsdshell_$method", + }; + $queue->insert( @_ ) or $queue; +} + +sub bsdshell_insert { #subroutine, not method +} +sub bsdshell_replace { #subroutine, not method +} +sub bsdshell_delete { #subroutine, not method +} + diff --git a/FS/FS/part_export/textradius.pm b/FS/FS/part_export/textradius.pm new file mode 100644 index 0000000..9a0468f --- /dev/null +++ b/FS/FS/part_export/textradius.pm @@ -0,0 +1,50 @@ +package FS::part_export::textradius; + +use vars qw(@ISA); +use FS::part_export; + +@ISA = qw(FS::part_export); + +sub rebless { shift; } + +sub _export_insert { + my($self, $svc_acct) = (shift, shift); + $err_or_queue = $self->textradius_queue( $svc_acct->svcnum, 'insert', + $svc_acct->username, $svc_acct->_password ); + ref($err_or_queue) ? '' : $err_or_queue; +} + +sub _export_replace { + my( $self, $new, $old ) = (shift, shift, shift); + #return "can't change username with textradius" + # if $old->username ne $new->username; + #return '' unless $old->_password ne $new->_password; + $err_or_queue = $self->textradius_queue( $new->svcnum, + 'replace', $new->username, $new->_password ); + ref($err_or_queue) ? '' : $err_or_queue; +} + +sub _export_delete { + my( $self, $svc_acct ) = (shift, shift); + $err_or_queue = $self->textradius_queue( $svc_acct->svcnum, + 'delete', $svc_acct->username ); + ref($err_or_queue) ? '' : $err_or_queue; +} + +#a good idea to queue anything that could fail or take any time +sub textradius_queue { + my( $self, $svcnum, $method ) = (shift, shift, shift); + my $queue = new FS::queue { + 'svcnum' => $svcnum, + 'job' => "FS::part_export::textradius::textradius_$method", + }; + $queue->insert( @_ ) or $queue; +} + +sub textradius_insert { #subroutine, not method +} +sub textradius_replace { #subroutine, not method +} +sub textradius_delete { #subroutine, not method +} + diff --git a/FS/t/part_export-bsdshell.t b/FS/t/part_export-bsdshell.t new file mode 100644 index 0000000..eaf417a --- /dev/null +++ b/FS/t/part_export-bsdshell.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::part_export::bsdshell; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/part_export-textradius.t b/FS/t/part_export-textradius.t new file mode 100644 index 0000000..d8a48a0 --- /dev/null +++ b/FS/t/part_export-textradius.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::part_export::textradius; +$loaded=1; +print "ok 1\n"; |