Options
Traffic Steering on Radius Attributes
#################################################
#
# aFleX script to provide Header Enrichment for
# the purpose of policy based Traffic Steering.
#
# This comes in 2 parts.
# 1) Script that is bound to a RADIUS VPORT.
# 2) Script that is bound to a HTTP VPORT.
#
#################################################
#
# VPORT: RADIUS
#
when RULE_INIT {
set ::DEBUG 0
}
when CLIENT_DATA {
binary scan [RADIUS::avp 40] H* avp40
if { ($::DEBUG == 1) } { log "RADIUS == User-Name=[RADIUS::avp 1], User-Password=[RADIUS::avp 2], Framed-IP-Address=[RADIUS::avp 8], Filter-Id=[RADIUS::avp 11], Calling-Station-Id=[RADIUS::avp 31], Acct-Status-Type=$avp40" }
if { $avp40 == 1 } {
table set msisdn [RADIUS::avp 8] [RADIUS::avp 31] indef
table set policy [RADIUS::avp 8] [RADIUS::avp 11] indef
if { ($::DEBUG == 1) } { log "RADIUS == TABLE SET MSISDN: [table lookup msisdn [RADIUS::avp 8]] - POLICY: [table lookup policy [RADIUS::avp 8]]" }
} elseif { $avp40 == 2 } {
table delete msisdn [RADIUS::avp 8]
table delete policy [RADIUS::avp 8]
if { ($::DEBUG == 1) } { log "RADIUS == TABLE DELETE MSISDN: [table lookup msisdn [RADIUS::avp 8]] - POLICY: [table lookup policy [RADIUS::avp 8]]" }
}
}
#
# VPORT: HTTP
#
when RULE_INIT {
set ::DEBUG 0
}
when HTTP_REQUEST {
HTTP::header insert MSISDN [table lookup msisdn [IP::client_addr]]
HTTP::header insert User-Type [table lookup policy [IP::client_addr]]
if { ($::DEBUG == 1) } { log "HTTP == MSISDN: [table lookup msisdn [IP::client_addr]] - POLICY: [table lookup policy [IP::client_addr]]" }
}
0
Comments