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); |