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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
# -*- text -*-
#
# ippool/mssql/queries.conf -- MSSQL queries for rlm_sqlippool
#
# $Id$
#
# MSSQL-specific syntax - required if finding the address and updating
# it are separate queries
#
#allocate_begin = "BEGIN TRAN"
#allocate_commit = "COMMIT TRAN"
allocate_begin = ""
allocate_commit = ""
#
# This series of queries allocates an IP address
#
#
# Attempt to allocate the address a client previously had. This is based on pool_key
# and nasipaddress. Change the criteria if the identifier for "stickyness" is different.
# If different criteria are used, check the indexes on the IP pool table to ensure the fields
# are appropriately indexed. To disable stickyness comment out this query.
#
allocate_existing = "\
WITH cte AS ( \
SELECT TOP(1) FramedIPAddress, CallingStationId, UserName, expiry_time \
FROM ${ippool_table} WITH (xlock rowlock readpast) \
WHERE pool_name = '%{control:${pool_name}}' \
AND NASIPAddress = '%{NAS-IP-Address}' AND pool_key = '${pool_key}' \
ORDER BY expiry_time DESC \
) \
UPDATE cte \
SET \
CallingStationId = '%{Calling-Station-Id}', \
UserName = '%{User-Name}', expiry_time = DATEADD(SECOND,${lease_duration},CURRENT_TIMESTAMP) \
OUTPUT INSERTED.FramedIPAddress"
#
# Find a free IP address from the pool, choosing the oldest expired one.
#
allocate_find = "\
WITH cte AS ( \
SELECT TOP(1) FramedIPAddress, NASIPAddress, pool_key, \
CallingStationId, UserName, expiry_time \
FROM ${ippool_table} WITH (xlock rowlock readpast) \
WHERE pool_name = '%{control:${pool_name}}' \
AND expiry_time < CURRENT_TIMESTAMP \
ORDER BY expiry_time \
) \
UPDATE cte \
SET \
NASIPAddress = '%{NAS-IP-Address}', pool_key = '${pool_key}', \
CallingStationId = '%{Calling-Station-Id}', \
UserName = '%{User-Name}', expiry_time = DATEADD(SECOND,${lease_duration},CURRENT_TIMESTAMP) \
OUTPUT INSERTED.FramedIPAddress"
#
# If you prefer to allocate a random IP address every time, use this query instead.
# Note: This is very slow if you have a lot of free IPs.
#
#allocate_find = "\
# WITH cte AS ( \
# SELECT TOP(1) FramedIPAddress, NASIPAddress, pool_key, \
# CallingStationId, UserName, expiry_time \
# FROM ${ippool_table} \
# WHERE pool_name = '%{control:${pool_name}}' \
# AND expiry_time < CURRENT_TIMESTAMP \
# ORDER BY newid() \
# ) \
# UPDATE cte WITH (rowlock, readpast) \
# SET \
# NASIPAddress = '%{NAS-IP-Address}', pool_key = '${pool_key}', \
# CallingStationId = '%{Calling-Station-Id}', \
# UserName = '%{User-Name}', expiry_time = DATEADD(SECOND,${lease_duration},CURRENT_TIMESTAMP) \
# OUTPUT INSERTED.FramedIPAddress"
#
# If an IP could not be allocated, check to see if the pool exists or not
# This allows the module to differentiate between a full pool and no pool
# Note: If you are not running redundant pool modules this query may be
# commented out to save running this query every time an ip is not allocated.
#
pool_check = "\
SELECT TOP(1) id \
FROM ${ippool_table} \
WHERE pool_name='%{control:${pool_name}}'"
#
# This is the final IP Allocation query, which saves the allocated ip details.
# Only needed if allocate_existing / allocate_find do not also update the pool.
#
#allocate_update = "\
# UPDATE ${ippool_table} \
# SET \
# NASIPAddress = '%{NAS-IP-Address}', pool_key = '${pool_key}', \
# CallingStationId = '%{Calling-Station-Id}', \
# UserName = '%{User-Name}', expiry_time = DATEADD(SECOND,${lease_duration},CURRENT_TIMESTAMP) \
# WHERE FramedIPAddress = '%I'"
#
# Use a stored procedure to find AND allocate the address. Read and customise
# `procedure.sql` in this directory to determine the optimal configuration.
#
#allocate_begin = ""
#allocate_find = "\
# EXEC fr_allocate_previous_or_new_framedipaddress \
# @v_pool_name = '%{control:${pool_name}}', \
# @v_username = '%{User-Name}', \
# @v_callingstationid = '%{Calling-Station-Id}', \
# @v_nasipaddress = '%{NAS-IP-Address}', \
# @v_pool_key = '${pool_key}', \
# @v_lease_duration = ${lease_duration} \
# "
#allocate_update = ""
#allocate_commit = ""
#
# This series of queries frees an IP number when an accounting START record arrives.
#
start_update = "\
UPDATE ${ippool_table} \
SET \
expiry_time = DATEADD(SECOND,${lease_duration},CURRENT_TIMESTAMP) \
WHERE NASIPAddress = '%{NAS-IP-Address}' \
AND pool_key = '${pool_key}' \
AND UserName = '%{User-Name}' \
AND CallingStationId = '%{Calling-Station-Id}' \
AND FramedIPAddress = '%{${attribute_name}}'"
#
# Expire an IP when an accounting STOP record arrives
#
stop_clear = "\
UPDATE ${ippool_table} \
SET \
expiry_time = CURRENT_TIMESTAMP \
WHERE NASIPAddress = '%{%{Nas-IP-Address}:-%{Nas-IPv6-Address}}' \
AND pool_key = '${pool_key}' \
AND UserName = '%{User-Name}' \
AND CallingStationId = '%{Calling-Station-Id}' \
AND FramedIPAddress = '%{${attribute_name}}'"
#
# Update the expiry time for an IP when an accounting ALIVE record arrives
#
alive_update = "\
UPDATE ${ippool_table} \
SET \
expiry_time = DATEADD(SECOND,${lease_duration},CURRENT_TIMESTAMP) \
WHERE NASIPAddress = '%{%{Nas-IP-Address}:-%{Nas-IPv6-Address}}' \
AND pool_key = '${pool_key}' \
AND UserName = '%{User-Name}' \
AND CallingStationId = '%{Calling-Station-Id}' \
AND FramedIPAddress = '%{${attribute_name}}'"
#
# Expires all IPs allocated to a NAS when an accounting ON record arrives
#
on_clear = "\
UPDATE ${ippool_table} \
SET \
expiry_time = CURRENT_TIMESTAMP \
WHERE NASIPAddress = '%{%{Nas-IP-Address}:-%{Nas-IPv6-Address}}'"
#
# Expires all IPs allocated to a NAS when an accounting OFF record arrives
#
off_clear = "\
UPDATE ${ippool_table} \
SET \
expiry_time = CURRENT_TIMESTAMP \
WHERE NASIPAddress = '%{%{Nas-IP-Address}:-%{Nas-IPv6-Address}}'"
|
