/[mldonkey]/mldonkey/src/daemon/driver/driverCommands.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/driver/driverCommands.ml

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

revision 1.69 by spiralvoice, Sun Jul 17 16:36:07 2005 UTC revision 1.70 by spiralvoice, Mon Jul 18 00:52:31 2005 UTC
# Line 2859  let _ = Line 2859  let _ =
2859          if o.conn_output = HTML then          if o.conn_output = HTML then
2860            let mybuf = Buffer.create 1000 in            let mybuf = Buffer.create 1000 in
2861            let mytable = ref [] in            let mytable = ref [] in
           let split_string c str =  
             let rec aux s acc =  
               try  let ind=String.index s c in  
                      aux (String.sub s (ind+1) ((String.length s) - ind -1 ))  
                          ((String.sub s 0 ind)::acc)  
               with Not_found -> List.rev (s::acc)  
               in aux str []; in  
           let split_lines = split_string '\n' in  
2862            Ip_set.print_list mybuf !Ip_set.bl;            Ip_set.print_list mybuf !Ip_set.bl;
2863            let listtmp = split_lines (Buffer.contents mybuf) in            let listtmp = String2.split (Buffer.contents mybuf) '\n' in
2864             (List.iter (fun s ->             (List.iter (fun s ->
2865               mytable := !mytable @ [ ("", "srh", s); ]               mytable := !mytable @ [ ("", "srh", s); ]
2866              ) listtmp);              ) listtmp);

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

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