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