summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Echolot/Stats.pm11
-rw-r--r--NEWS1
-rw-r--r--templates/echolot.html8
3 files changed, 17 insertions, 3 deletions
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 );
};
diff --git a/NEWS b/NEWS
index 3b26c90..830b3cd 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,7 @@
Changes in version 2.0beta33 - 2002-08-23
* Scheduler fixes (inserted jobs for one time processing got requeued
over and over again according to their interval).
+ * Give a short summary about current stats on index page.
Changes in version 2.0beta32 - 2002-08-23
* Fix a major bug introduced in 2.0beta31 that resulted in no
diff --git a/templates/echolot.html b/templates/echolot.html
index 2d81516..a298e10 100644
--- a/templates/echolot.html
+++ b/templates/echolot.html
@@ -2,7 +2,7 @@
<head>
<title>Remailer Reliability Stats [<TMPL_VAR NAME="SITE_NAME">]</title>
<META HTTP-EQUIV="Expires" CONTENT="<TMPL_VAR NAME="EXPIRES">">
- <!-- $Id: echolot.html,v 1.5 2002/08/21 19:19:57 weasel Exp $ -->
+ <!-- $Id: echolot.html,v 1.6 2002/08/23 08:17:21 weasel Exp $ -->
</head>
<body>
<h1>Remailer Reliability Stats [<TMPL_VAR NAME="SITE_NAME">]</h1>
@@ -49,6 +49,12 @@ queries </TMPL_IF>for your convenience.
</tr>
</table>
+<p>
+Out of the <TMPL_VAR NAME="CPUNK_TOTAL"> Cypherpunk and
+<TMPL_VAR NAME="MIX_TOTAL"> Mixmaster remailers on these stats there
+are <TMPL_VAR NAME="CPUNK_98"> CPunks and <TMPL_VAR NAME="MIX_98"> Mixes
+over 98.0% in terms of overall reliability.
+
<h2>Available Keyrings</h2>
<table border=1>