/[mldonkey]/mldonkey/src/daemon/common/commonInteractive.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonInteractive.ml

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

revision 1.55 by spiralvoice, Fri Dec 9 23:22:34 2005 UTC revision 1.56 by spiralvoice, Fri Dec 9 23:23:40 2005 UTC
# Line 117  let script_for_file file incoming new_na Line 117  let script_for_file file incoming new_na
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        "";        "";
# Line 133  let script_for_file file incoming new_na Line 134  let script_for_file file incoming new_na
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

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

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