#!/usr/bin/ruby
# lasthit, part of iExploder
# 
# Shows statistics about recent agents that have tested with iExploder. 
# It takes all or part of an apache logfile via stdin, and outputs a list
# of all the agents who tested within that section, what their last test
# was, and how many tests they have done.

# The usefulness is finding out where a browser crashed.


hostHash = Hash.new

if (ARGV[0])
	file = File.open(ARGV[0])
else
	file = $stdin
end
 
file.readlines.each { |line|
	if (line =~ /^(.*?) .*iexploder.*?test=(\d+).* HTTP.* \"(.*?)\"$/)
		host = $1
		testnum = $2
		agent = $3
		if (! hostHash[host])
			hostHash[host] = Hash.new
		end
		if (! hostHash[host][agent])
			hostHash[host][agent] = Hash.new
			hostHash[host][agent]['total'] = 0
		end

		hostHash[host][agent]['last'] = testnum
		if line =~ /subtest=(\d+)/
			hostHash[host][agent]['subtest'] = $1
		else
			hostHash[host][agent]['subtest'] = ''
		end
		hostHash[host][agent]['total'] = hostHash[host][agent]['total'] + 1
	end
}

printf("%14.14s | %8.8s | %3.3s | %8.8s | %s\n", 
	 "IP",    "Test", "SubTest", "Total", "Agent")
puts "---------------------------------------------------------------------------"
hostHash.each_key { |host|

	hostHash[host].each_key { |agent|
		printf("%14.14s | %8.8s | %3.3s | %8.8s | %s\n", 
			host, hostHash[host][agent]['last'],  hostHash[host][agent]['subtest'], hostHash[host][agent]['total'], agent);
	}
}