117680Spst$6 !~ /^ack/ && $5 !~ /[SFR]/ 	{
217680Spst	# given a tcpdump ftp trace, output one line for each send
317680Spst	# in the form
417680Spst	#   <send time> <seq no>
517680Spst	# where <send time> is the time packet was sent (in seconds with
617680Spst	# zero at time of first packet) and <seq no> is the tcp sequence
717680Spst	# number of the packet divided by 1024 (i.e., Kbytes sent).
817680Spst	#
917680Spst	# convert time to seconds
1017680Spst	n = split ($1,t,":")
1117680Spst	tim = t[1]*3600 + t[2]*60 + t[3]
1217680Spst	if (! tzero) {
1317680Spst		tzero = tim
1417680Spst		OFS = "\t"
1517680Spst	}
1617680Spst	# get packet sequence number
1717680Spst	i = index($6,":")
1817680Spst	printf "%7.2f\t%g\n", tim-tzero, substr($6,1,i-1)/1024
1917680Spst	}
20