/[mldonkey]/mldonkey/src/networks/donkey/donkeyStats.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyStats.ml

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

revision 1.17 by spiralvoice, Sun Jul 10 23:19:16 2005 UTC revision 1.18 by spiralvoice, Tue Jul 12 23:03:14 2005 UTC
# Line 450  let stats_by_brand_mod = Array.init bran Line 450  let stats_by_brand_mod = Array.init bran
450    { dummy_mod_stats with brand_mod_seen = 0 }    { dummy_mod_stats with brand_mod_seen = 0 }
451    )    )
452    
453    let start_session = ref start_time
454    
455  let count_seen c =  let count_seen c =
456    stats_all.brand_seen <- stats_all.brand_seen + 1;    stats_all.brand_seen <- stats_all.brand_seen + 1;
457    if !!emule_mods_count && c.client_mod_brand != Brand_mod_unknown then mod_stats_all.brand_mod_seen <- mod_stats_all.brand_mod_seen + 1;    if !!emule_mods_count && c.client_mod_brand <> Brand_mod_unknown then mod_stats_all.brand_mod_seen <- mod_stats_all.brand_mod_seen + 1;
458    (match c.client_brand with    (match c.client_brand with
459        Brand_unknown -> () (* be careful, raising an exception here will        Brand_unknown -> () (* be careful, raising an exception here will
460  abort all other operations after that point for this client...*)  abort all other operations after that point for this client...*)
# Line 474  abort all other operations after that po Line 476  abort all other operations after that po
476    
477  let count_banned c =  let count_banned c =
478    stats_all.brand_banned <- stats_all.brand_banned + 1;    stats_all.brand_banned <- stats_all.brand_banned + 1;
479    if !!emule_mods_count && c.client_mod_brand != Brand_mod_unknown then mod_stats_all.brand_mod_banned <- mod_stats_all.brand_mod_banned + 1;    if !!emule_mods_count && c.client_mod_brand <> Brand_mod_unknown then mod_stats_all.brand_mod_banned <- mod_stats_all.brand_mod_banned + 1;
480    (match c.client_brand with    (match c.client_brand with
481        Brand_unknown -> ()        Brand_unknown -> ()
482      | b ->      | b ->
# Line 494  let count_banned c = Line 496  let count_banned c =
496    
497  let count_filerequest c =  let count_filerequest c =
498    stats_all.brand_filerequest <- stats_all.brand_filerequest + 1;    stats_all.brand_filerequest <- stats_all.brand_filerequest + 1;
499    if !!emule_mods_count && c.client_mod_brand != Brand_mod_unknown then mod_stats_all.brand_mod_filerequest <- mod_stats_all.brand_mod_filerequest + 1;    if !!emule_mods_count && c.client_mod_brand <> Brand_mod_unknown then mod_stats_all.brand_mod_filerequest <- mod_stats_all.brand_mod_filerequest + 1;
500    (match c.client_brand with    (match c.client_brand with
501        Brand_unknown -> ()        Brand_unknown -> ()
502      | b ->      | b ->
# Line 516  let count_download c f v = Line 518  let count_download c f v =
518    download_counter := Int64.add !download_counter v;    download_counter := Int64.add !download_counter v;
519    c.client_downloaded <- Int64.add c.client_downloaded v;    c.client_downloaded <- Int64.add c.client_downloaded v;
520    stats_all.brand_download <- Int64.add stats_all.brand_download v;    stats_all.brand_download <- Int64.add stats_all.brand_download v;
521    if !!emule_mods_count && c.client_mod_brand != Brand_mod_unknown then mod_stats_all.brand_mod_download <- Int64.add mod_stats_all.brand_mod_download v;    if !!emule_mods_count && c.client_mod_brand <> Brand_mod_unknown then mod_stats_all.brand_mod_download <- Int64.add mod_stats_all.brand_mod_download v;
522    (match c.client_brand with    (match c.client_brand with
523        Brand_unknown -> ()        Brand_unknown -> ()
524      | b ->      | b ->
# Line 538  let count_upload c f v = Line 540  let count_upload c f v =
540    upload_counter := Int64.add !upload_counter v;    upload_counter := Int64.add !upload_counter v;
541    c.client_uploaded <- Int64.add c.client_uploaded v;    c.client_uploaded <- Int64.add c.client_uploaded v;
542    stats_all.brand_upload <- Int64.add stats_all.brand_upload v;    stats_all.brand_upload <- Int64.add stats_all.brand_upload v;
543    if !!emule_mods_count && c.client_mod_brand != Brand_mod_unknown then mod_stats_all.brand_mod_upload <- Int64.add mod_stats_all.brand_mod_upload v;    if !!emule_mods_count && c.client_mod_brand <> Brand_mod_unknown then mod_stats_all.brand_mod_upload <- Int64.add mod_stats_all.brand_mod_upload v;
544    (match c.client_brand with    (match c.client_brand with
545        Brand_unknown -> ()        Brand_unknown -> ()
546      | b ->      | b ->
# Line 568  let print_stats buf = Line 570  let print_stats buf =
570    let one_minute = 60 in    let one_minute = 60 in
571    let one_hour = 3600 in    let one_hour = 3600 in
572    let one_day = 86400 in    let one_day = 86400 in
573    let uptime = last_time () - start_time in    let session_time = last_time () - !start_session in
574    let days = uptime / one_day in    let days = session_time / one_day in
575    let rem = uptime - days * one_day in    let rem = session_time - days * one_day in
576    let hours = rem / one_hour in    let hours = rem / one_hour in
577    let rem = rem - hours * one_hour in    let rem = rem - hours * one_hour in
578    let mins = rem / one_minute in    let mins = rem / one_minute in
579      Printf.bprintf buf "Uptime: %d days, %02dh:%02dm (= %d seconds)\n"      Printf.bprintf buf "Uptime: %d days, %02dh:%02dm (= %d seconds)\n"
580          days hours mins uptime;          days hours mins session_time;
581    
582    
583    if stats_all.brand_seen = 0 then    if stats_all.brand_seen = 0 then
# Line 607  let print_stats buf = Line 609  let print_stats buf =
609    else begin    else begin
610        Printf.bprintf buf "\n            Total downloads: %18s (%5.1f KB/s)\n"        Printf.bprintf buf "\n            Total downloads: %18s (%5.1f KB/s)\n"
611        (Int64.to_string stats_all.brand_download)        (Int64.to_string stats_all.brand_download)
612        ((Int64.to_float stats_all.brand_download) /. (float_of_int uptime) /. 1024.0);        ((Int64.to_float stats_all.brand_download) /. (float_of_int session_time) /. 1024.0);
613      for i=1 to brand_count-1 do      for i=1 to brand_count-1 do
614        Printf.bprintf buf "%27s: %18s (%5.1f %%)\n"        Printf.bprintf buf "%27s: %18s (%5.1f %%)\n"
615          (brand_to_string (brand_of_int i))          (brand_to_string (brand_of_int i))
# Line 621  let print_stats buf = Line 623  let print_stats buf =
623    else begin    else begin
624        Printf.bprintf buf "\n              Total uploads: %18s (%5.1f KB/s)\n"        Printf.bprintf buf "\n              Total uploads: %18s (%5.1f KB/s)\n"
625        (Int64.to_string stats_all.brand_upload)        (Int64.to_string stats_all.brand_upload)
626        ((Int64.to_float stats_all.brand_upload) /. (float_of_int uptime) /. 1024.0);        ((Int64.to_float stats_all.brand_upload) /. (float_of_int session_time) /. 1024.0);
627      for i=1 to brand_count-1 do      for i=1 to brand_count-1 do
628        Printf.bprintf buf "%27s: %18s (%5.1f %%)\n"        Printf.bprintf buf "%27s: %18s (%5.1f %%)\n"
629          (brand_to_string (brand_of_int i))          (brand_to_string (brand_of_int i))
# Line 670  let new_print_stats buf o = Line 672  let new_print_stats buf o =
672    let one_minute = 60 in    let one_minute = 60 in
673    let one_hour = 3600 in    let one_hour = 3600 in
674    let one_day = 86400 in    let one_day = 86400 in
675      let session_time = last_time () - !start_session in
676    let uptime = last_time () - start_time in    let uptime = last_time () - start_time in
677    let days = uptime / one_day in    let days = session_time / one_day in
678    let rem = maxi 1 (uptime - days * one_day) in    let rem = maxi 1 (session_time - days * one_day) in
679    
680    let hours = rem / one_hour in    let hours = rem / one_hour in
681    let rem = rem - hours * one_hour in    let rem = rem - hours * one_hour in
# Line 719  let new_print_stats buf o = Line 722  let new_print_stats buf o =
722    if use_html_mods o then    if use_html_mods o then
723      begin      begin
724        Printf.bprintf buf "\\<div class=\\\"cs\\\"\\>Session Uptime: %d days, %02dh:%02dm (= %d seconds)\\</div\\>"        Printf.bprintf buf "\\<div class=\\\"cs\\\"\\>Session Uptime: %d days, %02dh:%02dm (= %d seconds)\\</div\\>"
725          days hours mins uptime;          days hours mins session_time;
726        stats_html_header buf;        stats_html_header buf;
727    
728        let counter = ref 0 in        let counter = ref 0 in
# Line 782  let new_print_stats buf o = Line 785  let new_print_stats buf o =
785              (max 0.0 (if !showTotal then 100.0 else (percent_of_int64s              (max 0.0 (if !showTotal then 100.0 else (percent_of_int64s
786              stats_by_brand.(i).brand_upload stats_all.brand_upload)))              stats_by_brand.(i).brand_upload stats_all.brand_upload)))
787    
788              (if !showTotal then ((Int64.to_float sstats_all.brand_upload) /. (float_of_int uptime) /. 1024.0)              (if !showTotal then ((Int64.to_float sstats_all.brand_upload) /. (float_of_int session_time) /. 1024.0)
789              else ((Int64.to_float stats_by_brand.(i).brand_upload) /.  (float_of_int uptime) /. 1024.0))              else ((Int64.to_float stats_by_brand.(i).brand_upload) /.  (float_of_int session_time) /. 1024.0))
790    
791              (size_of_int64 (if !showTotal then sstats_all.brand_download else              (size_of_int64 (if !showTotal then sstats_all.brand_download else
792                      stats_by_brand.(i).brand_download))                      stats_by_brand.(i).brand_download))
# Line 791  let new_print_stats buf o = Line 794  let new_print_stats buf o =
794              (max 0.0 (if !showTotal then 100.0 else (percent_of_int64s              (max 0.0 (if !showTotal then 100.0 else (percent_of_int64s
795              stats_by_brand.(i).brand_download stats_all.brand_download)))              stats_by_brand.(i).brand_download stats_all.brand_download)))
796    
797              (if !showTotal then ((Int64.to_float sstats_all.brand_download) /. (float_of_int uptime) /. 1024.0)              (if !showTotal then ((Int64.to_float sstats_all.brand_download) /. (float_of_int session_time) /. 1024.0)
798              else ((Int64.to_float stats_by_brand.(i).brand_download) /.  (float_of_int uptime) /. 1024.0))              else ((Int64.to_float stats_by_brand.(i).brand_download) /.  (float_of_int session_time) /. 1024.0))
799    
800              (if !showTotal then              (if !showTotal then
801               (if sstats_all.brand_upload = Int64.zero then 0.0 else               (if sstats_all.brand_upload = Int64.zero then 0.0 else
# Line 894  let new_print_stats buf o = Line 897  let new_print_stats buf o =
897    else    else
898      begin      begin
899        Printf.bprintf buf "Session Uptime: %d days, %02dh:%02dm (= %d seconds)\n"        Printf.bprintf buf "Session Uptime: %d days, %02dh:%02dm (= %d seconds)\n"
900          days hours mins uptime;          days hours mins session_time;
901        Printf.bprintf buf "Client Brand|    seen      |     Downloads      |      Uploads       |   Banned   |  Requests\n";        Printf.bprintf buf "Client Brand|    seen      |     Downloads      |      Uploads       |   Banned   |  Requests\n";
902        Printf.bprintf buf "------------+--------------+--------------------+--------------------+------------+--------------\n";        Printf.bprintf buf "------------+--------------+--------------------+--------------------+------------+--------------\n";
903    
# Line 911  let new_print_stats buf o = Line 914  let new_print_stats buf o =
914              stats_by_brand.(i).brand_seen              stats_by_brand.(i).brand_seen
915                (percent_of_ints stats_by_brand.(i).brand_seen stats_all.brand_seen)                (percent_of_ints stats_by_brand.(i).brand_seen stats_all.brand_seen)
916              ((Int64.to_float stats_by_brand.(i).brand_download) /. 1024.0 /. 1024.0)              ((Int64.to_float stats_by_brand.(i).brand_download) /. 1024.0 /. 1024.0)
917                ((Int64.to_float stats_by_brand.(i).brand_download) /. (float_of_int uptime) /. 1024.0)                ((Int64.to_float stats_by_brand.(i).brand_download) /. (float_of_int session_time) /. 1024.0)
918                (percent_of_int64s stats_by_brand.(i).brand_download stats_all.brand_download)                (percent_of_int64s stats_by_brand.(i).brand_download stats_all.brand_download)
919              ((Int64.to_float stats_by_brand.(i).brand_upload) /. 1024.0 /. 1024.0)              ((Int64.to_float stats_by_brand.(i).brand_upload) /. 1024.0 /. 1024.0)
920                ((Int64.to_float stats_by_brand.(i).brand_upload) /. (float_of_int uptime) /. 1024.0)                ((Int64.to_float stats_by_brand.(i).brand_upload) /. (float_of_int session_time) /. 1024.0)
921                (percent_of_int64s stats_by_brand.(i).brand_upload stats_all.brand_upload)                (percent_of_int64s stats_by_brand.(i).brand_upload stats_all.brand_upload)
922              stats_by_brand.(i).brand_banned              stats_by_brand.(i).brand_banned
923                (percent_of_ints stats_by_brand.(i).brand_banned stats_all.brand_banned)                (percent_of_ints stats_by_brand.(i).brand_banned stats_all.brand_banned)
# Line 927  let new_print_stats buf o = Line 930  let new_print_stats buf o =
930          "Total"          "Total"
931          sstats_all.brand_seen          sstats_all.brand_seen
932          ((Int64.to_float sstats_all.brand_download) /. 1024.0 /. 1024.0)          ((Int64.to_float sstats_all.brand_download) /. 1024.0 /. 1024.0)
933            ((Int64.to_float sstats_all.brand_download) /. (float_of_int uptime) /. 1024.0)            ((Int64.to_float sstats_all.brand_download) /. (float_of_int session_time) /. 1024.0)
934          ((Int64.to_float sstats_all.brand_upload) /. 1024.0 /. 1024.0)          ((Int64.to_float sstats_all.brand_upload) /. 1024.0 /. 1024.0)
935            ((Int64.to_float sstats_all.brand_upload) /. (float_of_int uptime) /. 1024.0)            ((Int64.to_float sstats_all.brand_upload) /. (float_of_int session_time) /. 1024.0)
936          sstats_all.brand_banned          sstats_all.brand_banned
937          sstats_all.brand_filerequest;          sstats_all.brand_filerequest;
938    
# Line 984  let new_print_mod_stats buf o = Line 987  let new_print_mod_stats buf o =
987    let one_minute = 60 in    let one_minute = 60 in
988    let one_hour = 3600 in    let one_hour = 3600 in
989    let one_day = 86400 in    let one_day = 86400 in
990      let session_time = last_time () - !start_session in
991    let uptime = last_time () - start_time in    let uptime = last_time () - start_time in
992    let days = uptime / one_day in    let days = session_time / one_day in
993    let rem = maxi 1 (uptime - days * one_day) in    let rem = maxi 1 (session_time - days * one_day) in
994    
995    let hours = rem / one_hour in    let hours = rem / one_hour in
996    let rem = rem - hours * one_hour in    let rem = rem - hours * one_hour in
# Line 997  let new_print_mod_stats buf o = Line 1001  let new_print_mod_stats buf o =
1001    if use_html_mods o then    if use_html_mods o then
1002      begin      begin
1003        Printf.bprintf buf "\\<div class=\\\"cs\\\"\\>Session Uptime: %d days, %02dh:%02dm (= %d seconds)\\</div\\>"        Printf.bprintf buf "\\<div class=\\\"cs\\\"\\>Session Uptime: %d days, %02dh:%02dm (= %d seconds)\\</div\\>"
1004          days hours mins uptime;          days hours mins session_time;
1005        stats_html_header buf;        stats_html_header buf;
1006    
1007        let counter = ref 0 in        let counter = ref 0 in
# Line 1060  let new_print_mod_stats buf o = Line 1064  let new_print_mod_stats buf o =
1064              (max 0.0 (if !showTotal then 100.0 else (percent_of_int64s              (max 0.0 (if !showTotal then 100.0 else (percent_of_int64s
1065              stats_by_brand_mod.(i).brand_mod_upload mod_stats_all.brand_mod_upload)))              stats_by_brand_mod.(i).brand_mod_upload mod_stats_all.brand_mod_upload)))
1066    
1067              (if !showTotal then ((Int64.to_float mod_stats_all.brand_mod_upload) /. (float_of_int uptime) /. 1024.0)              (if !showTotal then ((Int64.to_float mod_stats_all.brand_mod_upload) /. (float_of_int session_time) /. 1024.0)
1068              else ((Int64.to_float stats_by_brand_mod.(i).brand_mod_upload) /.  (float_of_int uptime) /. 1024.0))              else ((Int64.to_float stats_by_brand_mod.(i).brand_mod_upload) /.  (float_of_int session_time) /. 1024.0))
1069    
1070              (size_of_int64 (if !showTotal then mod_stats_all.brand_mod_download else              (size_of_int64 (if !showTotal then mod_stats_all.brand_mod_download else
1071                      stats_by_brand_mod.(i).brand_mod_download))                      stats_by_brand_mod.(i).brand_mod_download))
# Line 1069  let new_print_mod_stats buf o = Line 1073  let new_print_mod_stats buf o =
1073              (max 0.0 (if !showTotal then 100.0 else (percent_of_int64s              (max 0.0 (if !showTotal then 100.0 else (percent_of_int64s
1074              stats_by_brand_mod.(i).brand_mod_download mod_stats_all.brand_mod_download)))              stats_by_brand_mod.(i).brand_mod_download mod_stats_all.brand_mod_download)))
1075    
1076              (if !showTotal then ((Int64.to_float mod_stats_all.brand_mod_download) /. (float_of_int uptime) /. 1024.0)              (if !showTotal then ((Int64.to_float mod_stats_all.brand_mod_download) /. (float_of_int session_time) /. 1024.0)
1077              else ((Int64.to_float stats_by_brand_mod.(i).brand_mod_download) /.  (float_of_int uptime) /. 1024.0))              else ((Int64.to_float stats_by_brand_mod.(i).brand_mod_download) /.  (float_of_int session_time) /. 1024.0))
1078    
1079              (if !showTotal then              (if !showTotal then
1080               (if mod_stats_all.brand_mod_upload = Int64.zero then 0.0 else               (if mod_stats_all.brand_mod_upload = Int64.zero then 0.0 else
# Line 1191  let new_print_mod_stats buf o = Line 1195  let new_print_mod_stats buf o =
1195    else    else
1196      begin      begin
1197        Printf.bprintf buf "Uptime: %d days, %02dh:%02dm (= %d seconds)\n"        Printf.bprintf buf "Uptime: %d days, %02dh:%02dm (= %d seconds)\n"
1198          days hours mins uptime;          days hours mins session_time;
1199        Printf.bprintf buf "         MOD| seen      |  Downloads       |  Uploads         |  Banned\n";        Printf.bprintf buf "         MOD| seen      |  Downloads       |  Uploads         |  Banned\n";
1200        Printf.bprintf buf "------------+-----------+------------------+------------------+----------\n";        Printf.bprintf buf "------------+-----------+------------------+------------------+----------\n";
1201        Printf.bprintf buf "%-12s|%6d     |%7.1f %5.1f     |%7.1f %5.1f     |%5d %3.0f%%\n"        Printf.bprintf buf "%-12s|%6d     |%7.1f %5.1f     |%7.1f %5.1f     |%5d %3.0f%%\n"
# Line 1199  let new_print_mod_stats buf o = Line 1203  let new_print_mod_stats buf o =
1203          "Total"          "Total"
1204          mod_stats_all.brand_mod_seen          mod_stats_all.brand_mod_seen
1205          ((Int64.to_float mod_stats_all.brand_mod_download) /. 1024.0 /. 1024.0)          ((Int64.to_float mod_stats_all.brand_mod_download) /. 1024.0 /. 1024.0)
1206        ((Int64.to_float mod_stats_all.brand_mod_download) /. (float_of_int uptime) /. 1024.0)        ((Int64.to_float mod_stats_all.brand_mod_download) /. (float_of_int session_time) /. 1024.0)
1207        ((Int64.to_float mod_stats_all.brand_mod_upload) /. 1024.0 /. 1024.0)        ((Int64.to_float mod_stats_all.brand_mod_upload) /. 1024.0 /. 1024.0)
1208        ((Int64.to_float mod_stats_all.brand_mod_upload) /. (float_of_int uptime) /. 1024.0)        ((Int64.to_float mod_stats_all.brand_mod_upload) /. (float_of_int session_time) /. 1024.0)
1209        mod_stats_all.brand_mod_banned        mod_stats_all.brand_mod_banned
1210          (percent_of_ints mod_stats_all.brand_mod_banned mod_stats_all.brand_mod_seen);          (percent_of_ints mod_stats_all.brand_mod_banned mod_stats_all.brand_mod_seen);
1211    
# Line 1214  let new_print_mod_stats buf o = Line 1218  let new_print_mod_stats buf o =
1218            stats_by_brand_mod.(i).brand_mod_seen            stats_by_brand_mod.(i).brand_mod_seen
1219              (percent_of_ints stats_by_brand_mod.(i).brand_mod_seen mod_stats_all.brand_mod_seen)              (percent_of_ints stats_by_brand_mod.(i).brand_mod_seen mod_stats_all.brand_mod_seen)
1220            ((Int64.to_float stats_by_brand_mod.(i).brand_mod_download) /. 1024.0 /. 1024.0)            ((Int64.to_float stats_by_brand_mod.(i).brand_mod_download) /. 1024.0 /. 1024.0)
1221            ((Int64.to_float stats_by_brand_mod.(i).brand_mod_download) /. (float_of_int uptime) /. 1024.0)            ((Int64.to_float stats_by_brand_mod.(i).brand_mod_download) /. (float_of_int session_time) /. 1024.0)
1222            (percent_of_int64s stats_by_brand_mod.(i).brand_mod_download mod_stats_all.brand_mod_download)            (percent_of_int64s stats_by_brand_mod.(i).brand_mod_download mod_stats_all.brand_mod_download)
1223            ((Int64.to_float stats_by_brand_mod.(i).brand_mod_upload) /. 1024.0 /. 1024.0)            ((Int64.to_float stats_by_brand_mod.(i).brand_mod_upload) /. 1024.0 /. 1024.0)
1224            ((Int64.to_float stats_by_brand_mod.(i).brand_mod_upload) /. (float_of_int uptime) /. 1024.0)            ((Int64.to_float stats_by_brand_mod.(i).brand_mod_upload) /. (float_of_int session_time) /. 1024.0)
1225            (percent_of_int64s stats_by_brand_mod.(i).brand_mod_upload mod_stats_all.brand_mod_upload)            (percent_of_int64s stats_by_brand_mod.(i).brand_mod_upload mod_stats_all.brand_mod_upload)
1226            stats_by_brand_mod.(i).brand_mod_banned            stats_by_brand_mod.(i).brand_mod_banned
1227              (percent_of_ints stats_by_brand_mod.(i).brand_mod_banned mod_stats_all.brand_mod_banned)              (percent_of_ints stats_by_brand_mod.(i).brand_mod_banned mod_stats_all.brand_mod_banned)
# Line 1328  let _ = Line 1332  let _ =
1332          new_print_mod_stats buf o;          new_print_mod_stats buf o;
1333          ""          ""
1334      ), ":\t\t\t\t\tshow table of download/upload by eMule MODs";      ), ":\t\t\t\t\tshow table of download/upload by eMule MODs";
1335        "reset_stats", "Network/Donkey",Arg_none (
1336          fun o ->
1337    
1338           Array.iteri  (
1339             fun x _ ->
1340               stats_by_brand.(x).brand_seen <- 0;
1341               stats_by_brand.(x).brand_banned <- 0;
1342               stats_by_brand.(x).brand_filerequest <- 0;
1343               stats_by_brand.(x).brand_download <- 0L;
1344               stats_by_brand.(x).brand_upload <- 0L;
1345           ) stats_by_brand;
1346    
1347           Array.iteri (
1348             fun x _ ->
1349               stats_by_brand_mod.(x).brand_mod_seen <- 0;
1350               stats_by_brand_mod.(x).brand_mod_banned <- 0;
1351               stats_by_brand_mod.(x).brand_mod_filerequest <- 0;
1352               stats_by_brand_mod.(x).brand_mod_download <- Int64.zero;
1353               stats_by_brand_mod.(x).brand_mod_upload <- Int64.zero
1354           ) stats_by_brand_mod;
1355    
1356           stats_all.brand_seen <- 0;
1357           stats_all.brand_banned <- 0;
1358           stats_all.brand_filerequest <- 0;
1359           stats_all.brand_download <- 0L;
1360           stats_all.brand_upload <- 0L;
1361    
1362           mod_stats_all.brand_mod_seen <- 0;
1363           mod_stats_all.brand_mod_banned <- 0;
1364           mod_stats_all.brand_mod_filerequest <- 0;
1365           mod_stats_all.brand_mod_download <- Int64.zero;
1366           mod_stats_all.brand_mod_upload <- Int64.zero;
1367    
1368           start_session := last_time ();
1369    
1370           "done"
1371        ), ":\t\t\t\t\treset session statistics";
1372    ]    ]

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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