- MatitaLog.debug ("Removing: " ^ UriManager.string_of_uri uri);
- MatitaMisc.safe_remove (Http_getter.resolve' uri)
+ let baseuri = UriManager.buri_of_uri uri in
+ if !last_baseuri <> baseuri then
+ begin
+ MatitaLog.debug ("Removing: " ^ baseuri ^ "/*");
+ last_baseuri := baseuri
+ end;
+ let file = Http_getter.resolve' uri in
+ MatitaMisc.safe_remove file;
+ MatitaMisc.rmdir_descend (Filename.dirname file)