puppet-retrospec 0.7.0 → 0.7.2

data/vendor/gems/puppet-3.7.3/lib/puppet/error.rb

@@ -0,0 +1,62 @@
+module Puppet
+  # The base class for all Puppet errors. It can wrap another exception
+  class Error < RuntimeError
+    attr_accessor :original
+    def initialize(message, original=nil)
+      super(message)
+      @original = original
+    end
+  end
+
+  module ExternalFileError
+    # This module implements logging with a filename and line number. Use this
+    # for errors that need to report a location in a non-ruby file that we
+    # parse.
+    attr_accessor :line, :file, :pos
+
+    # May be called with 3 arguments for message, file, line, and exception, or
+    # 4 args including the position on the line.
+    #
+    def initialize(message, file=nil, line=nil, pos=nil, original=nil)
+      if pos.kind_of? Exception
+        original = pos
+        pos = nil
+      end
+      super(message, original)
+      @file = file unless (file.is_a?(String) && file.empty?)
+      @line = line
+      @pos = pos
+    end
+    def to_s
+      msg = super
+      @file = nil if (@file.is_a?(String) && @file.empty?)
+      if @file and @line and @pos
+        "#{msg} at #{@file}:#{@line}:#{@pos}"
+      elsif @file and @line
+        "#{msg} at #{@file}:#{@line}"
+      elsif @line and @pos
+          "#{msg} at line #{@line}:#{@pos}"
+      elsif @line
+        "#{msg} at line #{@line}"
+      elsif @file
+        "#{msg} in #{@file}"
+      else
+        msg
+      end
+    end
+  end
+
+  class ParseError < Puppet::Error
+    include ExternalFileError
+  end
+
+  class ResourceError < Puppet::Error
+    include ExternalFileError
+  end
+
+  # An error class for when I don't know what happened.  Automatically
+  # prints a stack trace when in debug mode.
+  class DevError < Puppet::Error
+    include ExternalFileError
+  end
+end

data/vendor/gems/puppet-3.7.3/lib/puppet/external/dot.rb

@@ -0,0 +1,326 @@
+# rdot.rb
+#
+#
+# This is a modified version of dot.rb from Dave Thomas's rdoc project.  I [Horst Duchene]
+# renamed it to rdot.rb to avoid collision with an installed rdoc/dot.
+#
+# It also supports undirected edges.
+
+module DOT
+
+  # These glogal vars are used to make nice graph source.
+
+  $tab  = '    '
+  $tab2 = $tab * 2
+
+  # if we don't like 4 spaces, we can change it any time
+
+  def change_tab (t)
+    $tab  = t
+    $tab2 = t * 2
+  end
+
+  # options for node declaration
+
+  NODE_OPTS = [
+    # attributes due to
+    # http://www.graphviz.org/Documentation/dotguide.pdf
+    # March, 26, 2005
+    'bottomlabel', # auxiliary label for nodes of shape M*
+    'color',       # default: black; node shape color
+    'comment',     # any string (format-dependent)
+    'distortion',  # default: 0.0; node distortion for shape=polygon
+    'fillcolor',   # default: lightgrey/black; node fill color
+    'fixedsize',   # default: false; label text has no affect on node size
+    'fontcolor',   # default: black; type face color
+    'fontname',    # default: Times-Roman; font family
+    'fontsize',    # default: 14; point size of label
+    'group',       # name of node's group
+    'height',      # default: .5; height in inches
+    'label',       # default: node name; any string
+    'layer',       # default: overlay range; all, id or id:id
+    'orientation', # default: 0.0; node rotation angle
+    'peripheries', # shape-dependent number of node boundaries
+    'regular',     # default: false; force polygon to be regular
+    'shape',       # default: ellipse; node shape; see Section 2.1 and Appendix E
+    'shapefile',   # external EPSF or SVG custom shape file
+    'sides',       # default: 4; number of sides for shape=polygon
+    'skew' ,       # default: 0.0; skewing of node for shape=polygon
+    'style',       # graphics options, e.g. bold, dotted, filled; cf. Section 2.3
+    'toplabel',    # auxiliary label for nodes of shape M*
+    'URL',         # URL associated with node (format-dependent)
+    'width',       # default: .75; width in inches
+    'z',           # default: 0.0; z coordinate for VRML output
+
+    # maintained for backward compatibility or rdot internal
+    'bgcolor',
+    'rank'
+  ]
+
+  # options for edge declaration
+
+  EDGE_OPTS = [
+    'arrowhead',      # default: normal; style of arrowhead at head end
+    'arrowsize',      # default: 1.0; scaling factor for arrowheads
+    'arrowtail',      # default: normal; style of arrowhead at tail end
+    'color',          # default: black; edge stroke color
+    'comment',        # any string (format-dependent)
+    'constraint',     # default: true use edge to affect node ranking
+    'decorate',       # if set, draws a line connecting labels with their edges
+    'dir',            # default: forward; forward, back, both, or none
+    'fontcolor',      # default: black type face color
+    'fontname',       # default: Times-Roman; font family
+    'fontsize',       # default: 14; point size of label
+    'headlabel',      # label placed near head of edge
+    'headport',       # n,ne,e,se,s,sw,w,nw
+    'headURL',        # URL attached to head label if output format is ismap
+    'label',          # edge label
+    'labelangle',     # default: -25.0; angle in degrees which head or tail label is rotated off edge
+    'labeldistance',  # default: 1.0; scaling factor for distance of head or tail label from node
+    'labelfloat',     # default: false; lessen constraints on edge label placement
+    'labelfontcolor', # default: black; type face color for head and tail labels
+    'labelfontname',  # default: Times-Roman; font family for head and tail labels
+    'labelfontsize',  # default: 14 point size for head and tail labels
+    'layer',          # default: overlay range; all, id or id:id
+    'lhead',          # name of cluster to use as head of edge
+    'ltail',          # name of cluster to use as tail of edge
+    'minlen',         # default: 1 minimum rank distance between head and tail
+    'samehead',       # tag for head node; edge heads with the same tag are merged onto the same port
+    'sametail',       # tag for tail node; edge tails with the same tag are merged onto the same port
+    'style',          # graphics options, e.g. bold, dotted, filled; cf. Section 2.3
+    'taillabel',      # label placed near tail of edge
+    'tailport',       # n,ne,e,se,s,sw,w,nw
+    'tailURL',        # URL attached to tail label if output format is ismap
+    'weight',         # default: 1; integer cost of stretching an edge
+
+    # maintained for backward compatibility or rdot internal
+    'id'
+  ]
+
+  # options for graph declaration
+
+  GRAPH_OPTS = [
+    'bgcolor',
+    'center', 'clusterrank', 'color', 'concentrate',
+    'fontcolor', 'fontname', 'fontsize',
+    'label', 'layerseq',
+    'margin', 'mclimit',
+    'nodesep', 'nslimit',
+    'ordering', 'orientation',
+    'page',
+    'rank', 'rankdir', 'ranksep', 'ratio',
+    'size'
+  ]
+
+  # a root class for any element in dot notation
+
+  class DOTSimpleElement
+
+    attr_accessor :name
+
+    def initialize (params = {})
+      @label = params['name'] ? params['name'] : ''
+    end
+
+    def to_s
+      @name
+    end
+  end
+
+  # an element that has options ( node, edge, or graph )
+
+  class DOTElement < DOTSimpleElement
+
+    # attr_reader :parent
+    attr_accessor :name, :options
+
+    def initialize (params = {}, option_list = [])
+      super(params)
+      @name   = params['name']   ? params['name']   : nil
+      @parent = params['parent'] ? params['parent'] : nil
+      @options = {}
+      option_list.each{ |i|
+        @options[i] = params[i] if params[i]
+      }
+      @options['label'] ||= @name if @name != 'node'
+    end
+
+    def each_option
+      @options.each{ |i| yield i }
+    end
+
+    def each_option_pair
+      @options.each_pair{ |key, val| yield key, val }
+    end
+
+    #def parent=( thing )
+    #    @parent.delete( self ) if defined?( @parent ) and @parent
+    #    @parent = thing
+    #end
+
+  end
+
+
+  # This is used when we build nodes that have shape=record
+  # ports don't have options :)
+
+  class DOTPort < DOTSimpleElement
+
+    attr_accessor :label
+
+    def initialize (params = {})
+      super(params)
+      @name = params['label'] ? params['label'] : ''
+    end
+
+    def to_s
+      ( @name && @name != "" ? "<#{@name}>" : "" ) + "#{@label}"
+    end
+  end
+
+  # node element
+
+  class DOTNode < DOTElement
+
+    @ports
+
+    def initialize (params = {}, option_list = NODE_OPTS)
+      super(params, option_list)
+      @ports = params['ports'] ? params['ports'] : []
+    end
+
+    def each_port
+      @ports.each { |i| yield i }
+    end
+
+    def << (thing)
+      @ports << thing
+    end
+
+    def push (thing)
+      @ports.push(thing)
+    end
+
+    def pop
+      @ports.pop
+    end
+
+    def to_s (t = '')
+
+      # This code is totally incomprehensible; it needs to be replaced!
+
+      label = @options['shape'] != 'record' && @ports.length == 0 ?
+          @options['label'] ?
+            t + $tab + "label = \"#{@options['label']}\"\n" :
+            '' :
+          t + $tab + 'label = "' + " \\\n" +
+          t + $tab2 + "#{@options['label']}| \\\n" +
+          @ports.collect{ |i|
+            t + $tab2 + i.to_s
+          }.join( "| \\\n" ) + " \\\n" +
+          t + $tab + '"' + "\n"
+
+        t + "#{@name} [\n" +
+        @options.to_a.collect{ |i|
+          i[1] && i[0] != 'label' ?
+            t + $tab + "#{i[0]} = #{i[1]}" : nil
+        }.compact.join( ",\n" ) + ( label != '' ? ",\n" : "\n" ) +
+        label +
+        t + "]\n"
+    end
+
+  end
+
+  # A subgraph element is the same to graph, but has another header in dot
+  # notation.
+
+  class DOTSubgraph < DOTElement
+
+    @nodes
+    @dot_string
+
+    def initialize (params = {}, option_list = GRAPH_OPTS)
+      super(params, option_list)
+      @nodes      = params['nodes'] ? params['nodes'] : []
+      @dot_string = 'graph'
+    end
+
+    def each_node
+      @nodes.each{ |i| yield i }
+    end
+
+    def << (thing)
+      @nodes << thing
+    end
+
+    def push (thing)
+      @nodes.push( thing )
+    end
+
+    def pop
+      @nodes.pop
+    end
+
+    def to_s (t = '')
+      hdr = t + "#{@dot_string} #{@name} {\n"
+
+      options = @options.to_a.collect{ |name, val|
+        val && name != 'label' ?
+          t + $tab + "#{name} = #{val}" :
+          name ? t + $tab + "#{name} = \"#{val}\"" : nil
+      }.compact.join( "\n" ) + "\n"
+
+      nodes = @nodes.collect{ |i|
+        i.to_s( t + $tab )
+      }.join( "\n" ) + "\n"
+      hdr + options + nodes + t + "}\n"
+    end
+
+  end
+
+  # This is a graph.
+
+  class DOTDigraph < DOTSubgraph
+
+  def initialize (params = {}, option_list = GRAPH_OPTS)
+    super(params, option_list)
+    @dot_string = 'digraph'
+  end
+
+  end
+
+  # This is an edge.
+
+  class DOTEdge < DOTElement
+
+    attr_accessor :from, :to
+
+    def initialize (params = {}, option_list = EDGE_OPTS)
+      super(params, option_list)
+      @from = params['from'] ? params['from'] : nil
+      @to   = params['to'] ? params['to'] : nil
+    end
+
+    def edge_link
+      '--'
+    end
+
+    def to_s (t = '')
+      t + "#{@from} #{edge_link} #{to} [\n" +
+        @options.to_a.collect{ |i|
+          i[1] && i[0] != 'label' ?
+            t + $tab + "#{i[0]} = #{i[1]}" :
+            i[1] ? t + $tab + "#{i[0]} = \"#{i[1]}\"" : nil
+        }.compact.join( "\n" ) + "\n#{t}]\n"
+    end
+
+  end
+
+  class DOTDirectedEdge < DOTEdge
+
+    def edge_link
+      '->'
+    end
+
+  end
+end

data/vendor/gems/puppet-3.7.3/lib/puppet/external/nagios.rb

@@ -0,0 +1,46 @@
+#--------------------
+# A script to retrieve hosts from ldap and create an importable
+# cfservd file from them
+
+require 'digest/md5'
+#require 'ldap'
+require 'puppet/external/nagios/parser.rb'
+require 'puppet/external/nagios/base.rb'
+
+module Nagios
+  NAGIOSVERSION = '1.1'
+  # yay colors
+  PINK = ""
+  GREEN = ""
+  YELLOW = ""
+  SLATE = ""
+  ORANGE = ""
+  BLUE = ""
+  NOCOLOR = ""
+  RESET = ""
+
+  def self.version
+    NAGIOSVERSION
+  end
+
+  class Config
+    def Config.import(config)
+
+      text = String.new
+
+      File.open(config) { |file|
+        file.each { |line|
+          text += line
+        }
+      }
+      parser = Nagios::Parser.new
+      parser.parse(text)
+    end
+
+    def Config.each
+      Nagios::Object.objects.each { |object|
+        yield object
+      }
+    end
+  end
+end

data/vendor/gems/puppet-3.7.3/lib/puppet/external/nagios/base.rb

@@ -0,0 +1,472 @@
+# The base class for all of our Nagios object types.  Everything else
+# is mostly just data.
+class Nagios::Base
+
+  class UnknownNagiosType < RuntimeError # When an unknown type is asked for by name.
+  end
+
+  include Enumerable
+
+  class << self
+    attr_accessor :parameters, :derivatives, :ocs, :name, :att
+    attr_accessor :ldapbase
+
+    attr_writer :namevar
+
+    attr_reader :superior
+  end
+
+  # Attach one class to another.
+  def self.attach(hash)
+    @attach ||= {}
+    hash.each do |n, v| @attach[n] = v end
+  end
+
+  # Convert a parameter to camelcase
+  def self.camelcase(param)
+    param.gsub(/_./) do |match|
+      match.sub(/_/,'').capitalize
+    end
+  end
+
+  # Uncamelcase a parameter.
+  def self.decamelcase(param)
+    param.gsub(/[A-Z]/) do |match|
+      "_#{match.downcase}"
+    end
+  end
+
+  # Create a new instance of a given class.
+  def self.create(name, args = {})
+    name = name.intern if name.is_a? String
+
+    if @types.include?(name)
+      @types[name].new(args)
+    else
+      raise UnknownNagiosType, "Unknown type #{name}"
+    end
+  end
+
+  # Yield each type in turn.
+  def self.eachtype
+    @types.each do |name, type|
+      yield [name, type]
+    end
+  end
+
+  # Create a mapping.
+  def self.map(hash)
+    @map ||= {}
+    hash.each do |n, v| @map[n] = v end
+  end
+
+  # Return a mapping (or nil) for a param
+  def self.mapping(name)
+    name = name.intern if name.is_a? String
+    if defined?(@map)
+      @map[name]
+    else
+      nil
+    end
+  end
+
+  # Return the namevar for the canonical name.
+  def self.namevar
+    if defined?(@namevar)
+      return @namevar
+    else
+      if parameter?(:name)
+        return :name
+      elsif tmp = (self.name.to_s + "_name").intern and parameter?(tmp)
+        @namevar = tmp
+        return @namevar
+      else
+        raise "Type #{self.name} has no name var"
+      end
+    end
+  end
+
+  # Create a new type.
+  def self.newtype(name, &block)
+    name = name.intern if name.is_a? String
+
+    @types ||= {}
+
+    # Create the class, with the correct name.
+    t = Class.new(self)
+    t.name = name
+
+    # Everyone gets this.  There should probably be a better way, and I
+    # should probably hack the attribute system to look things up based on
+    # this "use" setting, but, eh.
+    t.parameters = [:use]
+
+    const_set(name.to_s.capitalize,t)
+
+    # Evaluate the passed block.  This should usually define all of the work.
+    t.class_eval(&block)
+
+    @types[name] = t
+  end
+
+  # Define both the normal case and camelcase method for a parameter
+  def self.paramattr(name)
+    camel = camelcase(name)
+    param = name
+
+    [name, camel].each do |method|
+      define_method(method) do
+        @parameters[param]
+      end
+
+      define_method(method.to_s + "=") do |value|
+        @parameters[param] = value
+      end
+    end
+
+  end
+
+  # Is the specified name a valid parameter?
+  def self.parameter?(name)
+    name = name.intern if name.is_a? String
+    @parameters.include?(name)
+  end
+
+  # Manually set the namevar
+  def self.setnamevar(name)
+    name = name.intern if name.is_a? String
+    @namevar = name
+  end
+
+  # Set the valid parameters for this class
+  def self.setparameters(*array)
+    @parameters += array
+  end
+
+  # Set the superior ldap object class.  Seems silly to include this
+  # in this class, but, eh.
+  def self.setsuperior(name)
+    @superior = name
+  end
+
+  # Parameters to suppress in output.
+  def self.suppress(name)
+    @suppress ||= []
+    @suppress << name
+  end
+
+  # Whether a given parameter is suppressed.
+  def self.suppress?(name)
+    defined?(@suppress) and @suppress.include?(name)
+  end
+
+  # Return our name as the string.
+  def self.to_s
+    self.name.to_s
+  end
+
+  # Return a type by name.
+  def self.type(name)
+    name = name.intern if name.is_a? String
+
+    @types[name]
+  end
+
+  # Convenience methods.
+  def [](param)
+    send(param)
+  end
+
+  # Convenience methods.
+  def []=(param,value)
+    send(param.to_s + "=", value)
+  end
+
+  # Iterate across all ofour set parameters.
+  def each
+    @parameters.each { |param,value|
+      yield(param,value)
+    }
+  end
+
+  # Initialize our object, optionally with a list of parameters.
+  def initialize(args = {})
+    @parameters = {}
+
+    args.each { |param,value|
+      self[param] = value
+    }
+    if @namevar == :_naginator_name
+      self['_naginator_name'] = self['name']
+    end
+  end
+
+  # Handle parameters like attributes.
+  def method_missing(mname, *args)
+    pname = mname.to_s
+    pname.sub!(/=/, '')
+
+    if self.class.parameter?(pname)
+      if pname =~ /A-Z/
+        pname = self.class.decamelcase(pname)
+      end
+      self.class.paramattr(pname)
+
+      # Now access the parameters directly, to make it at least less
+      # likely we'll end up in an infinite recursion.
+      if mname.to_s =~ /=$/
+        @parameters[pname] = args.first
+      else
+        return @parameters[mname]
+      end
+    else
+      super
+    end
+  end
+
+  # Retrieve our name, through a bit of redirection.
+  def name
+    send(self.class.namevar)
+  end
+
+  # This is probably a bad idea.
+  def name=(value)
+    unless self.class.namevar.to_s == "name"
+      send(self.class.namevar.to_s + "=", value)
+    end
+  end
+
+  def namevar
+    (self.type + "_name").intern
+  end
+
+  def parammap(param)
+    unless defined?(@map)
+      map = {
+        self.namevar => "cn"
+      }
+      map.update(self.class.map) if self.class.map
+    end
+    if map.include?(param)
+      return map[param]
+    else
+      return "nagios-" + param.id2name.gsub(/_/,'-')
+    end
+  end
+
+  def parent
+    unless defined?(self.class.attached)
+      puts "Duh, you called parent on an unattached class"
+      return
+    end
+
+    klass,param = self.class.attached
+    unless @parameters.include?(param)
+      puts "Huh, no attachment param"
+      return
+    end
+    klass[@parameters[param]]
+  end
+
+  # okay, this sucks
+  # how do i get my list of ocs?
+  def to_ldif
+    str = self.dn + "\n"
+    ocs = Array.new
+    if self.class.ocs
+      # i'm storing an array, so i have to flatten it and stuff
+      kocs = self.class.ocs
+      ocs.push(*kocs)
+    end
+    ocs.push "top"
+    oc = self.class.to_s
+    oc.sub!(/Nagios/,'nagios')
+    oc.sub!(/::/,'')
+    ocs.push oc
+    ocs.each { |oc|
+      str += "objectclass: #{oc}\n"
+    }
+    @parameters.each { |name,value|
+      next if self.class.suppress.include?(name)
+      ldapname = self.parammap(name)
+      str += ldapname + ": #{value}\n"
+    }
+    str += "\n"
+  end
+
+  def to_s
+    str = "define #{self.type} {\n"
+
+    @parameters.keys.sort.each { |param|
+      value = @parameters[param]
+      str += %{\t%-30s %s\n} % [ param,
+        if value.is_a? Array
+          value.join(",").sub(';', '\;')
+        else
+          value.to_s.sub(';', '\;')
+        end
+        ]
+    }
+
+    str += "}\n"
+
+    str
+  end
+
+  # The type of object we are.
+  def type
+    self.class.name
+  end
+
+  # object types
+  newtype :host do
+    setparameters :host_name, :alias, :display_name, :address, :parents,
+      :hostgroups, :check_command, :initial_state, :max_check_attempts,
+      :check_interval, :retry_interval, :active_checks_enabled,
+      :passive_checks_enabled, :check_period, :obsess_over_host,
+      :check_freshness, :freshness_threshold, :event_handler,
+      :event_handler_enabled, :low_flap_threshold, :high_flap_threshold,
+      :flap_detection_enabled, :flap_detection_options,
+      :failure_prediction_enabled, :process_perf_data,
+      :retain_status_information, :retain_nonstatus_information, :contacts,
+      :contact_groups, :notification_interval, :first_notification_delay,
+      :notification_period, :notification_options, :notifications_enabled,
+      :stalking_options, :notes, :notes_url, :action_url, :icon_image,
+      :icon_image_alt, :vrml_image, :statusmap_image, "2d_coords".intern,
+      "3d_coords".intern,
+      :register, :use,
+      :realm, :poller_tag, :business_impact
+
+    setsuperior "person"
+    map :address => "ipHostNumber"
+  end
+
+  newtype :hostgroup do
+    setparameters :hostgroup_name, :alias, :members, :hostgroup_members, :notes,
+      :notes_url, :action_url,
+      :register, :use,
+      :realm
+  end
+
+  newtype :service do
+    attach :host => :host_name
+    setparameters :host_name, :hostgroup_name, :service_description,
+      :display_name, :servicegroups, :is_volatile, :check_command,
+      :initial_state, :max_check_attempts, :check_interval, :retry_interval,
+      :normal_check_interval, :retry_check_interval, :active_checks_enabled,
+      :passive_checks_enabled, :parallelize_check, :check_period,
+      :obsess_over_service, :check_freshness, :freshness_threshold,
+      :event_handler, :event_handler_enabled, :low_flap_threshold,
+      :high_flap_threshold, :flap_detection_enabled,:flap_detection_options,
+      :process_perf_data, :failure_prediction_enabled, :retain_status_information,
+      :retain_nonstatus_information, :notification_interval,
+      :first_notification_delay, :notification_period, :notification_options,
+      :notifications_enabled, :contacts, :contact_groups, :stalking_options,
+      :notes, :notes_url, :action_url, :icon_image, :icon_image_alt,
+      :register, :use,
+      :_naginator_name,
+      :poller_tag, :business_impact
+
+    suppress :host_name
+
+    setnamevar :_naginator_name
+  end
+
+  newtype :servicegroup do
+    setparameters :servicegroup_name, :alias, :members, :servicegroup_members,
+      :notes, :notes_url, :action_url,
+      :register, :use
+  end
+
+  newtype :contact do
+    setparameters :contact_name, :alias, :contactgroups,
+      :host_notifications_enabled, :service_notifications_enabled,
+      :host_notification_period, :service_notification_period,
+      :host_notification_options, :service_notification_options,
+      :host_notification_commands, :service_notification_commands,
+      :email, :pager, :address1, :address2, :address3, :address4,
+      :address5, :address6, :can_submit_commands, :retain_status_information,
+      :retain_nonstatus_information,
+      :register, :use
+
+    setsuperior "person"
+  end
+
+  newtype :contactgroup do
+    setparameters :contactgroup_name, :alias, :members, :contactgroup_members,
+      :register, :use
+  end
+
+  # TODO - We should support generic time periods here eg "day 1 - 15"
+  newtype :timeperiod do
+    setparameters :timeperiod_name, :alias, :sunday, :monday, :tuesday,
+      :wednesday, :thursday, :friday, :saturday, :exclude,
+      :register, :use
+  end
+
+  newtype :command do
+    setparameters :command_name, :command_line,
+    :poller_tag
+  end
+
+  newtype :servicedependency do
+    setparameters :dependent_host_name, :dependent_hostgroup_name,
+      :dependent_service_description, :host_name, :hostgroup_name,
+      :service_description, :inherits_parent, :execution_failure_criteria,
+      :notification_failure_criteria, :dependency_period,
+      :register, :use,
+      :_naginator_name
+
+    setnamevar :_naginator_name
+  end
+
+  newtype :serviceescalation do
+    setparameters :host_name, :hostgroup_name, :servicegroup_name,
+      :service_description, :contacts, :contact_groups,
+      :first_notification, :last_notification, :notification_interval,
+      :escalation_period, :escalation_options,
+      :register, :use,
+      :_naginator_name
+
+    setnamevar :_naginator_name
+  end
+
+  newtype :hostdependency do
+    setparameters :dependent_host_name, :dependent_hostgroup_name, :host_name,
+      :hostgroup_name, :inherits_parent, :execution_failure_criteria,
+      :notification_failure_criteria, :dependency_period,
+      :register, :use,
+      :_naginator_name
+
+    setnamevar :_naginator_name
+  end
+
+  newtype :hostescalation do
+    setparameters :host_name, :hostgroup_name, :contacts, :contact_groups,
+      :first_notification, :last_notification, :notification_interval,
+      :escalation_period, :escalation_options,
+      :register, :use,
+      :_naginator_name
+
+    setnamevar :_naginator_name
+  end
+
+  newtype :hostextinfo do
+    setparameters :host_name, :notes, :notes_url, :icon_image, :icon_image_alt,
+      :vrml_image, :statusmap_image, "2d_coords".intern, "3d_coords".intern,
+      :register, :use
+
+    setnamevar :host_name
+  end
+
+  newtype :serviceextinfo do
+
+    setparameters :host_name, :service_description, :notes, :notes_url,
+      :action_url, :icon_image, :icon_image_alt,
+      :register, :use,
+      :_naginator_name
+
+    setnamevar :_naginator_name
+  end
+
+end