summaryrefslogtreecommitdiff
path: root/Echolot
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-07-02 17:05:22 +0000
committerPeter Palfrader <peter@palfrader.org>2002-07-02 17:05:22 +0000
commite9cb34b156f1cbc1961b89d90131b7ea025df31c (patch)
tree91f3b8d17f8c14eac8b767ce6f7a58dbf3704147 /Echolot
parent8bf7925cfe8984dde77c989cd29ca9d87a7d32a3 (diff)
Only show if showit is set
Diffstat (limited to 'Echolot')
-rw-r--r--Echolot/Stats.pm22
1 files changed, 14 insertions, 8 deletions
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm
index 8907034..013e398 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.6 2002/06/22 23:36:32 weasel Exp $
+# $Id: Stats.pm,v 1.7 2002/07/02 17:05:22 weasel Exp $
#
=pod
@@ -353,7 +353,8 @@ sub build_rems($) {
my ($types) = @_;
my %rems;
- for my $addr (Echolot::Globals::get()->{'storage'}->get_remailers()) {
+ for my $remailer (Echolot::Globals::get()->{'storage'}->get_remailers()) {
+ my $addr = $remailer->{'address'};
my $has_type = 0;
for my $type (@$types) {
$has_type = 1, last if (Echolot::Globals::get()->{'storage'}->has_type($addr, $type));
@@ -364,7 +365,8 @@ sub build_rems($) {
'stats' => calculate($addr,$types),
'nick' => Echolot::Globals::get()->{'storage'}->get_nick($addr),
'caps' => Echolot::Globals::get()->{'storage'}->get_capabilities($addr),
- 'address' => $addr
+ 'address' => $addr,
+ 'showit' => $remailer->{'showit'}
};
$rems{$addr} = $rem if (defined $rem->{'stats'} && defined $rem->{'nick'} && defined $rem->{'address'} && defined $rem->{'caps'} );
@@ -382,12 +384,14 @@ sub build_rems($) {
sub build_lists() {
my $rems = build_rems(['mix']);
- build_mlist1( $rems, 'mlist');
- build_list2( $rems, 'mlist2');
+ my @rems = grep { $_->{'showit'} } @$rems;
+ build_mlist1( \@rems, 'mlist');
+ build_list2( \@rems, 'mlist2');
$rems = build_rems(['cpunk-rsa', 'cpunk-dsa']);
- build_rlist1( $rems, 'rlist');
- build_list2( $rems, 'rlist2');
+ @rems = grep { $_->{'showit'} } @$rems;
+ build_rlist1( \@rems, 'rlist');
+ build_list2( \@rems, 'rlist2');
};
@@ -401,7 +405,9 @@ sub build_mixring() {
cluck("Cannot open $filename: $!\n"),
return 0;
- for my $addr (Echolot::Globals::get()->{'storage'}->get_remailers()) {
+ for my $remailer (Echolot::Globals::get()->{'storage'}->get_remailers()) {
+ next unless $remailer->{'showit'};
+ my $addr = $remailer->{'address'};
next unless Echolot::Globals::get()->{'storage'}->has_type($addr, 'mix');
my %key;