specinfra 2.0.0.beta6 → 2.0.0.beta7

data/lib/specinfra/command/solaris/base/user.rb

@@ -0,0 +1,13 @@
+class Specinfra::Command::Solaris::Base::User < Specinfra::Command::Base::User
+  def check_is_belonging_to_group(user, group)
+    "id -Gn #{escape(user)} | grep -- #{escape(group)}"
+  end
+
+  def check_has_home_directory(user, path_to_home)
+    "getent passwd #{escape(user)} | cut -f 6 -d ':' | grep -w -- #{escape(path_to_home)}"
+  end
+
+  def check_has_login_shell(user, path_to_shell)
+    "getent passwd #{escape(user)} | cut -f 7 -d ':' | grep -w -- #{escape(path_to_shell)}"
+  end
+end

data/lib/specinfra/command/solaris/base/zfs.rb

@@ -0,0 +1,11 @@
+class Specinfra::Command::Solaris::Base::Zfs < Specinfra::Command::Base::Zfs
+  include Specinfra::Command::Module::Zfs
+end
+
+
+
+
+
+
+
+

data/lib/specinfra/command/solaris/v10.rb

@@ -0,0 +1 @@
+module Specinfra::Command::Solaris::V10; end

data/lib/specinfra/command/solaris/v10/file.rb

@@ -0,0 +1,40 @@
+class Specinfra::Command::Solaris::V10::File < Specinfra::Command::Solaris::Base::File
+  # reference: http://perldoc.perl.org/functions/stat.html
+  def check_mode(file, mode)
+    regexp = "^#{mode}$"
+    "perl -e 'printf \"%o\", (stat shift)[2]&07777' #{escape(file)}  | grep -- #{escape(regexp)}"
+  end
+
+  # reference: http://perldoc.perl.org/functions/stat.html
+  #            http://www.tutorialspoint.com/perl/perl_getpwuid.htm
+  def check_is_owned_by(file, owner)
+    regexp = "^#{owner}$"
+    "perl -e 'printf \"%s\", getpwuid((stat(\"#{escape(file)}\"))[4])' | grep -- #{escape(regexp)}"
+  end
+
+  # reference: http://perldoc.perl.org/functions/stat.html
+  #            http://www.tutorialspoint.com/perl/perl_getgrgid.htm
+  def check_is_grouped(file, group)
+    regexp = "^#{group}$"
+    "perl -e 'printf \"%s\", getgrgid((stat(\"#{escape(file)}\"))[5])'  | grep -- #{escape(regexp)}"
+  end
+
+  # reference: http://www.tutorialspoint.com/perl/perl_readlink.htm
+  def check_is_linked_to(link, target)
+    regexp = "^#{target}$"
+    "perl -e 'printf \"%s\", readlink(\"#{escape(link)}\")' | grep -- #{escape(regexp)}"
+  end
+
+  def check_contain(file, expected_pattern)
+    "grep -- #{escape(expected_pattern)} #{escape(file)}"
+  end
+
+  def check_has_md5checksum(file, expected)
+    "digest -a md5 -v #{escape(file)} | grep -iw -- #{escape(expected)}"
+  end
+
+  # reference: http://perldoc.perl.org/functions/stat.html
+  def get_mode(file)
+    "perl -e 'printf \"%o\", (stat shift)[2]&07777' #{escape(file)}"
+  end
+end

data/lib/specinfra/command/solaris/v10/group.rb

@@ -0,0 +1,5 @@
+class Specinfra::Command::Solaris::V10::Group < Specinfra::Command::Solaris::Base::Group
+  def check_exists(group)
+    "getent group | grep -w -- #{escape(group)}"
+  end
+end

data/lib/specinfra/command/solaris/v10/host.rb

@@ -0,0 +1,11 @@
+class Specinfra::Command::Solaris::V10::Host < Specinfra::Command::Solaris::Base::Host
+  def check_is_reachable(host, port, proto, timeout)
+    if port.nil?
+      "ping -n #{escape(host)} #{escape(timeout)}"
+    elsif proto == 'tcp'
+      "echo 'quit' | mconnect -p #{escape(port)} #{escape(host)} > /dev/null 2>&1"
+    else
+      raise NotImplementedError.new
+    end
+  end
+end

data/lib/specinfra/command/solaris/v10/package.rb

@@ -0,0 +1,9 @@
+class Specinfra::Command::Solaris::V10::Package < Specinfra::Command::Solaris::Base::Package
+  def check_is_installed(package, version=nil)
+    cmd = "pkginfo -q  #{escape(package)}"
+    if version
+      cmd = "#{cmd} | grep -- #{escape(version)}"
+    end
+    cmd
+  end
+end

data/lib/specinfra/command/solaris/v10/user.rb

@@ -0,0 +1,16 @@
+class Specinfra::Command::Solaris::V10::User < Specinfra::Command::Solaris::Base::User
+  def check_is_belonging_to_group(user, group)
+    "id -ap #{escape(user)} | grep -- #{escape(group)}"
+  end
+
+  def check_has_authorized_key(user, key)
+    key.sub!(/\s+\S*$/, '') if key.match(/^\S+\s+\S+\s+\S*$/)
+    "grep -- #{escape(key)} ~#{escape(user)}/.ssh/authorized_keys"
+  end
+end
+
+
+
+
+
+

data/lib/specinfra/command/suse.rb

@@ -1,27 +1 @@
-module Specinfra
-  module Command
-    class SuSE < Linux
-      def check_enabled(service, level=3)
-        "chkconfig --list #{escape(service)} | grep #{level}:on"
-      end
-
-      def check_installed(package,version=nil)
-        cmd = "rpm -q #{escape(package)}"
-        if version
-          cmd = "#{cmd} | grep -w -- #{escape(version)}"
-        end
-        cmd
-      end
-
-      alias :check_installed_by_rpm :check_installed
-
-      def install(package)
-        cmd = "zypper -n install #{package}"
-      end
-
-      def get_package_version(package, opts=nil)
-        "rpm -qi #{package} | grep Version | awk '{print $3}'"
-      end
-    end
-  end
-end
+module Specinfra::Command::Suse; end

data/lib/specinfra/command/suse/base.rb

@@ -0,0 +1,2 @@
+class Specinfra::Command::Suse::Base < Specinfra::Command::Linux::Base
+end

data/lib/specinfra/command/suse/base/package.rb

@@ -0,0 +1,19 @@
+class Specinfra::Command::Suse::Base::Package < Specinfra::Command::Linux::Base::Package
+  def check_is_installed(package,version=nil)
+    cmd = "rpm -q #{escape(package)}"
+    if version
+      cmd = "#{cmd} | grep -w -- #{escape(version)}"
+    end
+    cmd
+  end
+
+  alias :check_is_installed_by_rpm :check_is_installed
+
+  def install(package)
+    cmd = "zypper -n install #{package}"
+  end
+
+  def get_version(package, opts=nil)
+    "rpm -qi #{package} | grep Version | awk '{print $3}'"
+  end
+end

data/lib/specinfra/command/suse/base/service.rb

@@ -0,0 +1,12 @@
+class Specinfra::Command::Suse::Base::Service < Specinfra::Command::Linux::Base::Service
+  def check_is_enabled(service, level=3)
+    "chkconfig --list #{escape(service)} | grep #{level}:on"
+  end
+end
+
+
+
+
+
+
+

data/lib/specinfra/command/ubuntu.rb

@@ -1,23 +1,11 @@
-module Specinfra
-  module Command
-    class Ubuntu < Debian
-      def check_running(service)
-        "service #{escape(service)} status && service #{escape(service)} status | grep 'running'"
-      end
-
-      def check_ppa(package)
-        %Q{find /etc/apt/ -name \*.list | xargs grep -o "deb http://ppa.launchpad.net/#{to_apt_line_uri(package)}"}
-      end
-
-      def check_ppa_enabled(package)
-        %Q{find /etc/apt/ -name \*.list | xargs grep -o "^deb http://ppa.launchpad.net/#{to_apt_line_uri(package)}"}
-      end
-
-      private
-
-      def to_apt_line_uri(repo)
-        escape(repo.gsub(/^ppa:/,''))
-      end
-    end
-  end
-end
+module Specinfra::Command::Ubuntu; end
+
+
+
+
+
+
+
+
+
+

data/lib/specinfra/command/ubuntu/base.rb

@@ -0,0 +1,2 @@
+class Specinfra::Command::Ubuntu::Base < Specinfra::Command::Debian::Base
+end

data/lib/specinfra/command/ubuntu/base/ppa.rb

@@ -0,0 +1,15 @@
+class Specinfra::Command::Ubuntu::Base::Ppa < Specinfra::Command::Debian::Base::Ppa
+  def check_exists(package)
+    %Q{find /etc/apt/ -name \*.list | xargs grep -o "deb http://ppa.launchpad.net/#{to_apt_line_uri(package)}"}
+  end
+
+  def check_is_enabled(package)
+    %Q{find /etc/apt/ -name \*.list | xargs grep -o "^deb http://ppa.launchpad.net/#{to_apt_line_uri(package)}"}
+  end
+
+  private
+
+  def to_apt_line_uri(repo)
+    escape(repo.gsub(/^ppa:/,''))
+  end
+end

data/lib/specinfra/command/ubuntu/base/service.rb

@@ -0,0 +1,5 @@
+class Specinfra::Command::Ubuntu::Base::Service < Specinfra::Command::Debian::Base::Service
+  def check_is_running(service)
+    "service #{escape(service)} status && service #{escape(service)} status | grep 'running'"
+  end
+end

data/lib/specinfra/command/windows.rb

@@ -1,344 +1 @@
-module Specinfra
-  module Command
-    class Windows
-      class NotSupportedError < Exception; end
-      REGISTRY_KEY_TYPES = {
-        :type_string       => 'String',
-        :type_binary       => 'Binary',
-        :type_dword        => 'DWord',
-        :type_qword        => 'QWord',
-        :type_multistring  => 'MultiString',
-        :type_expandstring => 'ExpandString'
-      }
-
-      def method_missing method, *args
-        raise NotSupportedError.new "#{method} currently not supported in Windows os" if method.to_s =~ /^check_.+/
-        super(method, *args)
-      end
-
-      def check_file(file)
-        cmd = item_has_attribute file, 'Archive'
-        Backend::PowerShell::Command.new do
-          exec cmd
-        end
-      end
-
-      def check_file_hidden(file)
-        cmd = item_has_attribute file, 'Hidden'
-        Backend::PowerShell::Command.new do
-          exec cmd
-        end
-      end
-
-      def check_file_readonly(file)
-        cmd = item_has_attribute file, 'ReadOnly'
-        Backend::PowerShell::Command.new do
-          exec cmd
-        end
-      end
-
-      def check_file_system(file)
-        cmd = item_has_attribute file, 'System'
-        Backend::PowerShell::Command.new do
-          exec cmd
-        end
-      end
-
-      def check_directory(dir)
-        cmd = item_has_attribute dir, 'Directory'
-        Backend::PowerShell::Command.new do
-          exec cmd
-        end
-      end
-
-      def check_file_contain(file, pattern)
-        Backend::PowerShell::Command.new do
-          exec "[Io.File]::ReadAllText('#{file}') -match '#{convert_regexp(pattern)}'"
-        end
-      end
-
-      def check_file_contain_within file, pattern, from=nil, to=nil
-        from ||= '^'
-        to ||= '$'
-        Backend::PowerShell::Command.new do
-          using 'crop_text.ps1'
-          exec %Q[(CropText -text ([Io.File]::ReadAllText('#{file}')) -fromPattern '#{convert_regexp(from)}' -toPattern '#{convert_regexp(to)}') -match '#{pattern}']
-        end
-      end
-
-      def get_file_content(file)
-        "[Io.File]::ReadAllText('#{file}')"
-      end
-
-      def check_access_by_user(file, user, access)
-        case access
-        when 'r'
-          check_readable(file, user)
-        when 'w'
-          check_writable(file, user)
-        when 'x'
-          check_executable(file, user)
-        end
-      end
-
-      def check_readable(file, by_whom)
-        Backend::PowerShell::Command.new do
-          using 'check_file_access_rules.ps1'
-          exec "CheckFileAccessRules -path '#{file}' -identity '#{get_identity by_whom}' -rules @('FullControl', 'Modify', 'ReadAndExecute', 'Read', 'ListDirectory')"
-        end
-      end
-
-      def check_writable(file, by_whom)
-        Backend::PowerShell::Command.new do
-          using 'check_file_access_rules.ps1'
-          exec "CheckFileAccessRules -path '#{file}' -identity '#{get_identity by_whom}' -rules @('FullControl', 'Modify', 'Write')"
-        end
-      end
-
-      def check_executable(file, by_whom)
-        Backend::PowerShell::Command.new do
-          using 'check_file_access_rules.ps1'
-          exec "CheckFileAccessRules -path '#{file}' -identity '#{get_identity by_whom}' -rules @('FullControl', 'Modify', 'ReadAndExecute', 'ExecuteFile')"
-        end
-      end
-
-      def check_installed(package, version=nil)
-        version_selection = version.nil? ? "" : "-appVersion '#{version}'"
-        Backend::PowerShell::Command.new do
-          using 'find_installed_application.ps1'
-          exec "(FindInstalledApplication -appName '#{package}' #{version_selection}) -eq $true"
-        end
-      end
-
-      def check_service_installed(service)
-        Backend::PowerShell::Command.new do
-          using 'find_service.ps1'
-          exec "@(FindService -name '#{service}').count -gt 0"
-        end
-      end
-
-      def check_service_start_mode(service, mode)
-        Backend::PowerShell::Command.new do
-          using 'find_service.ps1'
-          exec  "'#{mode}' -match (FindService -name '#{service}').StartMode -and (FindService -name '#{service}') -ne $null"
-        end
-      end
-
-      def check_enabled(service, level=nil)
-        Backend::PowerShell::Command.new do
-          using 'find_service.ps1'
-          exec "(FindService -name '#{service}').StartMode -eq 'Auto'"
-        end
-      end
-
-      def check_running(service)
-        Backend::PowerShell::Command.new do
-          using 'find_service.ps1'
-          exec "(FindService -name '#{service}').State -eq 'Running'"
-        end
-      end
-
-      def check_process(process)
-        Backend::PowerShell::Command.new do
-          exec "(Get-Process '#{process}') -ne $null"
-        end
-      end
-
-      def check_listening(port)
-        Backend::PowerShell::Command.new do
-          using 'is_port_listening.ps1'
-          exec "IsPortListening -portNumber #{port}"
-        end
-      end
-
-      def check_listening_with_protocol(port, protocol)
-        Backend::PowerShell::Command.new do
-          using 'is_port_listening.ps1'
-          exec "IsPortListening -portNumber #{port} -protocol '#{protocol}'"
-        end
-      end
-
-      def check_user(user)
-        user_id, domain = windows_account user
-        Backend::PowerShell::Command.new do
-          using 'find_user.ps1'
-          exec "(FindUser -userName '#{user_id}'#{domain.nil? ? "" : " -domain '#{domain}'"}) -ne $null"
-        end
-      end
-
-      def check_group(group)
-        group_id, domain = windows_account group
-        Backend::PowerShell::Command.new do
-          using 'find_group.ps1'
-          exec "(FindGroup -groupName '#{group_id}'#{domain.nil? ? "" : " -domain '#{domain}'"}) -ne $null"
-        end
-      end
-
-      def check_belonging_group(user, group)
-        user_id, user_domain = windows_account user
-        group_id, group_domain = windows_account group
-        Backend::PowerShell::Command.new do
-          using 'find_user.ps1'
-          using 'find_group.ps1'
-          using 'find_usergroup.ps1'
-          exec "(FindUserGroup -userName '#{user_id}'#{user_domain.nil? ? "" : " -userDomain '#{user_domain}'"} -groupName '#{group_id}'#{group_domain.nil? ? "" : " -groupDomain '#{group_domain}'"}) -ne $null"
-        end
-      end
-
-      def check_registry_key(key_name, key_property = {})
-        if key_property.empty?
-          cmd = "(Get-Item 'Registry::#{key_name}') -ne $null"
-        else
-          if key_property.key? :value
-            value = convert_key_property_value key_property
-            cmd = "(Compare-Object (Get-Item 'Registry::#{key_name}').GetValue('#{key_property[:name]}') #{value}) -eq $null"
-          else
-            cmd = "(Get-Item 'Registry::#{key_name}').GetValueKind('#{key_property[:name]}') -eq '#{REGISTRY_KEY_TYPES[key_property[:type]]}'"
-          end
-        end
-        Backend::PowerShell::Command.new { exec cmd }
-      end
-
-      def check_resolvable(name, type)
-        if type == "hosts"
-            cmd = "@(Select-String -path (Join-Path -Path $($env:windir) -ChildPath 'system32/drivers/etc/hosts') -pattern '#{name}\\b').count -gt 0"
-        else
-            cmd = "@([System.Net.Dns]::GetHostAddresses('#{name}')).count -gt 0"
-        end
-        Backend::PowerShell::Command.new { exec cmd }
-      end
-
-      def check_reachable(host, port, proto, timeout)
-          if port.nil?
-             Backend::PowerShell::Command.new do
-              exec "(New-Object System.Net.NetworkInformation.Ping).send('#{host}').Status -eq 'Success'"
-             end
-          else
-            Backend::PowerShell::Command.new do
-             using 'is_remote_port_listening.ps1'
-             exec"(IsRemotePortListening -hostname #{host} -port #{port} -timeout #{timeout} -proto #{proto}) -eq $true"
-            end
-          end
-      end
-
-      def check_windows_feature_enabled(name,provider)
-
-        if provider.nil?
-          cmd =  "@(ListWindowsFeatures -feature #{name}).count -gt 0"
-        else
-          cmd =  "@(ListWindowsFeatures -feature #{name} -provider #{provider}).count -gt 0"
-        end
-
-        Backend::PowerShell::Command.new do
-          using 'list_windows_features.ps1'
-          exec cmd
-        end
-      end
-
-      def check_windows_hot_fix_installed(description, hot_fix_id=nil)
-        hot_fix_id_match = /(KB\d+)/i.match(description)
-        hot_fix_id = hot_fix_id_match ? hot_fix_id_match[1] : description if hot_fix_id.nil?
-
-        args = [ 
-          '-description', "'#{description}'",
-          '-hotFixId', "'#{hot_fix_id}'"
-        ]
- 
-        cmd = "(FindInstalledHotFix #{args.join(' ')})" 
-        Backend::PowerShell::Command.new do
-          using 'find_installed_hot_fix.ps1'
-          exec "#{cmd} -eq $true"
-        end
-      end
-
-      def check_file_version(name,version)
-        cmd = "((Get-Command '#{name}').FileVersionInfo.ProductVersion -eq '#{version}') -or ((Get-Command '#{name}').FileVersionInfo.FileVersion -eq '#{version}')"
-        Backend::PowerShell::Command.new { exec cmd }
-      end
-
-      def check_iis_website_enabled(name)
-        Backend::PowerShell::Command.new do
-          using 'find_iis_component.ps1'
-          exec "(FindIISWebsite -name '#{name}').serverAutoStart -eq $true"
-        end
-      end
-
-      def check_iis_website_installed(name)
-        Backend::PowerShell::Command.new do
-          using 'find_iis_component.ps1'
-          exec "@(FindIISWebsite -name '#{name}').count -gt 0"
-        end
-      end
-
-      def check_iis_website_running(name)
-        Backend::PowerShell::Command.new do
-          using 'find_iis_component.ps1'
-          exec "(FindIISWebsite -name '#{name}').state -eq 'Started'"
-        end
-      end
-
-      def check_iis_website_app_pool(name, app_pool)
-        Backend::PowerShell::Command.new do
-          using 'find_iis_component.ps1'
-          exec "(FindIISWebsite -name '#{name}').applicationPool -match '#{app_pool}'"
-        end
-      end
-
-      def check_iis_website_path(name, path)
-        Backend::PowerShell::Command.new do
-          using 'find_iis_component.ps1'
-          exec "[System.Environment]::ExpandEnvironmentVariables( ( FindIISWebsite -name '#{name}' ).physicalPath ).replace('\\', '/' ) -eq ('#{path}'.trimEnd('/').replace('\\', '/'))"
-        end
-      end
-
-      def check_iis_app_pool(name)
-        Backend::PowerShell::Command.new do
-          using 'find_iis_component.ps1'
-          exec "@(FindIISAppPool -name '#{name}').count -gt 0"
-        end
-      end
-
-      def check_iis_app_pool_dotnet(name, dotnet)
-        Backend::PowerShell::Command.new do
-          using 'find_iis_component.ps1'
-          exec "(FindIISAppPool -name '#{name}').managedRuntimeVersion -match 'v#{dotnet}'"
-        end
-      end
-
-      def check_scheduled_task(name)
-        Backend::PowerShell::Command.new do
-          using 'find_scheduled_task.ps1'
-          exec "(FindScheduledTask -name '#{name}').TaskName -eq '\\#{name}'"
-        end
-      end
-
-      private
-
-      def item_has_attribute item, attribute
-        "((Get-Item -Path '#{item}' -Force).attributes.ToString() -Split ', ') -contains '#{attribute}'"
-      end
-
-      def convert_key_property_value property
-        case property[:type]
-        when :type_binary
-          byte_array = [property[:value]].pack('H*').bytes.to_a
-          "([byte[]] #{byte_array.join(',')})"
-        when :type_dword
-          [property[:value].rjust(8, '0').scan(/[0-9a-f]{2}/i).reverse.join].pack("H*").unpack("l").first
-        when :type_qword
-          property[:value].hex
-        else
-          string_array = property[:value].split("\n").map {|s| "'#{s}'"}.reduce {|acc, s| "#{acc},#{s}"}
-          "@(#{string_array})"
-        end
-      end
-
-      def windows_account account
-        match = /((.+)\\)?(.+)/.match account
-        domain = match[2]
-        name = match[3]
-        [name, domain]
-      end
-    end
-  end
-end
+module Specinfra::Command::Windows; end