Attachment 594750 Details for Bug 684577 – Patch

[patch] Patch

logwatch-7.3-kerberos-logins.patch (text/plain), 1.54 KB, created by Jan Synacek on 2012-06-27 12:16:29 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jan Synacek

Created: 2012-06-27 12:16:29 UTC

Size: 1.54 KB

patch

obsolete

>--- logwatch-7.3-dist/scripts/services/sshd	2012-06-27 14:04:58.012231200 +0200
>+++ logwatch-7.3-patch/scripts/services/sshd	2012-06-27 14:11:08.723725631 +0200
>@@ -152,6 +152,7 @@ my %MisMatch = ();
> my %KrbAutFail = ();
> my %KrbAutErr = ();
> my %KrbErr = ();
>+my %KrbRealm = ();
> my @BadRSA = ();
> my @Scanned = ();
> my %OtherList = ();
>@@ -336,6 +337,8 @@ while (defined(my $ThisLine = <STDIN>))
>       $KrbErr{"error removing file " . $Error}++;     
>    } elsif ( my ($Pom,$Error) = ($ThisLine =~ /pam_krb5(\[\d*\]): error resolving user name '[^ ]*' to uid\/gid pai/)) {
>       $KrbErr{"error resolving user name '$Error' to uid\/gid pai"}++;
>+   } elsif (my ($user,$realm) = ($ThisLine =~ /Authorized to ([^ ]+), krb5 principal \1@([^ ]+) $krb5_kuserok$/)) {
>+      $KrbRealm{$realm}{$user}++;
>    } else {
>       # Report any unmatched entries...
>       unless ($ThisLine =~ /fwd X11 connect/) {
>@@ -546,6 +549,20 @@ if (keys %KrbErr) {
>    }
> }
> 
>+if ( ($Detail == 7 && keys %KrbRealm > 1) || ($Detail > 8 && keys %KrbRealm) ){
>+   print "\nSucessfull Kerberos Authentication from ",(scalar keys %KrbRealm)," realm:\n";
>+   foreach my $realm (keys %KrbRealm) {
>+      if($Detail > 9){
>+         print "   ",$realm,":\n";
>+         foreach my $user(keys %{$KrbRealm{$realm}}){
>+            print "     ",$user,": ". $KrbRealm{$realm}{$user} . " Times(s)\n";
>+         }
>+      }else{
>+         print "   ",$realm,": ". (scalar keys %{$KrbRealm{$realm}}) . " User(s)\n";
>+      }
>+   }
>+}
>+
> 
> if (keys %DisconnectReceived) {
>    print "\n\nReceived disconnect:\n";

Actions: View | Diff

Attachments on bug 684577: 594750