117 |
(Int64.to_string (file_size file)) |
(Int64.to_string (file_size file)) |
118 |
(Md4.to_string info.G.file_md4) |
(Md4.to_string info.G.file_md4) |
119 |
in |
in |
120 |
|
begin try |
121 |
MlUnix.fork_and_exec !!file_completed_cmd |
MlUnix.fork_and_exec !!file_completed_cmd |
122 |
[| (* keep those for compatibility *) |
[| (* keep those for compatibility *) |
123 |
""; |
""; |
134 |
("INCOMING", incoming); |
("INCOMING", incoming); |
135 |
("NETWORK", network.network_name); |
("NETWORK", network.network_name); |
136 |
("ED2K_HASH", ed2k_hash)] |
("ED2K_HASH", ed2k_hash)] |
137 |
|
with e -> |
138 |
|
lprintf_nl "[cInt] Exception %s while executing %s" |
139 |
|
(Printexc2.to_string e) !!file_completed_cmd |
140 |
|
end |
141 |
|
|
142 |
(******** |
(******** |
143 |
These two functions 'file_commit' and 'file_cancel' should be the two only |
These two functions 'file_commit' and 'file_cancel' should be the two only |