#!/usr/bin/perl
$LOGFILE = "rexlog.txt";

if ($#ARGV >= 0) {
  do ProcessArgs();
}
open(LOG,$LOGFILE);
while ($line = <LOG>) {
  if ($line =~ m/\d+:\d+ on .+: (.+): (\w+) \"/) {
    if ($2 eq "Added") {
      $added{$1} ++;
    } elsif ($2 eq "Skipped") {
      $skipped{$1} ++;
    } elsif ($2 eq "Deleted") {
      $deleted{$1} ++;
    }
  } elsif ($line =~ m/\d+:\d+ on .+: Login by: (\w+)/) {
    $users{$1} = 1;
  }
}
do Adjust();
foreach $i (sort(keys(added))) {
  print "$i:\tAdded:\t$added{$i}\tDeleted:\t$deleted{$i}\tSkipped:\t$skipped{$i}\n";
}

#Adjust-
sub Adjust {
  $added{Joshua} += 194;
  $deleted{Joshua} += 106;
  $skipped{Joshua} += 14;
  $added{Aaron} += 550;
  $deleted{Aaron} += 100;
  $skipped{Aaron} += 53;
  $added{Brent} += 87;
  $deleted{Brent} += 44;
  $skipped{Brent} += 33;
  $added{Casey} += 61;
  $deleted{Casey} += 18;
  $skipped{Casey} += 32;
  $added{Elaine} += 421;
  $deleted{Elaine} += 139;
  $skipped{Elaine} += 161;
  $added{Jake} += 1;
  $deleted{Jake} += 0;
  $skipped{Jake} += 0;
  $added{Paul} += 365;
  $deleted{Paul} += 41;
  $skipped{Paul} += 8;
  $added{RHandy} += 764;
  $deleted{RHandy} += 9;
  $skipped{RHandy} += 84;
  $added{Tom} += 2966;
  $deleted{Tom} += 1922;
  $skipped{Tom} += 584;
}
#-Adjust

#ProcessArgs-
sub ProcessArgs {
  foreach $argnum (0..$#ARGV) {
    ($key,$value) = split('\=',$ARGV[$argnum],2);
    if ($key eq "tail") {
print "LOGFILE = tail -$value $LOGFILE |\n";
      $LOGFILE = "tail -$value $LOGFILE |";
    }
  }
}
#-ProcessArgs