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