8 def uri_and_times_from_status(server)
 
   9   file = open("http://#{server}/server-status").read
 
  10   doc = Hpricot.parse(file)
 
  11   tables = doc / "table"
 
  12   rows = (tables[1] / "tr")[1..-1]
 
  13   data = rows.collect { |r| (r / "td").collect(&:inner_html) }
 
  14   # filter where the PID is numeric, status is 'W' and host matches the server
 
  15   matching_data = data.select { |r| r[1].to_i.positive? && r[3].match(/W/) && r[11].match(server) }
 
  16   # return URI and number of seconds processing for each request
 
  17   matching_data.collect { |r| [r[12], r[5].to_i] }
 
  21   :map => "Map API calls",
 
  22   :upload => "Changeset diff uploads",
 
  23   :amf => "AMF API calls",
 
  24   :history => "Element history fetches",
 
  25   :full => "Full element fetches",
 
  26   :trkpts => "GPX trackpoints calls",
 
  27   :web => "Web site traffic",
 
  28   :other => "Other API calls"
 
  31 def categorise_uri(line)
 
  32   uri = line.split(" ")[1]
 
  35   when %r{api/0\.6/map} then :map
 
  36   when %r{api/0\.6/changeset/[0-9]*/upload/} then :upload
 
  37   when %r{api/0\.6/amf} then :amf
 
  38   when %r{api/0\.6/(node|way|relation)/[0-9]*/history} then :history
 
  39   when %r{api/0\.6/(node|way|relation)/[0-9]*/full} then :full
 
  40   when %r{api/0\.6/trackpoints} then :trkpts
 
  41   when %r{api/0\.6/} then :other
 
  46 server = $PROGRAM_NAME.match("api_waits_(.*)")[1]
 
  48 if ARGV[0] == "config"
 
  49   puts "graph_title Wait times for active requests"
 
  50   puts "graph_vlabel Average time of requests"
 
  51   puts "graph_category api"
 
  52   CALL_TYPES.each { |k, v| puts "#{k}.label #{v}" }
 
  55   counts = uri_and_times_from_status(server)
 
  56            .collect { |x, y| [categorise_uri(x), y] }
 
  57            .each_with_object({}) do |e, h|
 
  66   CALL_TYPES.keys.each do |type|
 
  67     count = counts[type] || [0]
 
  68     avg = count.inject(0) { |acc, elem| acc + elem } / (1.0 * count.length)
 
  69     puts "#{type}.value #{avg}"