FS/FS/part_export/sqlradius_withdomain.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

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;

$options{'strip_tld'} = { type  => 'checkbox',
                          label => 'Strip TLD from realm names',
                        };

%info = (
  'svc'      => 'svc_acct',
  'desc'     => 'Real-time export to SQL-backed RADIUS (FreeRADIUS, ICRADIUS) with realms',
  'options'  => \%options,
  'nodomain' => '',
  'default_svc_class' => 'Internet',
  '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);
  my $email = $svc_acct->email;
  if ( $self->option('strip_tld') ) {
    $email =~ s/\.\w+$//;
  }
  $email;
}

1;