##########################################################################

##########################################################################

use strict;

my ($pilot, $user, $ip, $version, $reason, $Msg, $total);

my %Start = ();

my %Login = ();

my %TakeChar = ();

my %Ping = ();

my %Logout = ();

my $Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;

# Interesting events:

#19 Feb 17:11:10 Server runs at 50 frames per second

#21 Feb 05:54:27 Welcome Man=Tiago@UR| (217.129.39.100/3086) (version 4501)

#21 Feb 05:54:28 Man (6) starts at startpos 0.

#21 Feb 05:54:46 Checking Address:(217.129.39.100)

#21 Feb 05:54:47 Checking Address:(217.129.39.100)

#21 Feb 05:54:50 Checking Address:(217.129.39.100)

#21 Feb 05:54:50 Checking Address:(217.129.39.100)

#21 Feb 05:55:18 Goodbye Man=Tiago@UR| ("timeout 08")

while (defined(my $ThisLine = <STDIN>)) {

   chomp($ThisLine);

   if ( ($Msg) = ($ThisLine =~ /Server runs at .*$/)) {

      $Start{$Msg}++;

   } elsif ( ($pilot,$user,$ip,$version) = ($ThisLine =~ /Welcome ([^=]+)=([^|]+)\|.* \(([^\)]+)\) \(([^\)]+)\)$/)) {

      $Login{$pilot}{$user}{$ip}{$version}++;

   } elsif ( ($pilot) = ($ThisLine =~ /([^ ]+) \(\d+\) starts at startpos/)) {

      $TakeChar{$pilot}++;

   } elsif ( ($ip) = ($ThisLine =~ /Checking Address:\((.*)\)$/)) {

      $Ping{$ip}++;

   } elsif ( ($pilot,$user,$reason) = ($ThisLine =~ /Goodbye ([^=]+)=([^|]+)\|.* \((.*)\)$/)) {

      $Logout{$pilot}{$user}{$reason}++;

   }  

}

if (keys %Start) {

   if ($Detail >= 5) {

      foreach my $Msg (sort keys %Start) {

         if ($Start{$Msg} > 1) {

            print "Server started ($Start{$Msg} times)\n";

         } else {

            print "Server started once\n";

         }

      }

   } else {

      my $total;

      foreach my $Msg (keys %Start) {

         $total += $Start{$Msg};

      }

      print "Server started $total times\n";

   }

}

if (keys %Login) {

   print "\n";

   if ($Detail >= 5) {

      foreach my $pilot (sort keys %Login) {

         foreach my $user (sort keys %{ $Login{$pilot} }) {

            my $total=0;

            foreach my $ip (keys %{ $Login{$pilot}{$user} }) {

               foreach my $version (keys %{ $Login{$pilot}{$user}{$ip} }) {

                  $total += $Login{$pilot}{$user}{$ip}{$version};

               }

            }

            print "Pilot $pilot ($user) logged in $total times\n";

         }

      }

   } else {

      my $total;

      foreach my $pilot (keys %Login) {

         foreach my $user (keys %{ $Login{$pilot} }) {

            foreach my $ip (keys %{ $Login{$pilot}{$user} }) {

               foreach my $version (keys %{ $Login{$pilot}{$user}{$ip} }) {

                  $total += $Login{$pilot}{$user}{$ip}{$version};

               }

            }

         }

      }

      print "$total users logged in\n";

   }

}

if (keys %TakeChar) {

   print "\n";

   if ($Detail >= 5) {

      foreach my $pilot (sort keys %TakeChar) {

         if ($TakeChar{$pilot} > 1) {

            print "Player $pilot joined $TakeChar{$pilot} times\n"

         } else {

            print "Player $pilot joined once\n"

         }

      }

   } else {

      my $total=0;

      foreach my $pilot (keys %TakeChar) {

         $total += $TakeChar{$pilot};

      }

      print "$total players entered the world\n";

   }

}

if (keys %Logout) {

   print "\n";

   if ($Detail >= 5) {

      foreach my $pilot (sort keys %Logout) {

         foreach my $user (sort keys %{ $Logout{$pilot} }) {

            foreach my $reason (keys %{ $Logout{$pilot}{$user} }) {

               print "Pilot $pilot ($user) logged out $Logout{$pilot}{$user}{$reason} times ($reason)\n";

            }

         }

      }

   } else {

      my $total=0;

      foreach my $pilot (keys %Logout) {

         foreach my $user (keys %{ $Logout{$pilot} }) {

            foreach my $reason (keys %{ $Logout{$pilot}{$user} }) {

               $total += $Logout{$pilot}{$user}{$reason};

            }

         }

      }

      print "$total users logged out\n";

   }

}

if (keys %Ping) {

   print "\n";

   if ($Detail >= 5) {

      foreach my $ip (sort keys %Ping) {

         if ($Ping{$ip} > 1) {

            printf "Pinged %-16s %3d times\n", ($ip,$Ping{$ip})

         } else {

            printf "Pinged %-16s once\n", ($ip)

         }

      }

   } else {

      my $total=0;

      foreach my $ip (keys %Ping) {

         $total += $Ping{$ip};

      }

      print "Pinged " . keys(%Ping) . " hosts $total times\n";

   }

}

exit(0);

# vi: shiftwidth=3 tabstop=3 syntax=perl et