rb-wartslib 0.9.10 → 0.9.11

data/bin/stat-traces

@@ -0,0 +1,118 @@
+#!/usr/bin/env ruby
+
+#############################################################################
+## Prints some basic statistics about warts files specified on the command line.
+##
+## --------------------------------------------------------------------------
+## Copyright (C) 2007 The Regents of the University of California.
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+## 
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+## 
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+## 
+## $Id: stat-traces,v 1.1 2007/11/30 01:14:48 youngh Exp $
+#############################################################################
+
+require 'rubygems'
+require 'ostruct'
+require 'wartslib'
+
+class Stats
+  attr_accessor :traces, :responding, :complete, :stop_reason
+  attr_accessor :hop_histogram, :zero_dead
+
+  def initialize
+    @traces = 0
+    @responding = 0
+    @complete = 0
+    @stop_reason = Hash.new 0
+
+    # from scamper_trace.h:SCAMPER_TRACE_STOP_*
+    @stop_text = {
+      0 => "none (null reason)",
+      1 => "completed (got an ICMP port unreach)",
+      2 => "unreach (got an other ICMP unreach code)",
+      3 => "icmp (got an ICMP msg, not unreach)",
+      4 => "loop (loop detected)",
+      5 => "dead (unresponsive target)",
+      6 => "error (sendto error)"
+    }
+    @stop_text.default = "<<UNKNOWN STOP CODE>>"
+
+    @hop_histogram = Hash.new 0
+    @zero_dead = 0
+  end
+
+  def print
+    puts "%8d traces" % [@traces]
+    puts "%8d responding (%.1f%%)" % [@responding, pct(@responding, @traces)]
+    puts "%8d complete (%.1f%%)" % [@complete, pct(@complete, @traces)]
+    puts "%8d dead traces with zero hop count (%.1f%%)" %
+      [ @zero_dead, pct(@zero_dead, @traces) ]
+    puts
+    stop_reason.to_a.sort.each do |k, v|
+      puts "%8d stop reason %d, %s" % [v, k, @stop_text[k]]
+    end
+    puts
+    @hop_histogram.to_a.sort.each do |k, v|
+      puts "%8d %d hops" % [v, k]
+    end
+  end
+
+  def add(other)
+    @traces += other.traces
+    @responding += other.responding
+    @complete += other.complete
+    other.stop_reason.each { |k,v| @stop_reason[k] += v }
+    other.hop_histogram.each { |k,v| @hop_histogram[k] += v }
+    @zero_dead += other.zero_dead
+  end
+
+  def pct(x, y)
+    return 100.0 if y == 0
+    x.quo(y) * 100.0
+  end
+end
+
+#===========================================================================
+
+total = Stats.new
+
+ARGV.each do |path|
+  stats = Stats.new
+  Warts::File.open(path) do |file|
+    file.add_filters Warts::File::TRACE
+    file.read do |trace|
+      stats.traces += 1
+      stats.responding += 1 if trace.dest_responded?
+      stats.complete += 1 if trace.complete?
+      stats.stop_reason[trace.stop_reason] += 1
+      stats.hop_histogram[trace.path_length] += 1
+      stats.zero_dead += 1 if trace.stop_reason == 5 && trace.hop_count == 0
+    end
+  end
+
+  puts "\n"
+  puts("-" * 70)
+  puts path
+  stats.print
+
+  total.add stats
+end
+
+if ARGV.length > 1
+  puts "\n"
+  puts("=" * 70)
+  puts "total"
+  total.print
+end

data/bin/trace-gap-size-hist

@@ -0,0 +1,159 @@
+#!/usr/bin/env ruby
+
+#############################################################################
+## Prints out a histogram of the size of gaps (that is, consecutive
+## non-responding hops) in traces.
+##
+## --------------------------------------------------------------------------
+## Copyright (C) 2007 The Regents of the University of California.
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+## 
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+## 
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+## 
+## $Id: trace-gap-size-hist,v 1.1 2007/11/30 01:14:48 youngh Exp $
+#############################################################################
+
+require 'rubygems'
+require 'ostruct'
+require 'optparse'
+
+require 'wartslib'
+
+$options = OpenStruct.new
+$options.gap_limit = 5
+
+opts = OptionParser.new
+opts.banner = "Usage: trace-gap-size-hist [options] <warts-file-1> ..."
+
+opts.on("-g", "--gap-limit", "=NUM",
+	"gap limit (#{$options.gap_limit})") do |v|
+  $options.gap_limit = v.to_i
+end
+
+opts.on("-v", "--[no-]verbose", TrueClass,  "show detailed progress") do |v|
+  $options.verbose = v
+end
+
+begin
+  ARGV.replace opts.parse(*ARGV)
+rescue OptionParser::ParseError
+  $stderr.puts "ERROR: " + $!
+  $stderr.puts opts
+  exit 1
+end
+
+
+#===========================================================================
+
+# XXX only uses the first response at each hop
+def extract_ippath(trace)
+  retval = []
+  retval << trace.src
+
+  dest_response = trace.find_dest_response
+
+  trace.each_hop do |hop, exists|
+    if exists
+      break if dest_response && hop == dest_response[0]
+      retval << trace.hop_addr(hop, 0)
+    else
+      retval << "q"
+    end
+  end
+
+  retval << trace.dst if dest_response
+  retval
+end
+
+
+def extract_gaps(ippath)
+  retval = []
+  gap_size = 0
+  ippath.each do |addr|
+    if addr == "q"
+      gap_size += 1
+    else
+      unless gap_size == 0
+        retval << gap_size
+        gap_size = 0
+      end
+    end
+  end
+  retval << gap_size unless gap_size == 0
+  retval
+end
+
+
+#############################################################################
+# Main
+#############################################################################
+
+num_traces = 0
+gap_count_histogram = Hash.new 0  # count of gaps per trace => count
+mid_gap_count_histogram = Hash.new 0  # count of gaps per trace => count
+gap_size_histogram = Hash.new 0   # size => count
+
+ARGV.each do |path|
+  file = Warts::File.open path
+  unless file
+    $stderr.puts "ERROR: couldn't open '#{path}'; skipping"
+    next
+  end
+
+  file.add_filters Warts::File::TRACE
+  file.read do |trace|
+    num_traces += 1
+    if $options.verbose
+      puts "-" * 78
+      puts trace.dump
+    end
+
+    ippath = extract_ippath trace
+    puts "\n" + ippath.join(" ") + "\n" if $options.verbose
+
+    gaps = extract_gaps ippath
+    if $options.verbose
+      puts "\n" + (gaps.length == 0 ? "none" : gaps.join(" ")) + "\n"
+    end
+
+    gap_count_histogram[gaps.length] += 1
+
+    mid_gap_count = gaps.length
+    mid_gap_count -= 1 if mid_gap_count > 0 && gaps[-1] >= $options.gap_limit
+    mid_gap_count_histogram[mid_gap_count] += 1
+
+    gaps.each do |size|
+      gap_size_histogram[size] += 1
+    end
+  end
+end
+
+#---------------------------------------------------------------------------
+
+puts "#{num_traces} traces"
+
+puts "histogram of number of gaps per trace:"
+gap_count_histogram.to_a.sort.each do |gap_count, trace_count|
+  puts "  #{gap_count} gaps\t#{trace_count} traces"
+end
+
+puts "histogram of number of gaps per trace, excluding final limit-exceeding gap:"
+mid_gap_count_histogram.to_a.sort.each do |gap_count, trace_count|
+  puts "  #{gap_count} gaps\t#{trace_count} traces"
+end
+
+puts "histogram of gap sizes:"
+gap_size_histogram.to_a.sort.each do |gap_size, trace_count|
+  puts "  #{gap_size} hops\t#{trace_count} gaps"
+end

data/bin/trace-timestamps-hist

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+
+############################################################################
+## Prints a histogram of the delta (in seconds) between successive traces.
+##
+## --------------------------------------------------------------------------
+## Copyright (C) 2007 The Regents of the University of California.
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+## 
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+## 
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+## 
+## $Id: trace-timestamps-hist,v 1.1 2007/11/30 01:14:48 youngh Exp $
+############################################################################
+
+require "rubygems"
+require 'wartslib'
+
+histogram = Hash.new 0
+
+ARGV.each do |path|
+  Warts::File.open(path) do |file|
+    file.clear_all_filters
+    file.add_filters Warts::File::TRACE
+
+    previous_value = nil
+    while (trace = file.read)
+      value = trace.start
+      if previous_value
+        delta = value - previous_value
+        histogram[delta / 10] += 1
+      end
+      previous_value = value
+    end
+  end
+end
+
+histogram.keys.sort.each do |bin|
+  x = bin * 10
+  printf "%d to %d: %d\n", x, x + 9, histogram[bin]
+end

data/bin/w2tr

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+
+#############################################################################
+## Prints out warts files in the textual format of the traceroute command.
+##
+## --------------------------------------------------------------------------
+## Copyright (C) 2007 The Regents of the University of California.
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+## 
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+## 
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+## 
+## $Id: w2tr,v 1.1 2007/11/30 00:02:53 youngh Exp $
+#############################################################################
+
+require 'rubygems'
+require 'wartslib'
+
+out = Warts::File::open $stdout, "w", Warts::File::TRACEROUTE
+
+ARGV.each do |path|
+  Warts::File::open(path) do |file|
+    file.add_filters Warts::File::TRACE
+    file.read do |trace|
+      puts
+      out.write trace
+    end
+  end
+end

data/bin/wcat

@@ -0,0 +1,73 @@
+#!/usr/bin/env ruby
+
+#############################################################################
+## Concatenates input warts files.
+##
+## --------------------------------------------------------------------------
+## Copyright (C) 2007 The Regents of the University of California.
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+## 
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+## 
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+## 
+## $Id: wcat,v 1.2 2007/11/30 00:00:05 youngh Exp $
+#############################################################################
+
+require 'rubygems'
+require 'ostruct'
+require 'optparse'
+require 'wartslib'
+
+$options = OpenStruct.new
+opts = OptionParser.new
+opts.banner = "Usage: wcat [options] <warts-file-1> <warts-file-2> ..."
+
+opts.on("-o", "--output", "=FILE", "output warts file") do |v|
+  $options.output_file = v
+end
+
+opts.on("-v", "--[no-]verbose", TrueClass,  "show detailed progress") do |v|
+  $options.verbose = v
+end
+
+begin
+  ARGV.replace opts.parse(*ARGV)
+rescue OptionParser::ParseError
+  $stderr.puts "ERROR: " + $!
+  $stderr.puts opts
+  exit 1
+end
+
+unless $options.output_file
+  $stderr.puts "ERROR: missing -o <output_file> option"
+  exit 1
+end
+
+#===========================================================================
+
+out = Warts::File::open $options.output_file, "w", Warts::File::WARTS
+unless out
+  $stderr.puts "ERROR: couldn't open output file '#{$options.output_file}'"
+  exit 1
+end
+
+ARGV.each do |path|
+  Warts::File::open(path) do |file|
+    file.add_all_filters
+    file.read do |element|
+      out.write element
+    end
+  end
+end
+
+out.close

data/bin/wdump

@@ -8,7 +8,24 @@
 ## replaces sc_analysis_dump, as a more complete demonstration of using
 ## rb-wartslib.
 ##
-## $Id: wdump,v 1.9 2007/11/29 20:35:10 youngh Exp $
+## --------------------------------------------------------------------------
+## Copyright (C) 2007 The Regents of the University of California.
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+## 
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+## 
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+## 
+## $Id: wdump,v 1.10 2007/11/29 23:57:24 youngh Exp $
 #############################################################################
 
 require 'rubygems'