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 |