#!/bin/sh
#
# log2dat: change log output from "getwww" to meaningful value
# lines with "#" in the first position are ignored
#
#
awk 'BEGIN { sum=0;sxs=0;proc=0;err=0;seconds=-1;av_tim=0;avtm=1; }

     /^# /  { next;}

     /URL:/ { if ( sum>0 ) 
	      { del = sqrt( proc*sxs - sum*sum ) / sum *100; 
                printf "%d proc  %d req (+-%1.2f%%) %1.2f rps %d av_tim  %d err\n",
			proc, sum, del, sum/seconds,av_tim,err; }
	      sum=0;sxs=0;proc=0;err=0;seconds=-1;av_tim=0;
	      avtm=$5+0.0;
	      next;
	    }
     /Proc/ { proc++; sum+=$3;sxs+=$3*$3;err+=$5; if (seconds<1) {seconds=$7}; 
	      av_tim+=($12/avtm); next };

     { printf "ERROR: unparsable line: %s\n", $0 }

     END      { del = sqrt( proc*sxs - sum*sum ) / sum *100; 
                printf "%d %1.2f rps (+/- %1.2f) %d err\n",
			proc, sum/seconds, del, err; }' $@
     
     
