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