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