do not require a reason to have been suspended
[freeside.git] / FS / FS / part_export / sqlradius_withdomain.pm
1 package FS::part_export::sqlradius_withdomain;
2
3 use vars qw(@ISA %info);
4 use Tie::IxHash;
5 use FS::part_export::sqlradius;
6
7 tie my %options, 'Tie::IxHash', %FS::part_export::sqlradius::options;
8
9 %info = (
10   'svc'      => 'svc_acct',
11   'desc'     => 'Real-time export to SQL-backed RADIUS (FreeRADIUS, ICRADIUS) with realms',
12   'options'  => \%options,
13   'nodomain' => '',
14   'notes' => $FS::part_export::sqlradius::notes1.
15              'This export exports domains to RADIUS realms (see also '.
16              'sqlradius).  '.
17              $FS::part_export::sqlradius::notes2
18 );
19
20 @ISA = qw(FS::part_export::sqlradius);
21
22 sub export_username {
23   my($self, $svc_acct) = (shift, shift);
24   $svc_acct->email;
25 }
26
27 1;
28