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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
package FS::part_export::phone_sqlradius;
use vars qw(@ISA $DEBUG %info );
use Tie::IxHash;
use FS::Record; #qw( dbh qsearch qsearchs str2time_sql );
#use FS::part_export;
use FS::part_export::sqlradius;
#use FS::svc_phone;
#use FS::export_svc;
#use Carp qw( cluck );
@ISA = qw(FS::part_export::sqlradius);
$DEBUG = 0;
tie %options, 'Tie::IxHash',
'datasrc' => { label=>'DBI data source ' },
'username' => { label=>'Database username' },
'password' => { label=>'Database password' },
'ignore_accounting' => {
type => 'checkbox',
label => 'Ignore accounting records from this database'
},
'hide_ip' => {
type => 'checkbox',
label => 'Hide IP address information on session reports',
},
'hide_data' => {
type => 'checkbox',
label => 'Hide download/upload information on session reports',
},
#should be default for this one, right?
#'show_called_station' => {
# type => 'checkbox',
# label => 'Show the Called-Station-ID on session reports',
#},
#N/A
#'overlimit_groups' => { label => 'Radius groups to assign to svc_acct which has exceeded its bandwidth or time limit', } ,
#'groups_susp_reason' => { label =>
# 'Radius group mapping to reason (via template user) (svcnum|username|username@domain reasonnum|reason)',
# type => 'textarea',
# },
;
%info = (
'svc' => 'svc_phone',
'desc' => 'Real-time export to SQL-backed RADIUS (FreeRADIUS, ICRADIUS) for phone provisioning and rating',
'options' => \%options,
'notes' => <<END,
Real-time export of <b>radcheck</b> table
<!--, <b>radreply</b> and <b>usergroup</b>-- tables>
to any SQL database for <a href="http://www.freeradius.org/">FreeRADIUS</a>
or <a href="http://radius.innercite.com/">ICRADIUS</a>.
<br><br>
This export is for phone/VoIP provisioning and rating. For a regular RADIUS
export, see sqlradius.
<br><br>
<!--An existing RADIUS database will be updated in realtime, but you can use
<a href="http://www.freeside.biz/mediawiki/index.php/Freeside:1.9:Documentation:Developer/bin/freeside-phone_sqlradius-reset">freeside-phone_sqlradius-reset</a>
to delete the entire RADIUS database and repopulate the tables from the
Freeside database.
<br><br>
-->
See the
<a href="http://search.cpan.org/dist/DBI/DBI.pm#connect">DBI documentation</a>
and the
<a href="http://search.cpan.org/search?mode=module&query=DBD%3A%3A">documentation for your DBD</a>
for the exact syntax of a DBI data source.
END
);
sub rebless { shift; }
sub export_username {
my($self, $svc_phone) = (shift, shift);
$svc_phone->countrycode. $svc_phone->phonenum;
}
sub _export_suspend {}
sub _export_unsuspend {}
#probably harmless that we ->can('usage_sessions').... ?
1;
|
