From 8035344fa7817ed89913dd3af25a361eb3d690ef Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Love=20H=C3=B6rnquist=20=C3=85strand?= <lha@kth.se>
Date: Sun, 23 Apr 2006 13:19:21 +0000
Subject: [PATCH]  count v5 cross realms too

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@17173 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 tools/kdc-log-analyze.pl | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/tools/kdc-log-analyze.pl b/tools/kdc-log-analyze.pl
index 5f551055d..2d40bd2ef 100755
--- a/tools/kdc-log-analyze.pl
+++ b/tools/kdc-log-analyze.pl
@@ -99,6 +99,8 @@ my %v4_req_addr;
 my %v4_req_addr_nonlocal;
 my $v4_cross = 0;
 my %v4_cross_realm;
+my $v5_cross = 0;
+my %v5_cross_realm;
 my $referrals = 0;
 my %referral_princ;
 my %referral_realm;
@@ -152,6 +154,13 @@ if ($v4_cross > 0) {
 }
 print "\n";
 
+print "\tNumber of V45 cross realms requests: $v5_cross\n";
+if ($v5_cross > 0) {
+	print "\tTop ten realms performing V4 cross requests:\n";
+	topten(\%v5_cross_realm);
+}
+print "\n";
+
 print "\tNumber of failed lookups: $no_such_princ\n";
 if ($no_such_princ > 0) {
 	print "\tTop ten IP addresses failing to find principal:\n";
@@ -433,7 +442,11 @@ sub process_line {
 		$v4_cross_realm{$1."->".$2}++;
 	} elsif (/cross-realm (.*) -> (.*): no transit through realm (.*)/) {
 	} elsif (/cross-realm (.*) -> (.*) via \[([^\]]+)\]/) {
-	} elsif (/cross-realm (.*) -> (.*)) {
+		$v5_cross++;
+		$v5_cross_realm{$1."->".$2}++;
+	} elsif (/cross-realm (.*) -> (.*)/) {
+		$v5_cross++;
+		$v5_cross_realm{$1."->".$2}++;
 	} elsif (/sending ([0-9]+) bytes to IPv[46]:([0-9\.:a-fA-F]+)/) {
 		$bw_addr{$2} += $1;
 	} elsif (/Using ([-a-z0-9]+)\/([-a-z0-9]+)/) {