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

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

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

revision 1.60 by spiralvoice, Fri Jun 24 23:49:16 2005 UTC revision 1.61 by spiralvoice, Tue Jun 28 22:49:37 2005 UTC
# Line 1431  let _ = Line 1431  let _ =
1431        enable_overnet =:= true;        enable_overnet =:= true;
1432        enable_bittorrent =:= true        enable_bittorrent =:= true
1433        
1434    let win_message =
1435    "\n\nNEVER close this windows with the close button
1436    on the top right corner of this window!
1437    Instead use the kill command in Telnet or HTML,
1438    the kill function of a GUI or CTRL+C.\n\n"
1439    
1440  let _ =  let _ =
1441    let in_hook = ref false in    let in_hook = ref false in
1442    option_hook global_login (fun _ ->    option_hook global_login (fun _ ->
# Line 1448  let _ = Line 1454  let _ =
1454          try          try
1455            let oc = open_out !!log_file in            let oc = open_out !!log_file in
1456            lprintf_to_file := true;            lprintf_to_file := true;
1457              if Autoconf.system = "windows" then lprintf "%s" win_message;
1458            lprintf "Logging in %s\n" !!log_file;            lprintf "Logging in %s\n" !!log_file;
1459            log_to_file oc;            log_to_file oc;
1460          with e ->          with e ->

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

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