diff options
Diffstat (limited to 'FS/FS/part_export/sqlradius_withdomain.pm')
| -rw-r--r-- | FS/FS/part_export/sqlradius_withdomain.pm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/FS/FS/part_export/sqlradius_withdomain.pm b/FS/FS/part_export/sqlradius_withdomain.pm new file mode 100644 index 0000000..6130e5e --- /dev/null +++ b/FS/FS/part_export/sqlradius_withdomain.pm @@ -0,0 +1,28 @@ +package FS::part_export::sqlradius_withdomain; + +use vars qw(@ISA %info); +use Tie::IxHash; +use FS::part_export::sqlradius; + +tie my %options, 'Tie::IxHash', %FS::part_export::sqlradius::options; + +%info = ( + 'svc' => 'svc_acct', + 'desc' => 'Real-time export to SQL-backed RADIUS (FreeRADIUS, ICRADIUS, Radiator) with realms', + 'options' => \%options, + 'nodomain' => '', + 'notes' => $FS::part_export::sqlradius::notes1. + 'This export exports domains to RADIUS realms (see also '. + 'sqlradius). '. + $FS::part_export::sqlradius::notes2 +); + +@ISA = qw(FS::part_export::sqlradius); + +sub export_username { + my($self, $svc_acct) = (shift, shift); + $svc_acct->email; +} + +1; + |