1 files changed, 15 insertions, 0 deletions
diff --git a/ipsec-tools/src/racoon/stats.pl b/ipsec-tools/src/racoon/stats.pl
new file mode 100644
index 00000000..f509512e
--- /dev/null
+++ b/ipsec-tools/src/racoon/stats.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+# usage:
+# % cat /var/log/racoon-stats.log | perl stats.pl
+
+while(<STDIN>) {
+	chomp;
+	($a, $a, $a, $a, $a, $b) = split(/\s+/, $_, 6);
+	($a, $c) = split(/:/, $b, 2);
+	$r{$a} += $c;
+	$t{$a}++;
+}
+
+foreach (sort keys %t) {
+	printf "%s: total=%d avg=%8.6f\n", $_, $t{$_}, $r{$_}/$t{$_};
+}