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

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

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

revision 1.40 by spiralvoice, Sun Jul 10 23:19:16 2005 UTC revision 1.41 by spiralvoice, Thu Jul 14 14:00:20 2005 UTC
# Line 679  let ctd fn td = Printf.sprintf "\\<td on Line 679  let ctd fn td = Printf.sprintf "\\<td on
679    Printf.bprintf buf "\\</form\\>"    Printf.bprintf buf "\\</form\\>"
680    
681  end  end
682  else Printf.bprintf buf "No files"  else
683      html_mods_table_one_row buf "downloaderTable" "downloaders" [
684        ("", "srh", "!! No files, please use search or the dllink <url> command to add a new download !!"); ]
685    
686    let html_mods_done_files buf files =
 let html_mods_done_files buf files =  
687    
688    Printf.bprintf buf "\\</pre\\>    Printf.bprintf buf "\\</pre\\>
689  \\<div class=\\\"main\\\"\\>  \\<div class=\\\"main\\\"\\>
690  \\<table class=main cellspacing=0 cellpadding=0\\>  \\<table class=main cellspacing=0 cellpadding=0\\>
691    
692  \\<tr\\>\\<td\\>  \\<tr\\>\\<td\\>
693    
# Line 926  let display_file_list buf o = Line 927  let display_file_list buf o =
927      Printf.bprintf buf "%0sDownloaded %d files\n" (if !!term_ansi then "$n" else "") (List.length !!done_files);      Printf.bprintf buf "%0sDownloaded %d files\n" (if !!term_ansi then "$n" else "") (List.length !!done_files);
928    if !!done_files <> [] then begin    if !!done_files <> [] then begin
929  (*      List.iter (fun file -> CommonFile.file_print file o)   !!done_files; *)  (*      List.iter (fun file -> CommonFile.file_print file o)   !!done_files; *)
930        simple_print_file_list true buf        simple_print_file_list true buf
931          (List2.tail_map file_info !!done_files) o;          (List2.tail_map file_info !!done_files) o;
932        if not (use_html_mods o) then        if not (use_html_mods o) then
933          if !!auto_commit then          if !!auto_commit then
934            Printf.bprintf buf            if o.conn_output = HTML then
935              "Files will be automatically commited in the incoming directory"              html_mods_table_one_row buf "searchTable" "search" [
936                  ("", "srh", "Files will be automatically commited in the incoming directory"); ]
937              else
938                Printf.bprintf buf
939                  "Files will be automatically commited in the incoming directory"
940          else          else
941            Printf.bprintf buf            if o.conn_output = HTML then
942            "Use 'commit' to move downloaded files to the incoming directory"              html_mods_table_one_row buf "searchTable" "search" [
943                  ("", "srh", "Use 'commit' to move downloaded files to the incoming directory"); ]
944              else
945                Printf.bprintf buf
946                  "Use 'commit' to move downloaded files to the incoming directory"
947      end      end
948    
949    
# Line 989  let old_print_search buf o results = Line 998  let old_print_search buf o results =
998                        Printf.bprintf buf "\\<td title=\\\"";                        Printf.bprintf buf "\\<td title=\\\"";
999                        let nl = ref false in                        let nl = ref false in
1000                        List.iter (fun t ->                        List.iter (fun t ->
1001                            match t.tag_name with                            match t.tag_name with
1002                            | Field_UNKNOWN "FTH" | Field_UNKNOWN "urn" -> ()                            | Field_UNKNOWN "FTH" | Field_UNKNOWN "urn" -> ()
1003                            | _ ->                            | _ ->
1004                                Buffer.add_string buf ((if !nl then "\n" else begin nl := true;"" end) ^                                Buffer.add_string buf ((if !nl then "\n" else begin nl := true;"" end) ^

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

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