Update test baselines.

This commit is contained in:
Vlad Grigorescu 2014-05-15 11:18:00 -04:00
parent d88f8d77cb
commit a3e00322a2
6 changed files with 162 additions and 159 deletions

View file

@ -1,10 +1,9 @@
##! Implements base functionality for RADIUS analysis. Generates the radius.log file.
# Generated by binpac_quickstart
module RADIUS;
@load ./consts.bro
@load base/utils/addrs
export {
redef enum Log::ID += { LOG };
@ -77,9 +76,8 @@ event radius_message(c: connection, result: RADIUS::Message)
info$id = c$id;
}
switch ( result$code ) {
case 1:
# Acess-Request
switch ( RADIUS::msg_types[result$code] ) {
case "Access-Request":
if ( result?$attributes ) {
# User-Name
if ( !info?$username && 1 in result$attributes )
@ -95,12 +93,10 @@ event radius_message(c: connection, result: RADIUS::Message)
info$connect_info = result$attributes[77][0];
}
break;
case 2:
# Access-Accept
case "Access-Accept":
info$result = "success";
break;
case 3:
# Access-Reject
case "Access-Reject":
info$result = "failed";
break;
}
@ -116,5 +112,6 @@ event radius_message(c: connection, result: RADIUS::Message)
function expire(t: table[count] of Info, idx: count): interval
{
t[idx]$result = "unknown";
Log::write(RADIUS::LOG, t[idx]);
return 0secs;
}