- let tmp_filename = C.tmpdir ^ "/style-configuration.xml" in
- if Sys.file_exists tmp_filename then tmp_filename
- else begin
- let styleconf = Getter.raw_get "getstyleconf" in
- let out_channel = open_out tmp_filename in
- output_string out_channel styleconf;
- close_out out_channel;
- tmp_filename
- end
+ let xml = "style-configuration.xml" in
+ let tmp_xml = Configuration.tmp_dir ^ "/" ^ xml in
+ let request_xml = Configuration.getter_url ^ "getstyleconf?uri=" ^ xml in
+ ClientHTTP.get_and_save request_xml tmp_xml ;
+ tmp_xml