/[mldonkey]/mldonkey/src/networks/bittorrent/bTInteractive.ml
ViewVC logotype

Diff of /mldonkey/src/networks/bittorrent/bTInteractive.ml

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

revision 1.48 by spiralvoice, Thu Aug 4 22:00:23 2005 UTC revision 1.49 by spiralvoice, Sun Aug 7 12:57:22 2005 UTC
# Line 54  let _b x = _b "BTInteractive" x Line 54  let _b x = _b "BTInteractive" x
54  let lprintf_nl () =  let lprintf_nl () =
55    lprintf "%s[BT] "    lprintf "%s[BT] "
56        (log_time ()); lprintf_nl2        (log_time ()); lprintf_nl2
57          
58  (* prints a new logline with date, module and does not start newline *)  (* prints a new logline with date, module and does not start newline *)
59  let lprintf_n () =  let lprintf_n () =
60    lprintf "%s[BT] "    lprintf "%s[BT] "
# Line 454  for parsing the response*) Line 454  for parsing the response*)
454          File.to_string filename          File.to_string filename
455        with e -> lprintf_nl () "Empty reply from tracker"; ""        with e -> lprintf_nl () "Empty reply from tracker"; ""
456      in      in
457      let v =      let v =
458         match tracker_reply with         match tracker_reply with
459         | "" ->         | "" ->
460          if !verbose_connect then          if !verbose_connect then
# Line 675  let op_client_info c = Line 675  let op_client_info c =
675      P.client_software = c.client_software;      P.client_software = c.client_software;
676  (* TODO: switch it  (* TODO: switch it
677      P.client_release = c.client_release;      P.client_release = c.client_release;
678   *)       *)
679      P.client_release = "";      P.client_release = "";
680      P.client_emulemod = "";      P.client_emulemod = "";
681      P.client_downloaded = c.client_downloaded;      P.client_downloaded = c.client_downloaded;
# Line 779  let commands = Line 779  let commands =
779          else          else
780            Printf.bprintf buf ".torrent file generated\n";            Printf.bprintf buf ".torrent file generated\n";
781        ""        ""
782        with Not_found ->        with Not_found ->
783            if o.conn_output = HTML then            if o.conn_output = HTML then
784              (* TODO: really htmlize it *)              (* TODO: really htmlize it *)
785              Printf.bprintf buf "Not enough parameters"              Printf.bprintf buf "Not enough parameters"

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

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