examples/linux-listener-stats.rb

   1 #!/usr/bin/ruby
   2 # -*- encoding: binary -*-
   3 $stdout.sync = $stderr.sync = true
   4 # this is used to show or watch the number of active and queued
   5 # connections on any listener socket from the command line
   6
   7 require 'raindrops'
   8 require 'optparse'
   9 require 'ipaddr'
  10 require 'time'
  11 usage = "Usage: #$0 [-d DELAY] [-t QUEUED_THRESHOLD] ADDR..."
  12 ARGV.size > 0 or abort usage
  13 delay = false
  14 queued_thresh = -1
  15
  16 # "normal" exits when driven on the command-line
  17 trap(:INT) { exit 130 }
  18 trap(:PIPE) { exit 0 }
  19
  20 opts = OptionParser.new('', 24, '  ') do |opts|
  21   opts.banner = usage
  22   opts.on('-d', '--delay=DELAY', Float) { |n| delay = n }
  23   opts.on('-t', '--queued-threshold=INT', Integer) { |n| queued_thresh = n }
  24   opts.parse! ARGV
  25 end
  26
  27 ARGV.each do |addr|
  28   addr =~ %r{\A(127\..+):(\d+)\z} or next
  29   host, port = $1, $2
  30   hex_port = '%X' % port.to_i
  31   ip_addr = IPAddr.new(host)
  32   hex_host = ip_addr.hton.each_byte.inject('') { |s,o| s << '%02X' % o }
  33   socks = File.readlines('/proc/net/tcp')
  34   hex_addr = "#{hex_host}:#{hex_port}"
  35   if socks.grep(/^\s+\d+:\s+#{hex_addr}\s+/).empty? &&
  36      ! socks.grep(/^\s+\d+:\s+00000000:#{hex_port}\s+/).empty?
  37     warn "W: #{host}:#{port} (#{hex_addr}) not found in /proc/net/tcp"
  38     warn "W: Did you mean 0.0.0.0:#{port}?"
  39   end
  40 end
  41
  42 len = "address".size
  43 now = nil
  44 tcp, unix = [], []
  45 ARGV.each do |addr|
  46   bs = addr.respond_to?(:bytesize) ? addr.bytesize : addr.size
  47   len = bs if bs > len
  48   (addr =~ %r{\A/} ? unix : tcp) << addr
  49 end
  50 combined = {}
  51 tcp = nil if tcp.empty?
  52 unix = nil if unix.empty?
  53
  54 len = 35 if len > 35
  55 fmt = "%20s % #{len}s % 10u % 10u\n"
  56 $stderr.printf fmt.tr('u','s'), *%w(timestamp address active queued)
  57
  58 begin
  59   if now
  60     combined.clear
  61     now = nil
  62   end
  63   tcp and combined.merge! Raindrops::Linux.tcp_listener_stats(tcp)
  64   unix and combined.merge! Raindrops::Linux.unix_listener_stats(unix)
  65   combined.each do |addr,stats|
  66     next if stats.queued < queued_thresh
  67     printf fmt, now ||= Time.now.utc.iso8601, addr, stats.active, stats.queued
  68   end
  69 end while delay && sleep(delay)