[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/bittorr...
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/bittorr... |
Date: |
Sat, 14 Jan 2006 22:08:05 +0000 |
CVSROOT: /sources/mldonkey
Module name: mldonkey
Branch:
Changes by: spiralvoice <address@hidden> 06/01/14 22:08:05
Modified files:
distrib : ChangeLog
src/networks/bittorrent: bTInteractive.ml
Log message:
patch #4716
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/distrib/ChangeLog.diff?tr1=1.672&tr2=1.673&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/networks/bittorrent/bTInteractive.ml.diff?tr1=1.76&tr2=1.77&r1=text&r2=text
Patches:
Index: mldonkey/distrib/ChangeLog
diff -u mldonkey/distrib/ChangeLog:1.672 mldonkey/distrib/ChangeLog:1.673
--- mldonkey/distrib/ChangeLog:1.672 Thu Jan 12 11:44:34 2006
+++ mldonkey/distrib/ChangeLog Sat Jan 14 22:08:05 2006
@@ -14,6 +14,9 @@
ChangeLog
=========
+2006/01/14
+4716: BT: new command "tracker" to add trackers (bogeyman)
+
2006/01/12
4792: GeoIP: Add license (distrib/GeoIP_LICENSE.txt, runinfo)
This product includes GeoLite data created by MaxMind,
Index: mldonkey/src/networks/bittorrent/bTInteractive.ml
diff -u mldonkey/src/networks/bittorrent/bTInteractive.ml:1.76
mldonkey/src/networks/bittorrent/bTInteractive.ml:1.77
--- mldonkey/src/networks/bittorrent/bTInteractive.ml:1.76 Thu Jan 12
08:57:58 2006
+++ mldonkey/src/networks/bittorrent/bTInteractive.ml Sat Jan 14 22:08:05 2006
@@ -931,6 +931,52 @@
_s ""
), _s " :\t\t\t\tstops all bittorrent downloads, use this if you want to
make sure that the stop signal actualy gets to the tracker\n\t\t\t\twhen
shuting mlnet down, but you have to wait till the stops get to the tracker and
not wait too long,\n\t\t\t\tso mldonkey reconnects to the tracker :)";
+ "tracker", "Network/Bittorrent", Arg_multiple (fun args o ->
+ try
+ let num = ref "" in
+ let urls = ref [] in
+ (match args with
+ | nums :: [] -> raise Not_found
+ | nums :: rest -> num := nums; urls := rest
+ | _ -> raise Not_found);
+
+ let num = int_of_string !num in
+ Hashtbl.iter (fun _ file ->
+ if file_num file = num then begin
+ if !verbose then
+ lprintf_nl () "adding trackers for file %i" num;
+ set_trackers file !urls;
+ raise Exit
+ end
+ ) files_by_uid;
+ let buf = o.conn_buf in
+ if o.conn_output = HTML then
+ html_mods_table_one_row buf "serversTable" "servers" [
+ ("", "srh", "file not found"); ]
+ else
+ Printf.bprintf buf "file not found";
+ _s ""
+ with
+ | Exit ->
+ let buf = o.conn_buf in
+ if o.conn_output = HTML then
+ html_mods_table_one_row buf "serversTable" "servers" [
+ ("", "srh", "tracker added"); ]
+ else
+ Printf.bprintf buf "tracker added";
+ _s ""
+ | _ ->
+ if !verbose then
+ lprintf_nl () "Not enough or wrong parameters.";
+ let buf = o.conn_buf in
+ if o.conn_output = HTML then
+ html_mods_table_one_row buf "serversTable" "servers" [
+ ("", "srh", "Not enough or wrong parameters."); ]
+ else
+ Printf.bprintf buf "Not enough or wrong parameters.";
+ _s ""
+ ), " <num> <url> <url>... :\t\t\tadd urls as trackers for num.";
+
(* TODO : add some code from make_torrent
"print_torrent", Arg_one (fun filename o ->
- [Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/bittorr...,
mldonkey-commits <=