/[mldonkey]/mldonkey/src/utils/net/ip_set.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/ip_set.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by spiralvoice, Sat Jul 23 14:19:48 2005 UTC revision 1.11 by spiralvoice, Tue Jul 26 21:22:49 2005 UTC
# Line 131  let load filename = Line 131  let load filename =
131                   let s = Misc.archive_extract filename "zip" in                   let s = Misc.archive_extract filename "zip" in
132                   load_merge bl_empty file.Zip.filename true                   load_merge bl_empty file.Zip.filename true
133                 with e ->                 with e ->
134                   lprintf_nl () "Exception %s while extracting guarding.p2p from %s"                   begin
135                     (Printexc2.to_string e) filename;                     try
136                     bl_empty                       let file = Zip.find_entry (Zip.open_in filename) "guarding_full.p2p" in
137                           lprintf_nl () "guarding_full.p2p found in zip file";
138                           let s = Misc.archive_extract filename "zip" in
139                           load_merge bl_empty file.Zip.filename true
140                         with e ->
141                           lprintf_nl () "Exception %s while extracting guarding.p2p/guarding_full.p2p from %s"
142                             (Printexc2.to_string e) filename;
143                           lprintf_nl () "One of the mentioned files has to be present in the zip file";
144                           bl_empty
145                     end
146             end             end
147         | ".bz2" | ".p2p.bz2" | ".gz" | ".p2p.gz" ->         | ".bz2" | ".p2p.bz2" | ".gz" | ".p2p.gz" ->
148             begin             begin

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26