Stub Basic_qos
This commit is contained in:
parent
560febdea3
commit
8fbd287e6d
|
@ -355,6 +355,9 @@ let handle_method conn channel m =
|
||||||
| false -> send_warning conn not_found (pseudotype^" '"^sink^"' not found"))
|
| false -> send_warning conn not_found (pseudotype^" '"^sink^"' not found"))
|
||||||
| Basic_ack (delivery_tag, multiple) ->
|
| Basic_ack (delivery_tag, multiple) ->
|
||||||
return ()
|
return ()
|
||||||
|
| Basic_qos (_, _, _) ->
|
||||||
|
ignore (Log.warn "Ignoring Basic_qos instruction from client" []);
|
||||||
|
send_method conn channel Basic_qos_ok
|
||||||
| _ ->
|
| _ ->
|
||||||
let (cid, mid) = method_index m in
|
let (cid, mid) = method_index m in
|
||||||
die not_implemented (Printf.sprintf "Unsupported method (or method arguments) %s"
|
die not_implemented (Printf.sprintf "Unsupported method (or method arguments) %s"
|
||||||
|
|
Loading…
Reference in New Issue