let alert_on_code
?(on_1xx = fun _ -> ())
?(on_2xx = fun _ -> ())
?(on_3xx = fun _ -> ())
?(on_4xx = fun (_,m) -> AXOJs.alert m)
?(on_5xx = fun (_,m) -> AXOJs.alert m)
res =
match (fst res) / 100 with
| 0 -> AXOJs.alert "Server is offline or couldn't be reached" ;
failwith (snd res)
| 1 -> on_1xx res
| 2 -> on_2xx res
| 3 -> on_3xx res
| 4 -> on_4xx res
| 5 -> on_5xx res
| _ -> AXOJs.alert ("Server sent " ^ (string_of_int (fst res)))