oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

count IP v4/v6 requests now that my kdc supports v6

Browse Source 
git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@13016 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
Love Hörnquist Åstrand
2003-10-14 15:25:34 +00:00
parent 175541b3c3
commit 76e1e376c4
1 changed files with 35 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
tools/kdc-log-analyze.pl
View File

@@ -53,7 +53,8 @@ my @local_networks_re =
( (
"130\.237", "130\.237",
"193\.11\.3[0-9]\.", "193\.11\.3[0-9]\.",
"130.242.128" "130.242.128",
"2001:6b0:5"
); );
my $as_req = 0; my $as_req = 0;
@@ -115,6 +116,9 @@ my %connection_closed_addr;
my $pa_failed = 0; my $pa_failed = 0;
my %pa_failed_princ; my %pa_failed_princ;
my %pa_failed_addr; my %pa_failed_addr;
my %ip;
$ip{'4'} = $ip{'6'} = 0;
while (<>) { while (<>) {
process_line($_); process_line($_);
@@ -125,6 +129,9 @@ print "Kerberos KDC Log Report for ",
print "General Statistics\n\n"; print "General Statistics\n\n";
print "\tNumber of IPv4 requests: $ip{'4'}\n";
print "\tNumber of IPv6 requests: $ip{'6'}\n\n";
print "\tNumber of restarts: $restarts\n"; print "\tNumber of restarts: $restarts\n";
print "\tNumber of V4 requests: $v4_req\n"; print "\tNumber of V4 requests: $v4_req\n";
if ($v4_req > 0) { if ($v4_req > 0) {
@@ -320,9 +327,10 @@ print "\tDistinct principals using DES: ", int(keys %princ_uses_des), "\n";
print "\tTop ten principals using DES:\n"; print "\tTop ten principals using DES:\n";
topten(\%princ_uses_des); topten(\%princ_uses_des);
print "\n";
printf("Requests to forward non-forwardable ticket: $forward_non_forward\n"); printf("Requests to forward non-forwardable ticket: $forward_non_forward\n");
print "\n";
exit 0; exit 0;
@@ -335,33 +343,36 @@ sub process_line {
# Eat these lines that are output as a result of startup (but # Eat these lines that are output as a result of startup (but
# log the number of restarts) # log the number of restarts)
# #
if (/AS-REQ \(krb4\) (.*) from IPv[46]:([0-9\.:a-fA-F]+) for krbtgt.*$/){ if (/AS-REQ \(krb4\) (.*) from IPv([46]):([0-9\.:a-fA-F]+) for krbtgt.*$/){
$v4_req++; $v4_req++;
$v4_req_addr{$2}++; $v4_req_addr{$3}++;
$v4_req_addr_nonlocal{$2}++ if (!islocaladdr($2)); $v4_req_addr_nonlocal{$3}++ if (!islocaladdr($3));
$last_addr = $2; $last_addr = $3;
$last_principal = $1; $last_principal = $1;
} elsif (/AS-REQ (.*) from IPv[46]:([0-9\.:a-fA-F]+) for (.*)$/) { $ip{$2}++;
} elsif (/AS-REQ (.*) from IPv([46]):([0-9\.:a-fA-F]+) for (.*)$/) {
$as_req++; $as_req++;
$as_req_client{$1}++; $as_req_client{$1}++;
$as_req_server{$3}++; $as_req_server{$4}++;
$as_req_addr{$2}++; $as_req_addr{$3}++;
$as_req_addr_nonlocal{$2}++ if (!islocaladdr($2)); $as_req_addr_nonlocal{$3}++ if (!islocaladdr($3));
$last_addr = $2; $last_addr = $3;
$last_principal = $1; $last_principal = $1;
$ip{$2}++;
} elsif (/TGS-REQ \(krb4\)/) { } elsif (/TGS-REQ \(krb4\)/) {
#Nothing #Nothing
} elsif (/TGS-REQ (.+) from IPv[46]:([0-9\.:a-fA-F]+) for (.*?)( \[.*\]){0,1}$/) { } elsif (/TGS-REQ (.+) from IPv([46]):([0-9\.:a-fA-F]+) for (.*?)( \[.*\]){0,1}$/) {
$tgs_req++; $tgs_req++;
$tgs_req_client{$1}++; $tgs_req_client{$1}++;
$tgs_req_server{$3}++; $tgs_req_server{$4}++;
$tgs_req_addr{$2}++; $tgs_req_addr{$3}++;
$tgs_req_addr_nonlocal{$2}++ if (!islocaladdr($2)); $tgs_req_addr_nonlocal{$3}++ if (!islocaladdr($3));
$last_addr = $2; $last_addr = $3;
$last_principal = $1; $last_principal = $1;
$ip{$2}++;
my $source = $1; my $source = $1;
my $dest = $3; my $dest = $4;
if (!islocalrealm($source)) { if (!islocalrealm($source)) {
$tgs_xrealm_in++; $tgs_xrealm_in++;
@@ -377,14 +388,15 @@ sub process_line {
$tgs_xrealm_out_princ{$source}++; $tgs_xrealm_out_princ{$source}++;
} }
} }
} elsif (/524-REQ (.*) from IPv[46]:([0-9\.:a-fA-F]+) for (.*)$/) { } elsif (/524-REQ (.*) from IPv([46]):([0-9\.:a-fA-F]+) for (.*)$/) {
$five24_req++; $five24_req++;
$five24_req_client{$1}++; $five24_req_client{$1}++;
$five24_req_server{$3}++; $five24_req_server{$4}++;
$five24_req_addr{$2}++; $five24_req_addr{$3}++;
$five24_req_addr_nonlocal{$2}++ if (!islocaladdr($2)); $five24_req_addr_nonlocal{$3}++ if (!islocaladdr($3));
$last_addr = $2; $last_addr = $3;
$last_principal = $1; $last_principal = $1;
$ip{$2}++;
} elsif (/TCP data of strange type from IPv[46]:([0-9\.:a-fA-F]+)/) { } elsif (/TCP data of strange type from IPv[46]:([0-9\.:a-fA-F]+)/) {
$strange_tcp_data{$1}++; $strange_tcp_data{$1}++;
} elsif (/Lookup (.*) failed: No such entry in the database/) { } elsif (/Lookup (.*) failed: No such entry in the database/) {
@@ -440,7 +452,7 @@ sub process_line {
} elsif (/Request to forward non-forwardable ticket/) { } elsif (/Request to forward non-forwardable ticket/) {
$forward_non_forward++; $forward_non_forward++;
} elsif (/HTTP request:) { } elsif (/HTTP request:/) {
} elsif (/krb_rd_req: Incorrect network address/) { } elsif (/krb_rd_req: Incorrect network address/) {
} elsif (/krb_rd_req: Ticket expired \(krb_rd_req\)/) { } elsif (/krb_rd_req: Ticket expired \(krb_rd_req\)/) {
} elsif (/Ticket expired \(.*\)/) { } elsif (/Ticket expired \(.*\)/) {