Create coa / disconnect when it's referenced

diff --git a/src/main/evaluate.c b/src/main/evaluate.c
index 0122871e586f3dbaff8e91ae5087374930a9b86f..042528ede87404453a4cb78e6e2cdd9a344d563c 100644 (file)
--- a/src/main/evaluate.c
+++ b/src/main/evaluate.c
@@ -1151,8 +1151,17 @@ int radius_update_attrlist(REQUEST *request, CONF_SECTION *cs,
        
        output_vps = radius_list(update_request, list);
        if (!output_vps) {
-               RDEBUG("WARNING: List '%s' doesn't exist for this packet", name);
-               return RLM_MODULE_INVALID;
+               if (!((list == PAIR_LIST_COA) || (list == PAIR_LIST_DM))) {
+                       RDEBUG("WARNING: List '%s' doesn't exist for this packet", name);
+                       return RLM_MODULE_INVALID;
+               }
+
+               request_alloc_coa(update_request);
+               if (list == PAIR_LIST_COA) {
+                       update_request->coa->proxy->code = PW_COA_REQUEST;
+               } else {
+                       update_request->coa->proxy->code = PW_DISCONNECT_REQUEST;
+               }
        }
 
        newlist = paircopy(input_vps);