diff options
Diffstat (limited to 'Echolot')
| -rw-r--r-- | Echolot/Stats.pm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm index 978bc93..c4d9215 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.59 2003/06/23 13:14:14 weasel Exp $ +# $Id: Stats.pm,v 1.60 2003/09/02 10:11:43 weasel Exp $ # =pod @@ -470,8 +470,8 @@ sub build_rems($) { 'nick' => Echolot::Globals::get()->{'storage'}->get_nick($addr), 'caps' => Echolot::Globals::get()->{'storage'}->get_capabilities($addr), 'address' => $addr, - 'showit' => $remailer->{'showit'} }; + $rem->{'list-it'} = $remailer->{'showit'} && $rem->{'caps'} !~ m/\btesting\b/i; $rem->{'latency'} = $rem->{'stats'}->{'avr_latency'}; # for sorting purposes only $rem->{'latency'} = 9999 unless defined $rem->{'latency'}; @@ -604,7 +604,7 @@ sub find_broken_chains($$$) { my $nick1 = $remailers{$addr1}->{'nick'}; my $nick2 = $remailers{$addr2}->{'nick'}; push @broken_chains, - { public => $remailers{$addr1}->{'showit'} && $remailers{$addr2}->{'showit'}, + { public => $remailers{$addr1}->{'list-it'} && $remailers{$addr2}->{'list-it'}, chain => "($nick1 $nick2)" }; push @intensive_care, { addr1 => $addr1, addr2 => $addr2, reason => "bad: $done/$out" }; }; @@ -663,7 +663,7 @@ sub build_lists() { $rems = $mixrems; $mixrems = undef; - @$pubrems = grep { $_->{'showit'} } @$rems; + @$pubrems = grep { $_->{'list-it'} } @$rems; build_mlist1( $rems, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'mlist', 'mlist'); build_list2( $rems, 2, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'mlist2', 'mlist2'); build_mlist1( $pubrems, $pubbroken1, $pubbroken2, $sameop, Echolot::Config::get()->{'resultdir'}.'/'.'mlist', 'mlist'); @@ -678,7 +678,7 @@ sub build_lists() { $rems = $cpunkrems; $cpunkrems = undef; - @$pubrems = grep { $_->{'showit'} } @$rems; + @$pubrems = grep { $_->{'list-it'} } @$rems; build_rlist1( $rems, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist', 'rlist'); build_list2( $rems, 1, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist2', 'rlist2'); build_rlist1( $pubrems, $pubbroken1, $pubbroken2, $sameop, Echolot::Config::get()->{'resultdir'}.'/'.'rlist', 'rlist'); @@ -693,7 +693,7 @@ sub build_lists() { if (Echolot::Config::get()->{'separate_rlists'}) { $rems = build_rems(['cpunk-rsa']); - @$pubrems = grep { $_->{'showit'} } @$rems; + @$pubrems = grep { $_->{'list-it'} } @$rems; build_rlist1( $rems, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist-rsa', 'rlist-rsa'); build_list2( $rems, 1, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist2-rsa', 'rlist2-rsa'); build_rlist1( $pubrems, $pubbroken1, $pubbroken2, $sameop, Echolot::Config::get()->{'resultdir'}.'/'.'rlist-rsa', 'rlist-rsa'); @@ -704,7 +704,7 @@ sub build_lists() { }; $rems = build_rems(['cpunk-dsa']); - @$pubrems = grep { $_->{'showit'} } @$rems; + @$pubrems = grep { $_->{'list-it'} } @$rems; build_rlist1( $rems, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist-dsa', 'rlist-dsa'); build_list2( $rems, 1, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist2-dsa', 'rlist2-dsa'); build_rlist1( $pubrems, $pubbroken1, $pubbroken2, $sameop, Echolot::Config::get()->{'resultdir'}.'/'.'rlist-dsa', 'rlist-dsa'); @@ -715,7 +715,7 @@ sub build_lists() { }; $rems = build_rems(['cpunk-clear']); - @$pubrems = grep { $_->{'showit'} } @$rems; + @$pubrems = grep { $_->{'list-it'} } @$rems; build_rlist1( $rems, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist-clear', 'rlist-clear'); build_list2( $rems, 1, $privbroken1, $privbroken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist2-clear', 'rlist2-clear'); build_rlist1( $pubrems, $pubbroken1, $pubbroken2, $sameop, Echolot::Config::get()->{'resultdir'}.'/'.'rlist-clear', 'rlist-clear'); @@ -801,7 +801,7 @@ sub build_mixring() { }; }; - $key{'showit'} = $remailer->{'showit'}; + $key{'list-it'} = $remailer->{'list-it'}; if ( defined Echolot::Globals::get()->{'storage'}->get_nick($addr) ) { $data->{$key{'summary'}} = \%key; $data->{$key{'summary'}} = \%key; @@ -810,7 +810,7 @@ sub build_mixring() { for my $indx (sort {$a cmp $b} keys %$data) { my $key = $data->{$indx}; - if ($key->{'showit'}) { + if ($key->{'list-it'}) { print F $key->{'summary'}."\n\n"; print F $key->{'key'},"\n\n"; print T2L $key->{'summary'},"\n"; @@ -889,7 +889,7 @@ sub build_pgpring_type($$$$) { } elsif ($count_imported < 1) { Echolot::Log::info("GnuPG status '$status' didn't indicate key for '$addr' was imported correctly. Ignoring."); }; - $keyids->{$final_keyid} = $remailer->{'showit'}; + $keyids->{$final_keyid} = $remailer->{'list-it'}; }; }; |