kanrisuru 0.13.0 → 0.14.0

data/lib/kanrisuru/core/transfer/commands/download.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module Transfer
+      def download(remote_path, local_path = nil, opts = {})
+        if local_path.instance_of?(Hash)
+          opts = local_path
+          local_path = nil
+        end
+
+        tmp_path = "/tmp/kanrisuru-tmp-#{Time.now.to_i}-#{object_id}"
+
+        begin
+          result = cp(remote_path, tmp_path, force: true)
+          raise 'Unable to copy remote file to temp path' unless result.success?
+
+          result = ssh.scp.download!(tmp_path, local_path, opts)
+          Kanrisuru::Util.blank?(local_path) ? result : local_path
+        ensure
+          rm(tmp_path, force: true) if inode?(tmp_path)
+        end
+      end
+    end
+  end
+end

data/lib/kanrisuru/core/transfer/commands/upload.rb

@@ -0,0 +1,23 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module Transfer
+      def upload(local_path, remote_path, opts = {})
+        tmp_path = "/tmp/kanrisuru-tmp-#{Time.now.to_i}-#{object_id}"
+
+        begin
+          result = ssh.scp.upload!(local_path, tmp_path, opts)
+          raise 'Unable to upload file' unless result
+
+          result = mv(tmp_path, remote_path)
+          raise 'Unable to move file to remote path' unless result.success?
+
+          stat(remote_path)
+        ensure
+          rm(tmp_path, force: true) if inode?(tmp_path)
+        end
+      end
+    end
+  end
+end

data/lib/kanrisuru/core/transfer/commands/wget.rb

@@ -0,0 +1,168 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module Transfer
+      def wget(url, opts = {})
+        command = Kanrisuru::Command.new('wget')
+
+        ## Logging and input
+        command.append_flag('--quiet', opts[:quiet])
+
+        case opts[:verbose]
+        when true
+          command.append_flag('--verbose')
+        when false
+          command.append_flag('--no-verbose')
+        end
+
+        command.append_arg('--output-file', opts[:log_file])
+        command.append_arg('--append-output', opts[:append_log_file])
+
+        ## Download
+        command.append_arg('--bind-address', opts[:bind_address])
+        command.append_arg('--tries', opts[:retries])
+        command.append_arg('--output-document', opts[:output_document])
+        command.append_flag('--no-clobber', opts[:no_clobber])
+        command.append_flag('--continue', opts[:continue])
+        command.append_flag('--server-response', opts[:server_response])
+        command.append_flag('--spider', opts[:spider])
+        command.append_arg('--timeout', opts[:timeout])
+        command.append_arg('--dns-timeout', opts[:dns_timeout])
+        command.append_arg('--connect-timeout', opts[:connect_timeout])
+        command.append_arg('--read-timeout', opts[:read_timeout])
+        command.append_arg('--limit-rate', opts[:limit_rate])
+        command.append_arg('--wait', opts[:wait])
+        command.append_arg('--waitretry', opts[:waitretry])
+        command.append_flag('--random-wait', opts[:random_wait])
+        command.append_flag('--no-proxy', opts[:no_proxy])
+        command.append_flag('--no-dns-cache', opts[:no_dns_cache])
+
+        command.append_arg('--quota', opts[:quota])
+
+        if Kanrisuru::Util.present?(opts[:restrict_file_names])
+          command.append_arg('--restrict-file-names', Kanrisuru::Util.array_join_string(opts[:restrict_file_names]))
+        end
+
+        case opts[:family]
+        when 'inet'
+          command.append_flag('--inet4-only')
+        when 'inet6'
+          command.append_flag('--inet6-only')
+        end
+
+        command.append_flag('--retry-connrefused', opts[:retry_connrefused])
+        command.append_arg('--user', opts[:user])
+        command.append_arg('--password', opts[:password])
+        command.append_flag('--no-iri', opts[:no_iri])
+        command.append_arg('--local-encoding', opts[:local_encoding])
+        command.append_arg('--remote-encoding', opts[:remote_encoding])
+
+        ## Directories
+        command.append_flag('--no-directories', opts[:no_directories])
+        command.append_flag('--force-directories', opts[:force_directories])
+        command.append_flag('--no-host-directories', opts[:no_host_directories])
+        command.append_flag('--protocol-directories', opts[:protocol_directories])
+        command.append_arg('--cut-dirs', opts[:cut_dirs])
+        command.append_arg('--directory-prefix', opts[:directory_prefix])
+
+        ## HTTP
+        command.append_arg('--default-page', opts[:default_page])
+        command.append_flag('--adjust-extension', opts[:adjust_extension])
+        command.append_arg('--http-user', opts[:http_user])
+        command.append_arg('--http-password', opts[:http_password])
+        command.append_arg('--load-cookies', opts[:load_cookies])
+        command.append_arg('--save-cookies', opts[:save_cookies])
+        command.append_flag('--no-http-keep-alive', opts[:no_http_keep_alive])
+        command.append_flag('--no-cache', opts[:no_cache])
+        command.append_flag('--no-cookies', opts[:no_cookies])
+        command.append_flag('--keep-session-cookies', opts[:keep_session_cookies])
+        command.append_flag('--ignore-length', opts[:ignore_length])
+        command.append_arg('--max-redirect', opts[:max_redirect])
+        command.append_arg('--proxy-user', opts[:proxy_user])
+        command.append_arg('--proxy-password', opts[:proxy_password])
+        command.append_arg('--referer', opts[:referer])
+        command.append_flag('--save-headers', opts[:save_headers])
+        command.append_arg('--user-agent', opts[:user_agent])
+
+        headers = opts[:headers]
+        if Kanrisuru::Util.present?(headers)
+          if headers.instance_of?(Hash)
+            headers.each do |key, value|
+              header = "'#{key}: #{value}'"
+              command.append_arg('--header', header)
+            end
+          elsif headers.instance_of?(String)
+            command.append_arg('--header', headers)
+          end
+        end
+
+        post_data = opts[:post_data]
+
+        if Kanrisuru::Util.present?(post_data)
+          post_data = post_data.instance_of?(Hash) ? URI.encode_www_form(post_data) : post_data
+          command.append_arg('--post-data', post_data)
+        end
+
+        command.append_arg('--post-file', opts[:post_file])
+        command.append_flag('--content-disposition', opts[:content_disposition])
+
+        ## SSL / TLS
+        if Kanrisuru::Util.present?(opts[:secure_protocol])
+          raise ArgumentError, 'invalid ssl protocol' unless WGET_SSL_PROTO.include?(opts[:secure_protocol])
+
+          command.append_arg('--secure-protocol', opts[:secure_protocol])
+        end
+
+        command.append_flag('--no-check-certificate', opts[:no_check_certificate])
+        command.append_arg('--certificate', opts[:certificate])
+        command.append_arg('--certificate-type', opts[:certificate_type])
+        command.append_arg('--private-key', opts[:private_key])
+        command.append_arg('--private-key-type', opts[:private_key_type])
+        command.append_arg('--ca-certificate', opts[:ca_certificate])
+        command.append_arg('--ca-directory', opts[:ca_directory])
+        command.append_arg('--random-file', opts[:random_file])
+        command.append_arg('--egd-file', opts[:egd_file])
+
+        ## FTP
+        command.append_arg('--ftp-user', opts[:ftp_user])
+        command.append_arg('--ftp-password', opts[:ftp_password])
+        command.append_flag('--no-remove-listing', opts[:no_remove_listing])
+        command.append_flag('--no-glob', opts[:no_glob])
+        command.append_flag('--no-passive-ftp', opts[:no_passive_ftp])
+        command.append_flag('--retr-symlinks', opts[:retr_symlinks])
+
+        ## Recursive Retrieval
+        command.append_flag('--recursive', opts[:recursive])
+        command.append_arg('--level', opts[:depth])
+        command.append_flag('--delete-after', opts[:delete_after])
+        command.append_flag('--convert-links', opts[:convert_links])
+        command.append_flag('--backup-converted', opts[:backup_converted])
+        command.append_flag('--mirror', opts[:mirror])
+        command.append_flag('--page-requisites', opts[:page_requisites])
+        command.append_flag('--strict-comments', opts[:strict_comments])
+
+        ## Recursive Accept/Reject
+        command.append_arg('--accept', Kanrisuru::Util.array_join_string(opts[:accept_list]))
+        command.append_arg('--reject', Kanrisuru::Util.array_join_string(opts[:reject_list]))
+        command.append_arg('--domains', Kanrisuru::Util.array_join_string(opts[:domain_list]))
+        command.append_arg('--exclude-domains', Kanrisuru::Util.array_join_string(opts[:exclude_domain_list]))
+        command.append_arg('--follow-tags', Kanrisuru::Util.array_join_string(opts[:follow_tags]))
+        command.append_arg('--ignore-tags', Kanrisuru::Util.array_join_string(opts[:ignore_tags]))
+        command.append_arg('--include-directories', Kanrisuru::Util.array_join_string(opts[:include_directories]))
+        command.append_arg('--exclude-directories', Kanrisuru::Util.array_join_string(opts[:exclude_directories]))
+        command.append_flag('--follow-ftp', opts[:follow_ftp])
+        command.append_flag('--ignore-case', opts[:ignore_case])
+        command.append_flag('--span-hosts', opts[:span_hosts])
+        command.append_flag('--relative', opts[:relative])
+        command.append_flag('--no-parent', opts[:no_parent])
+
+        command << url
+
+        execute_shell(command)
+
+        Kanrisuru::Result.new(command)
+      end
+    end
+  end
+end

data/lib/kanrisuru/core/transfer/commands.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+require_relative 'commands/download'
+require_relative 'commands/upload'
+require_relative 'commands/wget'

data/lib/kanrisuru/core/transfer/constants.rb

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module Transfer
+      WGET_FILENAME_MODES = %w[unix windows nocontrol ascii lowercase uppercase].freeze
+      WGET_SSL_PROTO = %w[auto SSLv2 SSLv3 TLSv1].freeze
+    end
+  end
+end

data/lib/kanrisuru/core/transfer.rb

@@ -2,6 +2,9 @@
 
 require 'uri'
 
+require_relative 'transfer/constants'
+require_relative 'transfer/commands'
+
 module Kanrisuru
   module Core
     module Transfer
@@ -10,205 +13,6 @@ module Kanrisuru
       os_define :linux, :download
       os_define :linux, :upload
       os_define :linux, :wget
-
-      WGET_FILENAME_MODES = %w[unix windows nocontrol ascii lowercase uppercase].freeze
-      WGET_SSL_PROTO = %w[auto SSLv2 SSLv3 TLSv1].freeze
-
-      def download(remote_path, local_path = nil, opts = {})
-        if local_path.instance_of?(Hash)
-          opts = local_path
-          local_path = nil
-        end
-
-        tmp_path = "/tmp/kanrisuru-tmp-#{Time.now.to_i}-#{object_id}"
-
-        begin
-          result = cp(remote_path, tmp_path, force: true)
-          raise 'Unable to copy remote file to temp path' unless result.success?
-
-          result = ssh.scp.download!(tmp_path, local_path, opts)
-          Kanrisuru::Util.blank?(local_path) ? result : local_path
-        ensure
-          rm(tmp_path, force: true) if inode?(tmp_path)
-        end
-      end
-
-      def upload(local_path, remote_path, opts = {})
-        tmp_path = "/tmp/kanrisuru-tmp-#{Time.now.to_i}-#{object_id}"
-
-        begin
-          result = ssh.scp.upload!(local_path, tmp_path, opts)
-          raise 'Unable to upload file' unless result
-
-          result = mv(tmp_path, remote_path)
-          raise 'Unable to move file to remote path' unless result.success?
-
-          stat(remote_path)
-        ensure
-          rm(tmp_path, force: true) if inode?(tmp_path)
-        end
-      end
-
-      def wget(url, opts = {})
-        command = Kanrisuru::Command.new('wget')
-
-        ## Logging and input
-        command.append_flag('--quiet', opts[:quiet])
-
-        case opts[:verbose]
-        when true
-          command.append_flag('--verbose')
-        when false
-          command.append_flag('--no-verbose')
-        end
-
-        command.append_arg('--output-file', opts[:log_file])
-        command.append_arg('--append-output', opts[:append_log_file])
-
-        ## Download
-        command.append_arg('--bind-address', opts[:bind_address])
-        command.append_arg('--tries', opts[:retries])
-        command.append_arg('--output-document', opts[:output_document])
-        command.append_flag('--no-clobber', opts[:no_clobber])
-        command.append_flag('--continue', opts[:continue])
-        command.append_flag('--server-response', opts[:server_response])
-        command.append_flag('--spider', opts[:spider])
-        command.append_arg('--timeout', opts[:timeout])
-        command.append_arg('--dns-timeout', opts[:dns_timeout])
-        command.append_arg('--connect-timeout', opts[:connect_timeout])
-        command.append_arg('--read-timeout', opts[:read_timeout])
-        command.append_arg('--limit-rate', opts[:limit_rate])
-        command.append_arg('--wait', opts[:wait])
-        command.append_arg('--waitretry', opts[:waitretry])
-        command.append_flag('--random-wait', opts[:random_wait])
-        command.append_flag('--no-proxy', opts[:no_proxy])
-        command.append_flag('--no-dns-cache', opts[:no_dns_cache])
-
-        command.append_arg('--quota', opts[:quota])
-
-        if Kanrisuru::Util.present?(opts[:restrict_file_names])
-          command.append_arg('--restrict-file-names', Kanrisuru::Util.array_join_string(opts[:restrict_file_names]))
-        end
-
-        case opts[:family]
-        when 'inet'
-          command.append_flag('--inet4-only')
-        when 'inet6'
-          command.append_flag('--inet6-only')
-        end
-
-        command.append_flag('--retry-connrefused', opts[:retry_connrefused])
-        command.append_arg('--user', opts[:user])
-        command.append_arg('--password', opts[:password])
-        command.append_flag('--no-iri', opts[:no_iri])
-        command.append_arg('--local-encoding', opts[:local_encoding])
-        command.append_arg('--remote-encoding', opts[:remote_encoding])
-
-        ## Directories
-        command.append_flag('--no-directories', opts[:no_directories])
-        command.append_flag('--force-directories', opts[:force_directories])
-        command.append_flag('--no-host-directories', opts[:no_host_directories])
-        command.append_flag('--protocol-directories', opts[:protocol_directories])
-        command.append_arg('--cut-dirs', opts[:cut_dirs])
-        command.append_arg('--directory-prefix', opts[:directory_prefix])
-
-        ## HTTP
-        command.append_arg('--default-page', opts[:default_page])
-        command.append_flag('--adjust-extension', opts[:adjust_extension])
-        command.append_arg('--http-user', opts[:http_user])
-        command.append_arg('--http-password', opts[:http_password])
-        command.append_arg('--load-cookies', opts[:load_cookies])
-        command.append_arg('--save-cookies', opts[:save_cookies])
-        command.append_flag('--no-http-keep-alive', opts[:no_http_keep_alive])
-        command.append_flag('--no-cache', opts[:no_cache])
-        command.append_flag('--no-cookies', opts[:no_cookies])
-        command.append_flag('--keep-session-cookies', opts[:keep_session_cookies])
-        command.append_flag('--ignore-length', opts[:ignore_length])
-        command.append_arg('--max-redirect', opts[:max_redirect])
-        command.append_arg('--proxy-user', opts[:proxy_user])
-        command.append_arg('--proxy-password', opts[:proxy_password])
-        command.append_arg('--referer', opts[:referer])
-        command.append_flag('--save-headers', opts[:save_headers])
-        command.append_arg('--user-agent', opts[:user_agent])
-
-        headers = opts[:headers]
-        if Kanrisuru::Util.present?(headers)
-          if headers.instance_of?(Hash)
-            headers.each do |key, value|
-              header = "'#{key}: #{value}'"
-              command.append_arg('--header', header)
-            end
-          elsif headers.instance_of?(String)
-            command.append_arg('--header', headers)
-          end
-        end
-
-        post_data = opts[:post_data]
-
-        if Kanrisuru::Util.present?(post_data)
-          post_data = post_data.instance_of?(Hash) ? URI.encode_www_form(post_data) : post_data
-          command.append_arg('--post-data', post_data)
-        end
-
-        command.append_arg('--post-file', opts[:post_file])
-        command.append_flag('--content-disposition', opts[:content_disposition])
-
-        ## SSL / TLS
-        if Kanrisuru::Util.present?(opts[:secure_protocol])
-          raise ArgumentError, 'invalid ssl protocol' unless WGET_SSL_PROTO.include?(opts[:secure_protocol])
-
-          command.append_arg('--secure-protocol', opts[:secure_protocol])
-        end
-
-        command.append_flag('--no-check-certificate', opts[:no_check_certificate])
-        command.append_arg('--certificate', opts[:certificate])
-        command.append_arg('--certificate-type', opts[:certificate_type])
-        command.append_arg('--private-key', opts[:private_key])
-        command.append_arg('--private-key-type', opts[:private_key_type])
-        command.append_arg('--ca-certificate', opts[:ca_certificate])
-        command.append_arg('--ca-directory', opts[:ca_directory])
-        command.append_arg('--random-file', opts[:random_file])
-        command.append_arg('--egd-file', opts[:egd_file])
-
-        ## FTP
-        command.append_arg('--ftp-user', opts[:ftp_user])
-        command.append_arg('--ftp-password', opts[:ftp_password])
-        command.append_flag('--no-remove-listing', opts[:no_remove_listing])
-        command.append_flag('--no-glob', opts[:no_glob])
-        command.append_flag('--no-passive-ftp', opts[:no_passive_ftp])
-        command.append_flag('--retr-symlinks', opts[:retr_symlinks])
-
-        ## Recursive Retrieval
-        command.append_flag('--recursive', opts[:recursive])
-        command.append_arg('--level', opts[:depth])
-        command.append_flag('--delete-after', opts[:delete_after])
-        command.append_flag('--convert-links', opts[:convert_links])
-        command.append_flag('--backup-converted', opts[:backup_converted])
-        command.append_flag('--mirror', opts[:mirror])
-        command.append_flag('--page-requisites', opts[:page_requisites])
-        command.append_flag('--strict-comments', opts[:strict_comments])
-
-        ## Recursive Accept/Reject
-        command.append_arg('--accept', Kanrisuru::Util.array_join_string(opts[:accept_list]))
-        command.append_arg('--reject', Kanrisuru::Util.array_join_string(opts[:reject_list]))
-        command.append_arg('--domains', Kanrisuru::Util.array_join_string(opts[:domain_list]))
-        command.append_arg('--exclude-domains', Kanrisuru::Util.array_join_string(opts[:exclude_domain_list]))
-        command.append_arg('--follow-tags', Kanrisuru::Util.array_join_string(opts[:follow_tags]))
-        command.append_arg('--ignore-tags', Kanrisuru::Util.array_join_string(opts[:ignore_tags]))
-        command.append_arg('--include-directories', Kanrisuru::Util.array_join_string(opts[:include_directories]))
-        command.append_arg('--exclude-directories', Kanrisuru::Util.array_join_string(opts[:exclude_directories]))
-        command.append_flag('--follow-ftp', opts[:follow_ftp])
-        command.append_flag('--ignore-case', opts[:ignore_case])
-        command.append_flag('--span-hosts', opts[:span_hosts])
-        command.append_flag('--relative', opts[:relative])
-        command.append_flag('--no-parent', opts[:no_parent])
-
-        command << url
-
-        execute_shell(command)
-
-        Kanrisuru::Result.new(command)
-      end
     end
   end
 end

data/lib/kanrisuru/core/user/commands/create_user.rb

@@ -0,0 +1,57 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module User
+      def create_user(user, opts = {})
+        uid           = opts[:uid]
+        group         = opts[:group]
+        groups        = opts[:groups]
+        home          = opts[:home]
+        shell         = opts[:shell] || '/bin/false'
+        createhome    = opts[:createhome]
+        system_opt    = opts[:system]
+        skeleton      = opts[:skeleton]
+        non_unique    = opts[:non_unique]
+        password      = opts[:password]
+        expires       = opts[:expires] ## YYYY-MM-DD
+
+        command = Kanrisuru::Command.new("useradd #{user}")
+
+        if Kanrisuru::Util.present?(uid)
+          command.append_arg('-u', uid)
+          command.append_flag('-o', non_unique)
+        end
+
+        command.append_flag('-r', system_opt)
+        command.append_arg('-s', shell)
+        command.append_arg('-d', home)
+
+        case createhome
+        when true
+          command.append_flag('-m')
+          command.append_arg('-k', skeleton)
+        when false
+          command.append_flag('-M')
+        end
+
+        if Kanrisuru::Util.present?(group) && group?(group)
+          command.append_arg('-g', group)
+        elsif group?(user)
+          command.append_flag('-N')
+        end
+
+        command.append_arg('-G', groups.join(',')) if Kanrisuru::Util.present?(groups)
+
+        command.append_arg('-p', password)
+        command.append_arg('-e', expires)
+
+        execute_shell(command)
+
+        Kanrisuru::Result.new(command) do
+          get_user(user).data
+        end
+      end
+    end
+  end
+end

data/lib/kanrisuru/core/user/commands/delete_user.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module User
+      def delete_user(user, opts = {})
+        force = opts[:force]
+
+        return false unless get_uid(user)
+
+        command = Kanrisuru::Command.new("userdel #{user}")
+        command.append_flag('-f', force)
+
+        execute_shell(command)
+
+        Kanrisuru::Result.new(command)
+      end
+    end
+  end
+end

data/lib/kanrisuru/core/user/commands/get_uid.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module User
+      def get_uid(user)
+        command = Kanrisuru::Command.new("id -u #{user}")
+
+        execute(command)
+
+        Kanrisuru::Result.new(command, &:to_i)
+      end
+    end
+  end
+end

data/lib/kanrisuru/core/user/commands/get_user.rb

@@ -0,0 +1,48 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module User
+      def get_user(user)
+        command = Kanrisuru::Command.new("id #{user}")
+        execute_shell(command)
+
+        Kanrisuru::Result.new(command) do |cmd|
+          ## Get user id
+          result = get_uid(user)
+          break if result.failure?
+
+          uid = result.to_i
+
+          ## Get all groups for the user, with gid and group name
+          array = Parser::Groups.parse(cmd)
+
+          groups = array.map do |str|
+            gid  = str.delete('^0-9').to_i
+            name = str.delete('0-9')
+            UserGroup.new(gid, name)
+          end
+
+          ## Get home / shell path information
+          cmd = Kanrisuru::Command.new("getent passwd #{user}")
+          cmd | "awk -F: '{print $6, $7}'"
+
+          execute(cmd)
+
+          result = Kanrisuru::Result.new(cmd) do |cmd2|
+            Parser::Getent.parse(cmd2)
+          end
+
+          ## TODO: Raise custom error to change parent result to use nested error and mark
+          ## as failure.
+          break if result.failure?
+
+          home = result[0]
+          shell = result[1]
+
+          User.new(uid, user, home, shell, groups)
+        end
+      end
+    end
+  end
+end

data/lib/kanrisuru/core/user/commands/is_user.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module User
+      def user?(user)
+        result = get_uid(user)
+        return false if result.failure?
+
+        Kanrisuru::Util.present?(result.data) && result.data.instance_of?(Integer)
+      end
+    end
+  end
+end

data/lib/kanrisuru/core/user/commands/update_user.rb

@@ -0,0 +1,63 @@
+# frozen_string_literal: true
+
+module Kanrisuru
+  module Core
+    module User
+      def update_user(user, opts = {})
+        uid           = opts[:uid]
+        group         = opts[:group]
+        groups        = opts[:groups]
+        append        = opts[:append]
+        home          = opts[:home]
+        move_home     = opts[:move_home]
+        shell         = opts[:shell] || '/bin/false'
+        non_unique    = opts[:non_unique]
+        password      = opts[:password]
+        expires       = opts[:expires] ## YYYY-MM-DD
+        locked        = opts[:locked]
+
+        command = Kanrisuru::Command.new("usermod #{user}")
+
+        if Kanrisuru::Util.present?(home)
+          command.append_arg('-d', home)
+          command.append_flag('-m', move_home)
+        end
+
+        command.append_arg('-s', shell)
+
+        if Kanrisuru::Util.present?(uid)
+          command.append_arg('-u', uid)
+          command.append_flag('-o', non_unique)
+        end
+
+        command.append_arg('-g', group) if Kanrisuru::Util.present?(group) && group_exists?(group)
+
+        if Kanrisuru::Util.present?(groups)
+          command.append_arg('-G', groups.join(','))
+          command.append_flag('-a', append)
+        end
+
+        case locked
+        when true
+          command.append_flag('-L')
+          command.append_arg('-e', 1)
+        when false
+          command.append_arg('-U')
+          command.append_arg('-e', 99_999)
+        else
+          ## Ensure expires isn't added twice.
+          command.append_arg('-e', expires)
+
+          ## Can't use password with lock / unlock flag.
+          command.append_arg('-p', password)
+        end
+
+        execute_shell(command)
+
+        Kanrisuru::Result.new(command) do |_command|
+          get_user(user).data
+        end
+      end
+    end
+  end
+end