blob: 0ab4f1456b5ea3d9ce4360b2c58fa90c7f987354 (
plain)
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
|
# Add this to the modules section of radiusd.conf
# #path to this module
# module=/usr/local/share/perl/5.8.8/FS/SelfService/FreeRadiusVoip.pm
# func_autheenticate = authenticate
#
#In the Authorize section
#Make sure that you have 'files' uncommented. Then add a line containing 'perl'
# after it.
#
#In the Authentication section add
# Auth-Type Perl {
# perl
# }
#
# #N/A# Add a line containing 'perl' to the Accounting section.
#
# In the users file comment the 'DEFAULT Auth-Type = System' lines
# and then add
# DEFAULT Auth-Type = Perl
# Fall-Through = 1
BEGIN { $FS::SelfService::skip_uid_check = 1; }
use strict;
use vars qw(%RAD_REQUEST %RAD_REPLY %RAD_CHECK);
#use Data::Dumper;
use FS::SelfService qw(call_time);
use constant RLM_MODULE_REJECT=> 0; #immediately reject the request
use constant RLM_MODULE_FAIL=> 1; #module failed, don't reply
use constant RLM_MODULE_OK=> 2; #the module is OK, continue
use constant RLM_MODULE_HANDLED=> 3; #the module handled the request, so stop
use constant RLM_MODULE_INVALID=> 4; #the module considers the request invalid
use constant RLM_MODULE_USERLOCK=> 5; #reject the request (user is locked out)
use constant RLM_MODULE_NOTFOUND=> 6; #user not found
use constant RLM_MODULE_NOOP=> 7; #module succeeded without doing anything
use constant RLM_MODULE_UPDATED=> 8; #OK (pairs modified)
use constant RLM_MODULE_NUMCODES=> 9; #How many return codes there are
sub authenticate {
#my $src = $RAD_REQUEST{'User-Name'};
# my $response = call_time( 'src' => $RAD_REQUEST{'Calling-Station-Id'},
# 'dst' => $RAD_REQUEST{'Called-Station-Id'}, );
#
# if $response{$
$RAD_REPLY{'Session-Timeout'} = 420;
return RLM_MODULE_UPDATED;
}
sub log_request_attributes {
# This shouldn't be done in production environments!
# This is only meant for debugging!
for (keys %RAD_REQUEST) {
&radiusd::radlog(1, "RAD_REQUEST: $_ = $RAD_REQUEST{$_}");
}
}
|
