From 4915d048ffd261d0bdc5bc60fece9aa0ae60c4a0 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Fri, 23 Aug 2002 08:17:21 +0000
Subject: Give a short summary about current stats on index page

---
 Echolot/Stats.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'Echolot')

diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm
index 45c7b3d..82bef86 100644
--- a/Echolot/Stats.pm
+++ b/Echolot/Stats.pm
@@ -1,7 +1,7 @@
 package Echolot::Stats;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Stats.pm,v 1.30 2002/08/15 00:06:53 weasel Exp $
+# $Id: Stats.pm,v 1.31 2002/08/23 08:17:21 weasel Exp $
 #
 
 =pod
@@ -480,6 +480,8 @@ sub build_lists() {
 	my $rems;
 	my $pubrems;
 
+	my %stats;
+
 	my $broken1 = read_file( Echolot::Config::get()->{'broken1'}, 1);
 	my $broken2 = read_file( Echolot::Config::get()->{'broken2'}, 1);
 	my $sameop = read_file( Echolot::Config::get()->{'sameop'}, 1);
@@ -490,6 +492,8 @@ sub build_lists() {
 	build_list2( $rems, $broken1, $broken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'mlist2');
 	build_mlist1( $pubrems, $broken1, $broken2, $sameop, Echolot::Config::get()->{'resultdir'}.'/'.'mlist', Echolot::Config::get()->{'templates'}->{'mlist'});
 	build_list2( $pubrems, $broken1, $broken2, $sameop, Echolot::Config::get()->{'resultdir'}.'/'.'mlist2', Echolot::Config::get()->{'templates'}->{'mlist2'});
+	$stats{'mix_total'} = scalar @$pubrems;
+	$stats{'mix_98'} = scalar grep { $_->{'stats'}->{'avr_reliability'} >= 0.98 } @$pubrems;
 	if (Echolot::Config::get()->{'combined_list'}) {
 		$clist->{'mix'} = $rems;
 		$pubclist->{'mix'} = $pubrems; $pubrems = undef;
@@ -501,6 +505,8 @@ sub build_lists() {
 	build_list2( $rems,$broken1, $broken2, $sameop,  Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist2');
 	build_rlist1( $pubrems, $broken1, $broken2, $sameop, Echolot::Config::get()->{'resultdir'}.'/'.'rlist', Echolot::Config::get()->{'templates'}->{'rlist'});
 	build_list2( $pubrems, $broken1, $broken2, $sameop, Echolot::Config::get()->{'resultdir'}.'/'.'rlist2', Echolot::Config::get()->{'templates'}->{'rlist2'});
+	$stats{'cpunk_total'} = scalar @$pubrems;
+	$stats{'cpunk_98'} = scalar grep { $_->{'stats'}->{'avr_reliability'} >= 0.98 } @$pubrems;
 	if (Echolot::Config::get()->{'combined_list'} && ! Echolot::Config::get()->{'seperate_rlists'}) {
 		$clist->{'cpunk'} = $rems;
 		$pubclist->{'cpunk'} = $pubrems; $pubrems = undef;
@@ -548,7 +554,8 @@ sub build_lists() {
 	Echolot::Tools::write_HTML_file(
 		Echolot::Config::get()->{'resultdir'}.'/'.Echolot::Config::get()->{'indexfilebasename'},
 		Echolot::Config::get()->{'templates'}->{'indexfile'},
-		Echolot::Config::get()->{'buildstats'});
+		Echolot::Config::get()->{'buildstats'},
+		%stats );
 };
 
 
-- 
cgit v1.2.3