dist/wpa/hostapd/logwatch/hostapd

   1 #!/usr/bin/perl -w
   2 #
   3 # Logwatch script for hostapd
   4 #
   5 # Copyright 2005 Henrik Brix Andersen <brix@gentoo.org>
   6 # Distributed under the terms of the GNU General Public License v2
   7 # Alternatively, this file may be distributed under the terms of the BSD License
   8
   9 use strict;
  10
  11 my $debug = $ENV{'LOGWATCH_DEBUG'} || 0;
  12 my $detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
  13 my $debugcounter = 1;
  14
  15 my %hostapd;
  16 my @unmatched;
  17
  18 if ($debug >= 5) {
  19         print STDERR "\n\nDEBUG: Inside HOSTAPD Filter\n\n";
  20 }
  21
  22 while (defined(my $line = <STDIN>)) {
  23         if ($debug >= 5) {
  24                 print STDERR "DEBUG($debugcounter): $line";
  25                 $debugcounter++;
  26         }
  27     chomp($line);
  28
  29         if (my ($iface,$mac,$layer,$details) = ($line =~ /(.*?): STA (.*?) (.*?): (.*?)$/i)) {
  30                 unless ($detail == 10) {
  31                         # collapse association events
  32                         $details =~ s/^(associated) .*$/$1/i;
  33                 }
  34                 $hostapd{$iface}->{$mac}->{$layer}->{$details}++;
  35         } else {
  36                 push @unmatched, "$line\n";
  37         }
  38 }
  39
  40 if (keys %hostapd) {
  41         foreach my $iface (sort keys %hostapd) {
  42                 print "Interface $iface:\n";
  43                 foreach my $mac (sort keys %{$hostapd{$iface}}) {
  44                         print "  Client MAC Address $mac:\n";
  45                         foreach my $layer (sort keys %{$hostapd{$iface}->{$mac}}) {
  46                                 print "    $layer:\n";
  47                                 foreach my $details (sort keys %{$hostapd{$iface}->{$mac}->{$layer}}) {
  48                                         print "      $details";
  49                                         my $count = $hostapd{$iface}->{$mac}->{$layer}->{$details};
  50                                         if ($count > 1) {
  51                                                 print ": " . $count . " Times";
  52                                         }
  53                                         print "\n";
  54                                 }
  55                         }
  56                 }
  57         }
  58 }
  59
  60 if ($#unmatched >= 0) {
  61     print "\n**Unmatched Entries**\n";
  62     print @unmatched;
  63 }
  64
  65 exit(0);