From 1368db7d66ba33dcf2c67351e2e652c40c718fd5 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Tue, 23 Sep 2003 12:49:59 +0000
Subject: [PATCH] tool to convert 0.2.2 and earlier caches to new format

---
 trunk/ripnews/tools/cacheconverter | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 trunk/ripnews/tools/cacheconverter

diff --git a/trunk/ripnews/tools/cacheconverter b/trunk/ripnews/tools/cacheconverter
new file mode 100755
index 0000000..1c8246a
--- /dev/null
+++ b/trunk/ripnews/tools/cacheconverter
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+my %servers;
+
+$cachefile = $ARGV[0];
+if ($ARGV[1]) {
+	print "Usage: $ARGV[0] <cachefile>\n";
+	exit;
+}
+
+print "Group: $groupname\n";
+
+while (<>) {
+	/^([^|]*)\|([^|]*)\|([^|]*)\|(.*)/;
+	if (exists $servers{$3}) {
+		push @{$servers{$3}}, "$1|$2|$4\n";
+	} else {
+		$servers{$3} = [];
+		push @{$servers{$3}}, "$1|$2|$4\n";
+	}
+}
+
+foreach (keys %servers) {
+	print ":KEY: $_\n";
+	open FH, ">$cachefile.$_" or die "Couldn't write new cachefile\n";
+	foreach (@{$servers{$_}}) {
+		print FH;
+	}
+	close FH;
+}