From 9466ae2cbdb04f340274b31f63f7c1a19fb69492 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Wed, 3 Jul 2002 00:28:02 +0000
Subject: Also create type2.list

---
 Echolot/Pinger/Mix.pm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/Echolot/Pinger/Mix.pm b/Echolot/Pinger/Mix.pm
index 5dd0ef5..68fc42d 100644
--- a/Echolot/Pinger/Mix.pm
+++ b/Echolot/Pinger/Mix.pm
@@ -1,7 +1,7 @@
 package Echolot::Pinger::Mix;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Mix.pm,v 1.2 2002/06/18 17:19:00 weasel Exp $
+# $Id: Mix.pm,v 1.3 2002/07/03 00:28:02 weasel Exp $
 #
 
 =pod
@@ -37,6 +37,17 @@ sub ping($$$$) {
 	close (F) or
 		cluck("Cannot close $keyring"),
 		return 0;
+
+	my $type2list = Echolot::Config::get()->{'Pinger::Mix'}->{'mixdir'}.'/type2.list';
+	open (F, '>'.$type2list) or
+		cluck("Cannot open $type2list for writing: $!"),
+		return 0;
+	for my $keyid (keys %$keys) {
+		print (F $keys->{$keyid}->{'summary'}, "\n");
+	};
+	close (F) or
+		cluck("Cannot close $type2list"),
+		return 0;
 	
 	open(MIX, "|".Echolot::Config::get()->{'Pinger::Mix'}->{'mix'}." -m -S -l $chaincomma") or
 		cluck("Cannot exec mixpinger: $!"),
-- 
cgit v1.2.3