From b012a1aa6ddaa6341e7096bf4234a1f46b8a90a0 Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@almesberger.net>
Date: Tue, 11 Oct 2011 12:14:45 -0300
Subject: [PATCH] m1rc3/norruption/2/collda: report collateral damage in
 non-standby partitions

---
 m1rc3/norruption/2/collda | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 m1rc3/norruption/2/collda

diff --git a/m1rc3/norruption/2/collda b/m1rc3/norruption/2/collda
new file mode 100755
index 0000000..3acd11b
--- /dev/null
+++ b/m1rc3/norruption/2/collda
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+while (<>) {
+	if (/^=== (\d+) ==/) {
+		$c = $1;
+		next;
+	}
+	next unless /Checking : (\S+)\s+CRC failed.* got (\S+)\)/;
+	$n++;
+	$c{$n} = $c;
+	next if $1 eq "standby.fpg";
+	next if $last{$1} eq $2;
+	if (defined $h{$n}) {
+		$h{$n} .= ", ".$1;
+	} else {
+		$h{$n} = $1;
+	}
+	$last{$1} = $2;
+}
+
+for (sort { $a <=> $b } keys %h) {
+	print "$_ ($c{$_}): ", $h{$_}, "\n";
+}