RADIUS: Add dictionary support for format= with BEGIN-VENDOR

Bug: 13745
Change-Id: Ibd00ea4818eb4b47a2c46324c1bfc878fef03d1e
Reviewed-on: https://code.wireshark.org/review/22155
Petri-Dish: João Valverde <j@v6e.pt>
Tested-by: Petri Dish Buildbot <buildbot-no-reply@wireshark.org>
Reviewed-by: Michael Mann <mmann78@netscape.net>
Reviewed-by: Anders Broman <a.broman58@gmail.com>

1 files changed, 44 insertions, 17 deletions

diff --git a/epan/radius_dict.l b/epan/radius_dict.l
index 9e419ad6cd..3652c7f845 100644
--- a/epan/radius_dict.l
+++ b/epan/radius_dict.l
@@ -112,8 +112,6 @@
  *	internal, array, concat, and virtual as attribute flags (not
  *	documented in the man page);
  *
- *	format= for BEGIN-VENDOR.
- *
  * We should, perhaps, adopt FreeRADIUS's dictionary-parsing code in
  * src/lib/dict.c and use that, rather than writing our own parser.
  * See bug 13176.
@@ -149,6 +147,7 @@ typedef struct {
 	guint encrypted;
 	gboolean has_tag;
 	gchar* current_vendor;
+	guint current_vendor_evs_type;
 	gchar* current_attr;
 
 	gchar* directory;
@@ -183,7 +182,7 @@ static void add_value(Radius_scanner_state_t* state, const gchar* attrib_name, c
  *       name types in the FreeRadius dictionaries.
  */
 
-%START WS_OUT VENDOR VENDOR_W_NAME ATTR ATTR_W_NAME ATTR_W_ID ATTR_W_TYPE VALUE VALUE_W_ATTR VALUE_W_NAME INCLUDE JUNK BEGIN_VENDOR END_VENDOR VENDOR_W_ID VENDOR_W_FORMAT VENDOR_W_TYPE_OCTETS VENDOR_W_LENGTH_OCTETS VENDOR_W_CONTINUATION BEGIN_TLV END_TLV
+%START WS_OUT VENDOR VENDOR_W_NAME ATTR ATTR_W_NAME ATTR_W_ID ATTR_W_TYPE VALUE VALUE_W_ATTR VALUE_W_NAME INCLUDE JUNK BEGIN_VENDOR BEGIN_VENDOR_FORMAT END_VENDOR VENDOR_W_ID VENDOR_W_FORMAT VENDOR_W_TYPE_OCTETS VENDOR_W_LENGTH_OCTETS VENDOR_W_CONTINUATION BEGIN_TLV END_TLV
 %%
 [:blank:]   ;
 #[^\n]*		;
@@ -204,13 +203,32 @@ static void add_value(Radius_scanner_state_t* state, const gchar* attrib_name, c
         g_free(yyextra->current_vendor);
     }
     yyextra->current_vendor = g_strdup(yytext);
+    BEGIN BEGIN_VENDOR_FORMAT;
+}
+<BEGIN_VENDOR_FORMAT>format=Extended-Vendor-Specific-[123456] {
+    if (strcmp(yytext, "format=Extended-Vendor-Specific-1") == 0) {
+        yyextra->current_vendor_evs_type = 241;
+    } else if(strcmp(yytext, "format=Extended-Vendor-Specific-2") == 0) {
+        yyextra->current_vendor_evs_type = 242;
+    } else if(strcmp(yytext, "format=Extended-Vendor-Specific-3") == 0) {
+        yyextra->current_vendor_evs_type = 243;
+    } else if(strcmp(yytext, "format=Extended-Vendor-Specific-4") == 0) {
+        yyextra->current_vendor_evs_type = 244;
+    } else if(strcmp(yytext, "format=Extended-Vendor-Specific-5") == 0) {
+        yyextra->current_vendor_evs_type = 245;
+    } else if(strcmp(yytext, "format=Extended-Vendor-Specific-6") == 0) {
+        yyextra->current_vendor_evs_type = 246;
+    }
     BEGIN WS_OUT;
 }
+<BEGIN_VENDOR_FORMAT>\n {BEGIN WS_OUT;}
+
 <END_VENDOR>[^\n]* {
     if (yyextra->current_vendor) {
         g_free(yyextra->current_vendor);
         yyextra->current_vendor = NULL;
     }
+    yyextra->current_vendor_evs_type = 0;
     BEGIN WS_OUT;
 }
 
@@ -454,17 +472,33 @@ static gboolean add_attribute(Radius_scanner_state_t* state, const gchar* name,
 	radius_attr_info_t* a;
 	GHashTable* by_id;
 	radius_attr_type_t code;
-	gchar *dot, *extcodestr = NULL;
+	guint8 code0 = 0, code1 = 0;
+	gchar *dot, *buf = NULL;
 
 	if (attr){
 		return add_tlv(state, name, codestr, type, attr);
 	}
 
+	buf = g_strdup(codestr);
+	dot = strchr(codestr, '.');
+	if (dot)
+		*dot = '\0';
+	code0 = (guint8) strtoul(buf, NULL, 10);
+	if (dot)
+		code1 = (guint8) strtoul(dot + 1, NULL, 10);
+	g_free(buf);
 
+	memset(&code, 0, sizeof(code));
 	if (vendor) {
-		radius_vendor_info_t* v;
-		v = (radius_vendor_info_t *)g_hash_table_lookup(state->dict->vendors_by_name,vendor);
+		if (state->current_vendor_evs_type) {
+			code.u8_code[0] = (guint8) state->current_vendor_evs_type;
+			code.u8_code[1] = code0;
+		} else {
+			code.u8_code[0] = code0;
+			code.u8_code[1] = 0;
+		}
 
+		radius_vendor_info_t* v = (radius_vendor_info_t *)g_hash_table_lookup(state->dict->vendors_by_name,vendor);
 		if (! v) {
 			g_string_append_printf(state->error, "Vendor: '%s', does not exist in %s:%i \n", vendor, state->fullpaths[state->include_stack_ptr], state->linenums[state->include_stack_ptr] );
 			return FALSE;
@@ -472,18 +506,10 @@ static gboolean add_attribute(Radius_scanner_state_t* state, const gchar* name,
 			by_id = v->attrs_by_id;
 		}
 	} else {
-		by_id = state->dict->attrs_by_id;
-	}
+		code.u8_code[0] = code0;
+		code.u8_code[1] = code1;
 
-	memset(&code, 0, sizeof(code));
-	dot = strchr(codestr, '.');
-	if (dot) {
-		*dot = '\0';
-		extcodestr = dot + 1;
-	}
-	code.u8_code[0] = (guint8) strtoul(codestr, NULL, 10);
-	if (extcodestr) {
-		code.u8_code[1] = (guint8) strtoul(extcodestr, NULL, 10);
+		by_id = state->dict->attrs_by_id;
 	}
 
 	a=(radius_attr_info_t*)g_hash_table_lookup(by_id, GUINT_TO_POINTER(code.value));
@@ -708,6 +734,7 @@ gboolean radius_load_dictionary (radius_dictionary_t* d, gchar* dir, const gchar
 	state.encrypted = 0;
 	state.has_tag = FALSE;
 	state.current_vendor = NULL;
+	state.current_vendor_evs_type = 0;
 	state.current_attr = NULL;
 
 	state.directory = dir;