/[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.46 by spiralvoice, Thu Jul 28 18:22:31 2005 UTC revision 1.47 by spiralvoice, Thu Aug 18 14:12:30 2005 UTC
# Line 994  let old_print_search buf o results = Line 994  let old_print_search buf o results =
994        ( "1", "1", "srh ar", "Availability", "A" ) ;        ( "1", "1", "srh ar", "Availability", "A" ) ;
995        ( "1", "1", "srh ar", "Complete Sources", "C" ) ;        ( "1", "1", "srh ar", "Complete Sources", "C" ) ;
996        ( "3", "0", "srh", "Hash (click for lookup)", "Hash check" ) ;        ( "3", "0", "srh", "Hash (click for lookup)", "Hash check" ) ;
997        ( "1", "0", "srh", "Tags", "Tags (mouseover)" ) ] ;        ( "1", "1", "srh ar", "Length", "Len" ) ;
998          ( "1", "1", "srh ar", "Codec", "Code" ) ;
999          ( "1", "1", "srh ar", "Bitrate", "Rate" ) ;
1000          ( "1", "0", "srh", "Tags (mouseover)", "Tags" ) ] ;
1001    end;    end;
1002    (try    (try
1003        List.iter (fun (rs,r,avail) ->        List.iter (fun (rs,r,avail) ->
# Line 1104  let old_print_search buf o results = Line 1107  let old_print_search buf o results =
1107                  else                  else
1108                    !hash                    !hash
1109                in                in
1110                  let clength = ref "" in
1111                  let ccodec = ref "" in
1112                  let cmediacodec = ref "" in
1113                  let cbitrate = ref "" in
1114                let cavail = ref (string_of_int avail) in                let cavail = ref (string_of_int avail) in
1115                let csource = ref "" in                let csource = ref "" in
1116                  let cformat = ref "" in
1117                List.iter (fun t ->                List.iter (fun t ->
1118                    (match t.tag_name with                    (match t.tag_name with
1119                      | Field_UNKNOWN "urn"                      | Field_UNKNOWN "urn"
1120                      | Field_UNKNOWN "FTH"  -> hash := get_tag_value t                      | Field_UNKNOWN "FTH"  -> hash := get_tag_value t
1121                      | Field_Availability -> cavail := get_tag_value t                      | Field_Availability -> cavail := get_tag_value t
1122                      | Field_Completesources -> csource := get_tag_value t                      | Field_Completesources -> csource := get_tag_value t
1123                        | Field_Length -> clength := get_tag_value t
1124                        | Field_Codec -> ccodec := get_tag_value t
1125                        | Field_Mediacodec -> cmediacodec := get_tag_value t
1126                        | Field_Bitrate -> cbitrate := get_tag_value t
1127                        | Field_Format -> cformat := get_tag_value t
1128                      | _ -> ())) r.result_tags;                      | _ -> ())) r.result_tags;
1129    
1130                if use_html_mods o then                if use_html_mods o then
# Line 1120  let old_print_search buf o results = Line 1133  let old_print_search buf o results =
1133                          \\<td class=\\\"sr ar\\\"\\>%s\\</td\\>                          \\<td class=\\\"sr ar\\\"\\>%s\\</td\\>
1134                          \\<td class=\\\"sr\\\"\\>\\<a href=\\\"http://donkeyfakes.gambri.net/fakecheck.php?hash=%s\\\"\\>DF\\</a\\>\\</td\\>                          \\<td class=\\\"sr\\\"\\>\\<a href=\\\"http://donkeyfakes.gambri.net/fakecheck.php?hash=%s\\\"\\>DF\\</a\\>\\</td\\>
1135                          \\<td class=\\\"sr\\\"\\>\\<a href=\\\"http://bitzi.com/lookup/ed2k:%s\\\"\\>BI\\</a\\>\\</td\\>                          \\<td class=\\\"sr\\\"\\>\\<a href=\\\"http://bitzi.com/lookup/ed2k:%s\\\"\\>BI\\</a\\>\\</td\\>
1136                          \\<td class=\\\"sr\\\"\\>\\<a href=\\\"http://www.filedonkey.com/url/%s\\\"\\>FD\\</a\\>\\</td\\>"                          \\<td class=\\\"sr\\\"\\>\\<a href=\\\"http://www.filedonkey.com/url/%s\\\"\\>FD\\</a\\>\\</td\\>
1137                            \\<td class=\\\"sr ar\\\"\\>%s\\</td\\>
1138                            \\<td class=\\\"sr ar\\\"\\>%s\\</td\\>
1139                            \\<td class=\\\"sr ar\\\"\\>%s\\</td\\>"
1140                    (size_of_int64 r.result_size)                    (size_of_int64 r.result_size)
1141                    !cavail                    !cavail
1142                    !csource                    !csource
1143                    real_hash                    real_hash
1144                    real_hash                    real_hash
1145                    real_hash                    real_hash
1146                      !clength
1147                      (if !ccodec = "" then
1148                         begin
1149                           if !cmediacodec = "" then
1150                             !cformat
1151                           else
1152                             !cmediacodec
1153                         end
1154                       else
1155                         !ccodec)
1156                      !cbitrate
1157                else      Printf.bprintf  buf "          %10s %10s "                else      Printf.bprintf  buf "          %10s %10s "
1158                    (Int64.to_string r.result_size)                    (Int64.to_string r.result_size)
1159                  (string_of_uids r.result_uids);                  (string_of_uids r.result_uids);
# Line 1137  let old_print_search buf o results = Line 1164  let old_print_search buf o results =
1164                        (match t.tag_name with                        (match t.tag_name with
1165                          | Field_Completesources                          | Field_Completesources
1166                          | Field_Availability                          | Field_Availability
1167                            | Field_Length
1168                            | Field_Codec
1169                            | Field_Mediacodec
1170                            | Field_Format
1171                            | Field_Bitrate
1172  (* TODO : "urn" shouldn't be some kind of Field_Uid of Gnutella ? *)  (* TODO : "urn" shouldn't be some kind of Field_Uid of Gnutella ? *)
1173                          | Field_UNKNOWN "urn"                          | Field_UNKNOWN "urn"
1174  (* TODO : "FTH" shouldn't be some kind of Field_Uid of Fasttrack ? *)  (* TODO : "FTH" shouldn't be some kind of Field_Uid of Fasttrack ? *)

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

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