SF.net SVN: logwatch:[231] scripts/services/secure

[email protected] Tue, 9 Sep 2014 12:59:25 +0000
Newsgroups gmane.comp.log.logwatch.devel
Message-ID <[email protected]>
Revision: 231
          http://sourceforge.net/p/logwatch/code/231
Author:   stefjakobs
Date:     2014-09-09 12:59:24 +0000 (Tue, 09 Sep 2014)
Log Message:
-----------
secure: fix printing of XScreenSaver auth failures (Thanks: pyllyukko)

Modified Paths:
--------------
    scripts/services/secure

Modified: scripts/services/secure
===================================================================
--- scripts/services/secure	2014-09-09 12:30:37 UTC (rev 230)
+++ scripts/services/secure	2014-09-09 12:59:24 UTC (rev 231)
@@ -351,7 +351,7 @@
    } elsif ( ($Service,undef,$Name,$IP) = ($ThisLine =~ /^([^ ]+)\[\d+\]: warning: ([^ ]+), line \d+: host name\/name mismatch: ([^ ]+) != ([^ ]+)$/) ) {
       $NameVerifyFail{$Service}{"$Name != $IP"}++;
    } elsif ( ($Display, $User) = ($ThisLine =~ /^xscreensaver\[\d+\]: FAILED LOGIN \d ON DISPLAY \"([^ ]+)\", FOR \"([^ ]+)\"$/) ) {
-      $FailedSaver{$User}{$Display}++;
+      $FailedSaver->{$User}->{$Display}++;
    } elsif ( $ThisLine =~ s/^([^ ]+)\[\d+\]: warning: can\'t get client address: No route to host$/$1/ ) {
       $NoIP->{$ThisLine}++;
    } elsif ( $ThisLine =~ s/^([^ ]+)\[\d+\]: warning: can\'t get client address: Network is unreachable$/$1/ ) {
@@ -688,8 +688,8 @@
    print "\nFailed screensaver disable:\n";
    foreach $User (sort {$a cmp $b} keys %{$FailedSaver}) {
       print "   User $User on displays:\n";
-      foreach $Display (sort {$a cmp $b} keys %{$FailedSaver{$User}}) {
-         print "      $Display : $FailedSaver{$User}{$Display} Time(s)\n";
+      foreach $Display (sort {$a cmp $b} keys %{$FailedSaver->{$User}}) {
+         print "      $Display : " . $FailedSaver->{$User}->{$Display} . " Time(s)\n";
       }
    }
 }

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


------------------------------------------------------------------------------
Want excitement?
Manually upgrade your production database.
When you want reliability, choose Perforce.
Perforce version control. Predictably reliable.
http://pubads.g.doubleclick.net/gampad/clk?id=157508191&iu=/4140/ostg.clktrk