From 072b1c2a79025d93f0a0c4843e609653258de938 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Wed, 10 Jul 2002 17:17:25 +0000
Subject: Support seperate rlists for rsa, dsa and plaintext pings

---
 Echolot/Config.pm | 11 +++++++++--
 Echolot/Stats.pm  | 27 ++++++++++++++++++++++++++-
 2 files changed, 35 insertions(+), 3 deletions(-)

(limited to 'Echolot')

diff --git a/Echolot/Config.pm b/Echolot/Config.pm
index 789ccac..8761631 100644
--- a/Echolot/Config.pm
+++ b/Echolot/Config.pm
@@ -1,7 +1,7 @@
 package Echolot::Config;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Config.pm,v 1.19 2002/07/10 13:01:03 weasel Exp $
+# $Id: Config.pm,v 1.20 2002/07/10 17:16:45 weasel Exp $
 #
 
 =pod
@@ -69,6 +69,7 @@ sub init($) {
 		ping_new                    => 1,
 		show_new                    => 1,
 
+		seperate_rlists             => 0,
 		thesaurus                   => 1,
 
 		processmail                 => 60,   # process incomng mail every minute
@@ -114,8 +115,14 @@ sub init($) {
 			'thesaurusindexfile'    => 'templates/thesaurusindex.html',
 			'mlist'                 => 'templates/mlist.html',
 			'mlist2'                => 'templates/mlist2.html',
-			'rlist2'                => 'templates/rlist2.html',
 			'rlist'                 => 'templates/rlist.html',
+			'rlist-rsa'             => 'templates/rlist-rsa.html',
+			'rlist-dsa'             => 'templates/rlist-dsa.html',
+			'rlist-clear'           => 'templates/rlist-clear.html',
+			'rlist2'                => 'templates/rlist2.html',
+			'rlist2-rsa'            => 'templates/rlist2-rsa.html',
+			'rlist2-dsa'            => 'templates/rlist2-dsa.html',
+			'rlist2-clear'          => 'templates/rlist2-clear.html',
 		},
 		
 		homedir                     => undef,
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm
index 96776a4..438c07e 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.12 2002/07/06 20:15:12 weasel Exp $
+# $Id: Stats.pm,v 1.13 2002/07/10 17:16:45 weasel Exp $
 #
 
 =pod
@@ -275,6 +275,7 @@ sub write_file($$;$) {
 	$template->param ( list => $output );
 	$template->param ( CURRENT_TIMESTAMP => scalar gmtime() );
 	$template->param ( SITE_NAME => Echolot::Config::get()->{'sitename'} );
+	$template->param ( seperate_rlist => Echolot::Config::get()->{'seperate_rlists'} );
 
 	$filename = $filebasename.'.html';
 	open(F, '>'.$filename) or
@@ -320,6 +321,7 @@ sub build_rlist1($$;$) {
 	#$output .= sprintf "Broken type-I remailer chains:\n\n";
 	#$output .= sprintf "Broken type-II remailer chains:\n\n";
 
+	$output .= sprintf "\n";
 	$output .= sprintf "Last update: %s\n", makeDate();
 	$output .= sprintf "remailer  email address                        history  latency  uptime\n";
 	$output .= sprintf "-----------------------------------------------------------------------\n";
@@ -424,6 +426,29 @@ sub build_lists() {
 	@$rems = grep { $_->{'showit'} } @$rems;
 	build_rlist1( $rems, Echolot::Config::get()->{'resultdir'}.'/'.'rlist', Echolot::Config::get()->{'templates'}->{'rlist'});
 	build_list2( $rems, Echolot::Config::get()->{'resultdir'}.'/'.'rlist2', Echolot::Config::get()->{'templates'}->{'rlist2'});
+
+	if (Echolot::Config::get()->{'seperate_rlists'}) {
+		$rems = build_rems(['cpunk-rsa']);
+		build_rlist1( $rems, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist-rsa', Echolot::Config::get()->{'templates'}->{'rlist-rsa'});
+		build_list2( $rems, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist2-rsa', Echolot::Config::get()->{'templates'}->{'rlist2-rsa'});
+		@$rems = grep { $_->{'showit'} } @$rems;
+		build_rlist1( $rems, Echolot::Config::get()->{'resultdir'}.'/'.'rlist-rsa', Echolot::Config::get()->{'templates'}->{'rlist-rsa'});
+		build_list2( $rems, Echolot::Config::get()->{'resultdir'}.'/'.'rlist2-rsa', Echolot::Config::get()->{'templates'}->{'rlist2-rsa'});
+
+		$rems = build_rems(['cpunk-dsa']);
+		build_rlist1( $rems, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist-dsa', Echolot::Config::get()->{'templates'}->{'rlist-dsa'});
+		build_list2( $rems, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist2-dsa', Echolot::Config::get()->{'templates'}->{'rlist2-dsa'});
+		@$rems = grep { $_->{'showit'} } @$rems;
+		build_rlist1( $rems, Echolot::Config::get()->{'resultdir'}.'/'.'rlist-dsa', Echolot::Config::get()->{'templates'}->{'rlist-dsa'});
+		build_list2( $rems, Echolot::Config::get()->{'resultdir'}.'/'.'rlist2-dsa', Echolot::Config::get()->{'templates'}->{'rlist2-dsa'});
+
+		$rems = build_rems(['cpunk-clear']);
+		build_rlist1( $rems, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist-clear', Echolot::Config::get()->{'templates'}->{'rlist-clear'});
+		build_list2( $rems, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist2-clear', Echolot::Config::get()->{'templates'}->{'rlist2-clear'});
+		@$rems = grep { $_->{'showit'} } @$rems;
+		build_rlist1( $rems, Echolot::Config::get()->{'resultdir'}.'/'.'rlist-clear', Echolot::Config::get()->{'templates'}->{'rlist-clear'});
+		build_list2( $rems, Echolot::Config::get()->{'resultdir'}.'/'.'rlist2-clear', Echolot::Config::get()->{'templates'}->{'rlist2-clear'});
+	}
 };
 
 
-- 
cgit v1.2.3