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

handle requests to forward non-forwardable ticket and HTTP requests

Browse Source 
git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@13011 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
Love Hörnquist Åstrand
2003-10-14 11:21:43 +00:00
parent dfbc07b034
commit 9c33463fd1
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -92,6 +92,7 @@ my %tgs_xrealm_in_princ;
my %enctype_session; my %enctype_session;
my %enctype_ticket; my %enctype_ticket;
my $restarts = 0; my $restarts = 0;
my $forward_non_forward = 0;
my $v4_req = 0; my $v4_req = 0;
my %v4_req_addr; my %v4_req_addr;
my %v4_req_addr_nonlocal; my %v4_req_addr_nonlocal;
@@ -319,6 +320,8 @@ 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);
printf("Requests to forward non-forwardable ticket: $forward_non_forward\n");
print "\n"; print "\n";
exit 0; exit 0;
@@ -435,6 +438,9 @@ sub process_line {
$pa_failed_princ{$last_principal}++; $pa_failed_princ{$last_principal}++;
$pa_failed_addr{$last_addr}++; $pa_failed_addr{$last_addr}++;
} elsif (/Request to forward non-forwardable ticket/) {
$forward_non_forward++;
} 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 \(.*\)/) {
@@ -480,22 +486,16 @@ sub process_line {
} }
sub topten { sub topten {
my ($list, $map) = @_; my ($list) = @_;
my (@keys); my @keys;
my $key; my $key;
@keys = (sort {$$list{$b} <=> $$list{$a}} (keys %{$list})); @keys = (sort {$$list{$b} <=> $$list{$a}} (keys %{$list}));
splice @keys, 10; splice @keys, 10;
if (defined $map) { foreach $key (@keys) {
foreach $key (@keys) { print "\t\t$key - $$list{$key}\n";
print "\t\t$$map{$key} - $$list{$key}\n";
}
} else {
foreach $key (@keys) {
print "\t\t$key - $$list{$key}\n";
}
} }
} }