124: def process(request,response)
125: begin
126: stats = Hash.new(0)
127: lengths = {}
128: ObjectSpace.each_object do |o|
129: begin
130: if o.respond_to? :length
131: len = o.length
132: lengths[o.class] ||= Mongrel::Stats.new(o.class)
133: lengths[o.class].sample(len)
134: end
135: rescue Object
136: end
137:
138: stats[o.class] += 1
139: end
140:
141: stats.sort {|(k1,v1),(k2,v2)| v2 <=> v1}.each do |k,v|
142: if $last_stat
143: delta = v - $last_stat[k]
144: if v > 10 and delta != 0
145: if lengths[k]
146: $objects_out.printf "%d,%s,%d,%d,%d,%f,%f,%f\n", $run_count, k, $last_stat[k], v, delta,lengths[k].mean,lengths[k].sd,lengths[k].max
147: else
148: $objects_out.printf "%d,%s,%d,%d,%d,,,\n", $run_count, k, $last_stat[k], v, delta
149: end
150: end
151: end
152: end
153:
154: $run_count += 1
155: $last_stat = stats
156: rescue Object
157: STDERR.puts "object.log ERROR: #$!"
158: end
159: end