fedux-org/proxy_pac_rb

# encoding: utf-8
# frozen_string_literal: true
module ProxyPacRb
  # Dump Proxy pac to file system
  class ProxyPacLinter
    private

    attr_reader :rules, :silent

    public

    def initialize(silent: false)
      @rules = []
      @rules << Rules::ContainerProxyPacFunction.new
      @rules << Rules::CanBeParsed.new

      @silent = silent
    end

    # Load proxy pac
    #
    # @param [#source] proxy_pac
    #   The proxy.pac
    def lint(proxy_pac)
      return unless proxy_pac.readable?

      rules.each { |r| r.lint(proxy_pac) }

      proxy_pac.valid = true
    rescue LinterError => err
      # $stderr.puts err.message unless silent

      proxy_pac.message = err.message
      proxy_pac.valid = false
    end
  end

  module Rules
    # A proxy pac needs to contain FindProxyForURL
    class ContainerProxyPacFunction
      def lint(proxy_pac)
        message = if proxy_pac.type? :string
                    %(proxy.pac is only given as string "#{proxy_pac.source}" and does not contain "FindProxyForURL".)
                  elsif proxy_pac.type? :url
                    %(proxy.pac-url "#{proxy_pac.source}" does not contain "FindProxyForURL".)
                  else
                    %(proxy.pac-file "#{proxy_pac.source}" does not contain "FindProxyForURL".)
                  end

        raise LinterError, message unless proxy_pac.content.to_s.include?('FindProxyForURL')

        self
      end
    end

    # A proxy pac needs be parsable
    class CanBeParsed
      private

      attr_reader :compiler

      public

      def initialize
        @compiler = JavascriptCompiler.new
      end

      def lint(proxy_pac)
        uri = Addressable::URI.parse('http://example.com')

        javascript = compiler.compile(content: proxy_pac.content, environment: Environment.new)

        # Some errors can only be found, when evaluating the source
        # e.g. reference undefined variables
        javascript.FindProxyForURL(uri.to_s, uri.host)

        self
      rescue => err
        message = if proxy_pac.type? :string
                    %(proxy.pac is only given as string "#{proxy_pac.source}" cannot be parsed:\n#{err.message}".)
                  elsif proxy_pac.type? :url
                    %(proxy.pac-url "#{proxy_pac.source}" cannot be parsed:\n#{err.message}".)
                  else
                    %(proxy.pac-file "#{proxy_pac.source}" cannot be parsed:\n#{err.message}".)
                  end

        raise LinterError, message
      end
    end
  end
end