let resolve =
function
- "http://localhost:8081/getdtd?url=cic.dtd" ->
+ "http://localhost:8081/getdtd?uri=cic.dtd" ->
Configuration.dtd_dir ^ "/cic.dtd"
- | "http://localhost:8081/getdtd?url=maththeory.dtd" ->
+ | "http://localhost:8081/getdtd?uri=maththeory.dtd" ->
Configuration.dtd_dir ^ "/maththeory.dtd"
- | "http://localhost:8081/getdtd?url=annotations.dtd" ->
+ | "http://localhost:8081/getdtd?uri=annotations.dtd" ->
Configuration.dtd_dir ^ "/annotations.dtd"
| s -> s
;;