#! /usr/bin/perl

$LOG = "$ENV{'BIB'}/gs.log";

open (LOG, "<$LOG") || die "can't open $LOG";

while (<LOG>) {
	($date, $time, $query) = split (/\s/);
	($hour,$min,$sec) = split (/:/, $time);
	$dates{$date}++;
	# $hours{$hour}++;
	$hits++;
}

close (LOG);

$format = "%-10s %5d\n";

for $date (sort (keys (%dates))) {
	printf $format, $date, $dates{$date};
}
printf $format, "Total:", $hits;