/usr/lib/ruby/vendor_ruby/specinfra/command/solaris/v10/file.rb is in ruby-specinfra 2.66.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | class Specinfra::Command::Solaris::V10::File < Specinfra::Command::Solaris::Base::File
class << self
# reference: http://perldoc.perl.org/functions/stat.html
def check_has_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 get_md5sum(file)
"digest -a md5 -v #{escape(file)} | cut -d '=' -f 2 | cut -c 2-"
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
end
|