puppet-retrospec 1.5.0 → 1.6.0

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

@@ -1,100 +0,0 @@
-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
-
-  # Contains an issue code and can be annotated with an environment and a node
-  class ParseErrorWithIssue < Puppet::ParseError
-    attr_reader :issue_code, :basic_message
-    attr_accessor :environment, :node
-
-    # @param message [String] The error message
-    # @param file [String] The path to the file where the error was found
-    # @param line [Integer] The line in the file
-    # @param pos [Integer] The position on the line
-    # @param original [Exception] Original exception
-    # @param issue_code [Symbol] The issue code
-    #
-    def initialize(message, file=nil, line=nil, pos=nil, original=nil, issue_code= nil)
-      super(message, file, line, pos, original)
-      @issue_code = issue_code
-      @basic_message = message
-    end
-
-    def to_s
-      msg = super
-      msg = "Could not parse for environment #{environment}: #{msg}" if environment
-      msg = "#{msg} on node #{node}" if node
-      msg
-    end
-  end
-
-  # An error that already contains location information in the message text
-  class PreformattedError < Puppet::ParseErrorWithIssue
-  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
-
-  class MissingCommand < Puppet::Error
-  end
-
-  # Raised when we failed to aquire a lock
-  class LockError < Puppet::Error
-  end
-
-end

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

@@ -1,326 +0,0 @@
-# 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-4.5.2/lib/puppet/face/ca.rb

@@ -1,254 +0,0 @@
-require 'puppet/face'
-
-Puppet::Face.define(:ca, '0.1.0') do
-  copyright "Puppet Labs", 2011
-  license   "Apache 2 license; see COPYING"
-
-  summary "Local Puppet Certificate Authority management."
-
-  description <<-TEXT
-    This provides local management of the Puppet Certificate Authority.
-
-    You can use this subcommand to sign outstanding certificate requests, list
-    and manage local certificates, and inspect the state of the CA.
-  TEXT
-
-  action :list do
-    summary "List certificates and/or certificate requests."
-
-    description <<-TEXT
-      This will list the current certificates and certificate signing requests
-      in the Puppet CA.  You will also get the fingerprint, and any certificate
-      verification failure reported.
-    TEXT
-
-    option "--[no-]all" do
-      summary "Include all certificates and requests."
-    end
-
-    option "--[no-]pending" do
-      summary "Include pending certificate signing requests."
-    end
-
-    option "--[no-]signed" do
-      summary "Include signed certificates."
-    end
-
-    option "--digest ALGORITHM" do
-      summary "The hash algorithm to use when displaying the fingerprint"
-    end
-
-    option "--subject PATTERN" do
-      summary "Only list if the subject matches PATTERN."
-
-      description <<-TEXT
-        Only include certificates or requests where subject matches PATTERN.
-
-        PATTERN is interpreted as a regular expression, allowing complex
-        filtering of the content.
-      TEXT
-    end
-
-    when_invoked do |options|
-      raise "Not a CA" unless Puppet::SSL::CertificateAuthority.ca?
-      unless ca = Puppet::SSL::CertificateAuthority.instance
-        raise "Unable to fetch the CA"
-      end
-      Puppet::SSL::Host.ca_location = :only
-
-      pattern = options[:subject].nil? ? nil :
-        Regexp.new(options[:subject], Regexp::IGNORECASE)
-
-      pending = options[:pending].nil? ? options[:all] : options[:pending]
-      signed  = options[:signed].nil?  ? options[:all] : options[:signed]
-
-      # By default we list pending, so if nothing at all was requested...
-      unless pending or signed then pending = true end
-
-      hosts = []
-
-      pending and hosts += ca.waiting?
-      signed  and hosts += ca.list
-
-      pattern and hosts = hosts.select {|hostname| pattern.match hostname }
-
-      hosts.sort.map {|host| Puppet::SSL::Host.new(host) }
-    end
-
-    when_rendering :console do |hosts, options|
-      unless ca = Puppet::SSL::CertificateAuthority.instance
-        raise "Unable to fetch the CA"
-      end
-
-      length = hosts.map{|x| x.name.length }.max.to_i + 1
-
-      hosts.map do |host|
-        name = host.name.ljust(length)
-        if host.certificate_request then
-          "  #{name} #{host.certificate_request.digest(options[:digest])}"
-        else
-          begin
-            ca.verify(host.name)
-            "+ #{name} #{host.certificate.digest(options[:digest])}"
-          rescue Puppet::SSL::CertificateAuthority::CertificateVerificationError => e
-            "- #{name} #{host.certificate.digest(options[:digest])} (#{e.to_s})"
-          end
-        end
-      end.join("\n")
-    end
-  end
-
-  action :destroy do
-    summary "Destroy named certificate or pending certificate request."
-    when_invoked do |host, options|
-      raise "Not a CA" unless Puppet::SSL::CertificateAuthority.ca?
-      unless ca = Puppet::SSL::CertificateAuthority.instance
-        raise "Unable to fetch the CA"
-      end
-      Puppet::SSL::Host.ca_location = :local
-
-      ca.destroy host
-    end
-  end
-
-  action :revoke do
-    summary "Add certificate to certificate revocation list."
-    when_invoked do |host, options|
-      raise "Not a CA" unless Puppet::SSL::CertificateAuthority.ca?
-      unless ca = Puppet::SSL::CertificateAuthority.instance
-        raise "Unable to fetch the CA"
-      end
-      Puppet::SSL::Host.ca_location = :only
-
-      begin
-        ca.revoke host
-      rescue ArgumentError => e
-        # This is a bit naff, but it makes the behaviour consistent with the
-        # destroy action.  The underlying tools could be nicer for that sort
-        # of thing; they have fairly inconsistent reporting of failures.
-        raise unless e.to_s =~ /Could not find a serial number for /
-        "Nothing was revoked"
-      end
-    end
-  end
-
-  action :generate do
-    summary "Generate a certificate for a named client."
-    option "--dns-alt-names NAMES" do
-      summary "Additional DNS names to add to the certificate request"
-      description Puppet.settings.setting(:dns_alt_names).desc
-    end
-
-    when_invoked do |host, options|
-      raise "Not a CA" unless Puppet::SSL::CertificateAuthority.ca?
-      unless ca = Puppet::SSL::CertificateAuthority.instance
-        raise "Unable to fetch the CA"
-      end
-      Puppet::SSL::Host.ca_location = :local
-
-      begin
-        ca.generate(host, :dns_alt_names => options[:dns_alt_names])
-      rescue RuntimeError => e
-        if e.to_s =~ /already has a requested certificate/
-          "#{host} already has a certificate request; use sign instead"
-        else
-          raise
-        end
-      rescue ArgumentError => e
-        if e.to_s =~ /A Certificate already exists for /
-          "#{host} already has a certificate"
-        else
-          raise
-        end
-      end
-    end
-  end
-
-  action :sign do
-    summary "Sign an outstanding certificate request."
-    option("--[no-]allow-dns-alt-names") do
-      summary "Whether or not to accept DNS alt names in the certificate request"
-    end
-
-    when_invoked do |host, options|
-      raise "Not a CA" unless Puppet::SSL::CertificateAuthority.ca?
-      unless ca = Puppet::SSL::CertificateAuthority.instance
-        raise "Unable to fetch the CA"
-      end
-      Puppet::SSL::Host.ca_location = :only
-
-      begin
-        ca.sign(host, options[:allow_dns_alt_names])
-      rescue ArgumentError => e
-        if e.to_s =~ /Could not find certificate request/
-          e.to_s
-        else
-          raise
-        end
-      end
-    end
-  end
-
-  action :print do
-    summary "Print the full-text version of a host's certificate."
-    when_invoked do |host, options|
-      raise "Not a CA" unless Puppet::SSL::CertificateAuthority.ca?
-      unless ca = Puppet::SSL::CertificateAuthority.instance
-        raise "Unable to fetch the CA"
-      end
-      Puppet::SSL::Host.ca_location = :only
-
-      ca.print host
-    end
-  end
-
-  action :fingerprint do
-    summary "Print the DIGEST (defaults to the signing algorithm) fingerprint of a host's certificate."
-    option "--digest ALGORITHM" do
-      summary "The hash algorithm to use when displaying the fingerprint"
-    end
-
-    when_invoked do |host, options|
-      raise "Not a CA" unless Puppet::SSL::CertificateAuthority.ca?
-      unless Puppet::SSL::CertificateAuthority.instance
-        raise "Unable to fetch the CA"
-      end
-      Puppet::SSL::Host.ca_location = :only
-
-      if cert = (Puppet::SSL::Certificate.indirection.find(host) || Puppet::SSL::CertificateRequest.indirection.find(host))
-        cert.digest(options[:digest]).to_s
-      else
-        nil
-      end
-    end
-  end
-
-  action :verify do
-    summary "Verify the named certificate against the local CA certificate."
-    when_invoked do |host, options|
-      raise "Not a CA" unless Puppet::SSL::CertificateAuthority.ca?
-      unless ca = Puppet::SSL::CertificateAuthority.instance
-        raise "Unable to fetch the CA"
-      end
-      Puppet::SSL::Host.ca_location = :only
-
-      begin
-        ca.verify host
-        { :host => host, :valid => true }
-      rescue ArgumentError => e
-        raise unless e.to_s =~ /Could not find a certificate for/
-        { :host => host, :valid => false, :error => e.to_s }
-      rescue Puppet::SSL::CertificateAuthority::CertificateVerificationError => e
-        { :host => host, :valid => false, :error => e.to_s }
-      end
-    end
-
-    when_rendering :console do |value|
-      if value[:valid]
-        nil
-      else
-        "Could not verify #{value[:host]}: #{value[:error]}"
-      end
-    end
-  end
-end