[PATCH v2] sshd: fix typos

Jan Synacek <[email protected]> Wed, 1 Jun 2016 08:39:07 +0200
Newsgroups gmane.comp.log.logwatch.devel
Message-ID <[email protected]>
---
 scripts/services/sshd | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/scripts/services/sshd b/scripts/services/sshd
index a7edb41..ea88c55 100755
--- a/scripts/services/sshd
+++ b/scripts/services/sshd
@@ -228,7 +228,7 @@ my @Scanned = ();
 my %OtherList = ();
 my %ChmodErr = ();
 my %ChownErr = ();
-my %Krb_relm = ();
+my %Krb_realm = ();
 
 my $sftpRequests = 0;
 my $NetworkErrors = 0;
@@ -445,8 +445,8 @@ while (defined(my $ThisLine = <STDIN>)) {
       $ChmodErr{"$File,$Perm,$Why"}++;
    } elsif (my ($File,$From,$To,$Why) = ($ThisLine =~ /error: chown (.*) (.*) (.*) failed: (.*)/)) {
       $ChownErr{"$File,$From,$To,$Why"}++;
-   } elsif (my ($user,$relm) = ($ThisLine =~ /Authorized to ([^ ]+), krb5 principal \1@([^ ]+) \(krb5_kuserok\)/)) {
-      $Krb_relm{$relm}{$user}++;  
+   } elsif (my ($user,$realm) = ($ThisLine =~ /Authorized to ([^ ]+), krb5 principal \1@([^ ]+) \(krb5_kuserok\)/)) {
+      $Krb_realm{$realm}{$user}++;
    } else {
       # Report any unmatched entries...
       unless ($ThisLine =~ /fwd X11 connect/) {
@@ -808,16 +808,16 @@ if (keys %ChownErr) {
   }
 }
 
-if ( ($Detail == 7 && keys %Krb_relm > 1) || ($Detail > 8 && keys %Krb_relm) ){
-  print "\nSucessfull Kerberos Authentication from ",(scalar keys %Krb_relm)," relm:\n";
-  foreach my $relm (keys %Krb_relm) { 
+if ( ($Detail == 7 && keys %Krb_realm > 1) || ($Detail > 8 && keys %Krb_realm) ){
+  print "\nSuccessful Kerberos Authentication from ",(scalar keys %Krb_realm)," realm:\n";
+  foreach my $realm (keys %Krb_realm) {
     if($Detail > 9){
-      print "   ",$relm,":\n";
-      foreach my $user(keys %{$Krb_relm{$relm}}){
-        print "     ",$user,": ". $Krb_relm{$relm}{$user} . " Times(s)\n";
+      print "   ",$realm,":\n";
+      foreach my $user(keys %{$Krb_realm{$realm}}){
+        print "     ",$user,": ". $Krb_realm{$realm}{$user} . " Times(s)\n";
       }
     }else{
-      print "   ",$relm,": ". (scalar keys %{$Krb_relm{$relm}}) . " User(s)\n";
+      print "   ",$realm,": ". (scalar keys %{$Krb_realm{$realm}}) . " User(s)\n";
     }
   }
 }
-- 
2.7.4


------------------------------------------------------------------------------
What NetFlow Analyzer can do for you? Monitors network bandwidth and traffic
patterns at an interface-level. Reveals which users, apps, and protocols are 
consuming the most bandwidth. Provides multi-vendor support for NetFlow, 
J-Flow, sFlow and other flows. Make informed decisions using capacity 
planning reports. https://ad.doubleclick.net/ddm/clk/305295220;132659582;e