#!/usr/bin/perl

require "/home/hu/lib/digitComma";
my @files=`ls *.txt`;
foreach my $f(@files) {
  chomp($f);
  open(IN,"$f");
  while (my $line=<IN>) {
    chomp($line);
    next if ($line !~ /^20/);
    my($date,$hits,$dwld,$visi) = split(/\t/,$line);
    my($yr,$mo,$dy) = split(/\-/,$date);
    $HITS{$yr}+=$hits;
    $DWLD{$yr}+=$dwld;
    $VISI{$yr}+=$visi;
  }
  close(IN);
}
foreach my $y(sort keys %HITS) {
  print "Use $y? > (y/n)";
  $use=<STDIN>; chomp($use);
  if ($use =~ /^y/) {
    $TOTH+=$HITS{$y};
    $TOTD+=$DWLD{$y};
    $TOTV+=$VISI{$y};
    $HITS{$y} = commify($HITS{$y});
    $DWLD{$y} = commify($DWLD{$y});
    $VISI{$y} = commify($VISI{$y});
    printf "%5s\t%10s\t%15s\t%12s\n", $y,$HITS{$y},$DWLD{$y},$VISI{$y};
  }
}
printf "%5s\t%10s\t%15s\t%12s\n", '',commify($TOTH),commify($TOTD),commify($TOTV);