[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