projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add condition_sql optimization to "Package definitions" condition, RT#74456
[freeside.git]
/
FS
/
FS
/
part_export
/
sqlradius_withdomain.pm
diff --git
a/FS/FS/part_export/sqlradius_withdomain.pm
b/FS/FS/part_export/sqlradius_withdomain.pm
index
6130e5e
..
2af9e8d
100644
(file)
--- a/
FS/FS/part_export/sqlradius_withdomain.pm
+++ b/
FS/FS/part_export/sqlradius_withdomain.pm
@@
-6,11
+6,16
@@
use FS::part_export::sqlradius;
tie my %options, 'Tie::IxHash', %FS::part_export::sqlradius::options;
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',
%info = (
'svc' => 'svc_acct',
- 'desc' => 'Real-time export to SQL-backed RADIUS (FreeRADIUS, ICRADIUS
, Radiator
) with realms',
+ 'desc' => 'Real-time export to SQL-backed RADIUS (FreeRADIUS, ICRADIUS) with realms',
'options' => \%options,
'nodomain' => '',
'options' => \%options,
'nodomain' => '',
+ 'default_svc_class' => 'Internet',
'notes' => $FS::part_export::sqlradius::notes1.
'This export exports domains to RADIUS realms (see also '.
'sqlradius). '.
'notes' => $FS::part_export::sqlradius::notes1.
'This export exports domains to RADIUS realms (see also '.
'sqlradius). '.
@@
-21,7
+26,11
@@
tie my %options, 'Tie::IxHash', %FS::part_export::sqlradius::options;
sub export_username {
my($self, $svc_acct) = (shift, shift);
sub export_username {
my($self, $svc_acct) = (shift, shift);
- $svc_acct->email;
+ my $email = $svc_acct->email;
+ if ( $self->option('strip_tld') ) {
+ $email =~ s/\.\w+$//;
+ }
+ $email;
}
1;
}
1;