#!/usr/bin/perl
# Statistike get/index/db requestova, kao i dodavanja kljuceva
# Parsira log.db SKS posluzitelja, 1.07 verzija, loglevel 4
# (c) Dinko Korunic, 2004.

my $visit=();

while (<>)
{
  chop();

  if (/(\d+)-(\d+)-(\d+).*\/pks\/lookup: Get request/)
  {
    $visit{"$1-$2-$3"}[0]++;
  }
  elsif (/(\d+)-(\d+)-(\d+).*\/pks\/lookup: Index request/)
  {
    $visit{"$1-$2-$3"}[1]++;
  }
  elsif (/(\d+)-(\d+)-(\d+).*\/pks\/lookup: DB Stats request/)
  {
    $visit{"$1-$2-$3"}[2]++;
  }
  elsif (/(\d+)-(\d+)-(\d+).*\/pks\/add: key .* added/)
  {
    $visit{"$1-$2-$3"}[3]++;
  }
}

foreach(sort {$a <=> $b} keys %visit)
{
  print "$_ $visit{$_}[0] $visit{$_}[1] $visit{$_}[2] $visit{$_}[3]\n";
}