require 'win32ole'
 
USAGE = "prpidx <capture-filename>"
endl  = "\n"
tab   = "\t"
 
 
def printPacket(packet)
endl  = "\n"
tab   = "\t"
	$stdout << packet.ID << tab << packet.Timestamp << tab \
	        << packet.Length << tab << packet.Type << tab \
		<< packet.Description << endl
end
 
 
if ARGV.length != 1
	puts USAGE
	exit 1
end
 
InputFile = ARGV[0]
UnsniffDB = WIN32OLE.new("Unsniff.Database")
UnsniffDB.Open(InputFile)
Count = UnsniffDB.PacketCount
$stdout << "Number of Packets = " <<  Count << endl
 
PacketStore = UnsniffDB['PacketIndex']
(0..Count-1).each{ |idx| printPacket(PacketStore.Item(idx)) }
 
UnsniffDB.Close()