d-installer 0.4.2

data/lib/dinstaller/dbus/y2dir/manager/modules/PackagesProposal.rb

@@ -0,0 +1,62 @@
+# Copyright (c) [2022] SUSE LLC
+#
+# All Rights Reserved.
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of version 2 of the GNU General Public License as published
+# by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
+# more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, contact SUSE LLC.
+#
+# To contact SUSE LLC about this file by physical or electronic mail, you may
+# find current contact information at www.suse.com.
+
+require "yast"
+require "dinstaller/dbus/clients/software"
+
+# :nodoc:
+module Yast
+  # Replacement for the Yast::PackagesProposal module
+  class PackagesProposalClass < Module
+    def main
+      puts "Loading mocked module #{__FILE__}"
+      @client = DInstaller::DBus::Clients::Software.new
+    end
+
+    # @see https://github.com/yast/yast-yast2/blob/b8cd178b7f341f6e3438782cb703f4a3ab0529ed/library/general/src/modules/PackagesProposal.rb#L118
+    def AddResolvables(unique_id, type, resolvables, optional: false)
+      client.add_resolvables(unique_id, type, resolvables || [], optional: optional)
+      true
+    end
+
+    # @see https://github.com/yast/yast-yast2/blob/b8cd178b7f341f6e3438782cb703f4a3ab0529ed/library/general/src/modules/PackagesProposal.rb#L145
+    def SetResolvables(unique_id, type, resolvables, optional: false)
+      client.set_resolvables(unique_id, type, resolvables || [], optional: optional)
+      true
+    end
+
+    # @see https://github.com/yast/yast-yast2/blob/b8cd178b7f341f6e3438782cb703f4a3ab0529ed/library/general/src/modules/PackagesProposal.rb#L285
+    def GetResolvables(unique_id, type, optional: false)
+      client.get_resolvables(unique_id, type, optional: optional)
+    end
+
+    # @see https://github.com/yast/yast-yast2/blob/b8cd178b7f341f6e3438782cb703f4a3ab0529ed/library/general/src/modules/PackagesProposal.rb#L177
+    def RemoveResolvables(unique_id, type, resolvables, optional: false)
+      client.remove_resolvables(unique_id, type, resolvables || [], optional: optional)
+      true
+    end
+
+  private
+
+    attr_reader :client
+  end
+
+  PackagesProposal = PackagesProposalClass.new
+  PackagesProposal.main
+end

data/lib/dinstaller/dbus/y2dir/modules/Autologin.rb

@@ -0,0 +1,214 @@
+# ------------------------------------------------------------------------------
+# Copyright (c) 2006-2012 Novell, Inc. All Rights Reserved.
+#
+#
+# This program is free software; you can redistribute it and/or modify it under
+# the terms of version 2 of the GNU General Public License as published by the
+# Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# this program; if not, contact Novell, Inc.
+#
+# To contact Novell about this file by physical or electronic mail, you may find
+# current contact information at www.novell.com.
+# ------------------------------------------------------------------------------
+
+# File:	modules/Autologin.ycp
+# Package:	yast2
+# Summary:	Autologin read/write routines
+# Author:	Jiri Suchomel <jsuchome@suse.cz>
+# Flags:	Stable
+#
+# $Id$
+require "yast"
+require "dinstaller/dbus/clients/software"
+
+module Yast
+  class AutologinClass < Module
+    include Yast::Logger
+
+    # Display managers that support autologin.
+    # Notice that xdm does NOT support it!
+    #
+    # "autologin-support" is a pseudo-"provides" that maintainers of display
+    # manager packages can add to indicate that the package has that
+    # capability.
+    DISPLAY_MANAGERS = ["autologin-support", "kdm", "gdm", "sddm", "lightdm"].freeze
+
+    def main
+      textdomain "pam"
+
+      Yast.import "Popup"
+
+      # User to log in automaticaly
+      @user = ""
+
+      # Login without passwords?
+      @pw_less = false
+
+      # Is autologin used? Usualy true when user is not empty, but for the first
+      # time (during installation), this can be true by default although user is ""
+      # (depends on the control file)
+      @used = false
+
+      # Autologin settings modified?
+      @modified = false
+
+      # Pkg stuff initialized?
+      @pkg_initialized = false
+
+      # Software service client
+      @dbus_client = nil
+    end
+
+    def available
+      @available = supported? if @available.nil?
+      @available
+    end
+
+    # Read autologin settings
+    # @return used?
+    def Read
+      if SCR.Read(path(".target.size"), "/etc/sysconfig/displaymanager") == -1
+        @available = false
+        @user = ""
+        @used = false
+        return false
+      end
+
+      @available = supported?
+      @user = Convert.to_string(
+        SCR.Read(path(".sysconfig.displaymanager.DISPLAYMANAGER_AUTOLOGIN"))
+      )
+      @pw_less = Convert.to_string(
+        SCR.Read(
+          path(".sysconfig.displaymanager.DISPLAYMANAGER_PASSWORD_LESS_LOGIN")
+        )
+      ) == "yes"
+
+      @user = "" if @user.nil? || @user == ""
+
+      @used = @user != ""
+      @used
+    end
+
+    # Write autologin settings
+    # @param [Boolean] write_only when true, suseconfig script will not be run
+    # @return written anything?
+    def Write(_write_only)
+      return false if !available || !@modified
+
+      Builtins.y2milestone(
+        "writing user %1 for autologin; pw_less is %2",
+        @user,
+        @pw_less
+      )
+
+      SCR.Write(
+        path(".sysconfig.displaymanager.DISPLAYMANAGER_AUTOLOGIN"),
+        @user
+      )
+      SCR.Write(
+        path(".sysconfig.displaymanager.DISPLAYMANAGER_PASSWORD_LESS_LOGIN"),
+        @pw_less ? "yes" : "no"
+      )
+      SCR.Write(path(".sysconfig.displaymanager"), nil)
+
+      @modified = false
+      true
+    end
+
+    # Disable autologin
+    def Disable
+      @user = ""
+      @pw_less = false
+      @used = false
+      @modified = true
+
+      nil
+    end
+
+    # Wrapper for setting the 'used' variable
+    def Use(use)
+      if @used != use
+        @used = use
+        @modified = true
+      end
+
+      nil
+    end
+
+    # Disable autologin and write it (used probably for automatic
+    # disabling without asking)
+    # @param [Boolean] write_only when true, suseconfig script will not be run
+    # @return written anything?
+    def DisableAndWrite(write_only)
+      Disable()
+      Write(write_only)
+    end
+
+    # Ask if autologin should be disabled (and disable it in such case)
+    # @param [String] new The reason for disabling autologin (e.g. new set of users)
+    # @return Is autologin used?
+    def AskForDisabling(new)
+      # popup text (%1 is user name, %2 is additional info,
+      # like "Now LDAP was enabled")
+      question = Builtins.sformat(
+        _(
+          "The automatic login feature is enabled for user %1.\n" +
+            "%2\n" +
+            "Disable automatic login?"
+        ),
+        @user,
+        new
+      )
+
+      Disable() if @used && Popup.YesNo(question)
+      @used
+    end
+
+    # Check if autologin is supported with the currently selected or installed
+    # packages.
+    #
+    # @return Boolean
+    def supported?
+      supported = dbus_client.provisions_selected?(DISPLAY_MANAGERS).any?
+
+      if supported
+        log.info("Autologin is supported")
+      else
+        log.info("Autologin is not supported: No package provides any of #{DISPLAY_MANAGERS}")
+      end
+
+      supported
+    end
+
+    publish variable: :user, type: "string"
+    publish variable: :pw_less, type: "boolean"
+    publish variable: :used, type: "boolean"
+    publish variable: :modified, type: "boolean"
+    publish function: :Read, type: "boolean ()"
+    publish function: :Write, type: "boolean (boolean)"
+    publish function: :Disable, type: "void ()"
+    publish function: :Use, type: "void (boolean)"
+    publish function: :supported?, type: "boolean ()"
+    publish function: :DisableAndWrite, type: "boolean (boolean)"
+    publish function: :AskForDisabling, type: "boolean (string)"
+
+  private
+
+    # Software service client
+    #
+    # @return [DInstaller::DBus::Clients::Software] Software service client
+    def dbus_client
+      @dbus_client ||= DInstaller::DBus::Clients::Software.new
+    end
+  end
+
+  Autologin = AutologinClass.new
+  Autologin.main
+end

data/lib/dinstaller/dbus/y2dir/software/modules/SpaceCalculation.rb

@@ -0,0 +1,44 @@
+# Copyright (c) [2022] SUSE LLC
+#
+# All Rights Reserved.
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of version 2 of the GNU General Public License as published
+# by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
+# more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, contact SUSE LLC.
+#
+# To contact SUSE LLC about this file by physical or electronic mail, you may
+# find current contact information at www.suse.com.
+
+require "yast"
+
+# :nodoc:
+module Yast
+  # Replacement for the Yast::SpaceCalculation module.
+  class SpaceCalculationClass < Module
+    def main
+      puts "Loading mocked module #{__FILE__}"
+    end
+
+    # @see https://github.com/yast/yast-packager/blob/master/src/modules/SpaceCalculation.rb#L711
+    def GetPartitionInfo; end
+
+    # @see https://github.com/yast/yast-packager/blob/master/src/modules/SpaceCalculation.rb#L860
+    def CheckDiskSize; end
+
+    # @see https://github.com/yast/yast-packager/blob/master/src/modules/SpaceCalculation.rb#L60
+    def GetFailedMounts
+      []
+    end
+  end
+
+  SpaceCalculation = SpaceCalculationClass.new
+  SpaceCalculation.main
+end

data/lib/dinstaller/dbus.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+module DInstaller
+  # Namespace for DBus API
+  module DBus
+  end
+end
+
+require "dinstaller/dbus/manager"
+require "dinstaller/dbus/language"
+require "dinstaller/dbus/software"

data/lib/dinstaller/errors.rb

@@ -0,0 +1,28 @@
+# frozen_string_literal: true
+
+# Copyright (c) [2022] SUSE LLC
+#
+# All Rights Reserved.
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of version 2 of the GNU General Public License as published
+# by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
+# more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, contact SUSE LLC.
+#
+# To contact SUSE LLC about this file by physical or electronic mail, you may
+# find current contact information at www.suse.com.
+
+module DInstaller
+  # Module containing common errors
+  module Errors
+    # Invalid value given by the user
+    class InvalidValue < StandardError; end
+  end
+end

data/lib/dinstaller/installation_phase.rb

@@ -0,0 +1,106 @@
+# frozen_string_literal: true
+
+# Copyright (c) [2022] SUSE LLC
+#
+# All Rights Reserved.
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of version 2 of the GNU General Public License as published
+# by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
+# more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, contact SUSE LLC.
+#
+# To contact SUSE LLC about this file by physical or electronic mail, you may
+# find current contact information at www.suse.com.
+
+module DInstaller
+  # Represents the installation phase of the manager service and allows to configure callbacks to be
+  # called when the installation phase value changes
+  class InstallationPhase
+    # Possible installation phase values
+    STARTUP = "startup"
+    CONFIG = "config"
+    INSTALL = "install"
+
+    def initialize
+      @on_change_callbacks = []
+    end
+
+    # Whether the current installation phase value is startup
+    #
+    # @return [Boolean]
+    def startup?
+      value == STARTUP
+    end
+
+    # Whether the current installation phase value is config
+    #
+    # @return [Boolean]
+    def config?
+      value == CONFIG
+    end
+
+    # Whether the current installation phase value is install
+    #
+    # @return [Boolean]
+    def install?
+      value == INSTALL
+    end
+
+    # Sets the installation phase value to startup
+    #
+    # @note Callbacks are called.
+    #
+    # @return [self]
+    def startup
+      change_to(STARTUP)
+      self
+    end
+
+    # Sets the installation phase value to config
+    #
+    # @note Callbacks are called.
+    #
+    # @return [self]
+    def config
+      change_to(CONFIG)
+      self
+    end
+
+    # Sets the installation phase value to install
+    #
+    # @note Callbacks are called.
+    #
+    # @return [self]
+    def install
+      change_to(INSTALL)
+      self
+    end
+
+    # Registers callbacks to be called when the installation phase value changes
+    #
+    # @param block [Proc]
+    def on_change(&block)
+      @on_change_callbacks << block
+    end
+
+  private
+
+    # @return [STARTUP, CONFIG, INSTALL]
+    attr_reader :value
+
+    # Changes the installation phase value and runs the callbacks
+    #
+    # @param value [STARTUP, CONFIG, INSTALL]
+    def change_to(value)
+      @value = value
+      @on_change_callbacks.each(&:call)
+    end
+  end
+end

data/lib/dinstaller/language.rb

@@ -0,0 +1,73 @@
+# frozen_string_literal: true
+
+# Copyright (c) [2022] SUSE LLC
+#
+# All Rights Reserved.
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of version 2 of the GNU General Public License as published
+# by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
+# more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, contact SUSE LLC.
+#
+# To contact SUSE LLC about this file by physical or electronic mail, you may
+# find current contact information at www.suse.com.
+
+require "yast"
+require "dinstaller/errors"
+
+Yast.import "Language"
+
+module DInstaller
+  # Backend for handling language settings
+  class Language
+    # @return [Hash<Array<String,Array<String>>>] Known languages, where the key
+    #   is the language code and value is an array containing the translated name,
+    #   the english name, etc.
+    attr_reader :languages
+
+    def initialize(logger)
+      @logger = logger
+      @languages = []
+    end
+
+    # Probes the available system languages
+    def probe
+      logger.info "Probing languages"
+      @languages = Yast::Language.GetLanguagesMap(true)
+    end
+
+    # Writes the language settings
+    def finish
+      Yast::Language.Save
+    end
+
+    # Sets the language
+    #
+    # @param name [String] Language code
+    # @raise Errors::InvalidValue
+    def language=(name)
+      raise Errors::InvalidValue unless languages.include?(name)
+
+      Yast::Language.Set(name)
+      Yast::Language.languages = Yast::Language.RemoveSuffix(name)
+    end
+
+    # Returns the selected language
+    #
+    # @return [String] Language code
+    def language
+      Yast::Language.language
+    end
+
+  private
+
+    attr_reader :logger
+  end
+end

data/lib/dinstaller/luks_activation_question.rb

@@ -0,0 +1,92 @@
+# frozen_string_literal: true
+
+# Copyright (c) [2022] SUSE LLC
+#
+# All Rights Reserved.
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of version 2 of the GNU General Public License as published
+# by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
+# more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, contact SUSE LLC.
+#
+# To contact SUSE LLC about this file by physical or electronic mail, you may
+# find current contact information at www.suse.com.
+
+require "dinstaller/question"
+
+module DInstaller
+  # This class represent a question to ask whether to activate a LUKS device
+  #
+  # Clients have to answer one of these options:
+  #   * skip: to skip the activation of the LUKS device
+  #   * decrypt: to activate the device using the provided password
+  #
+  # @example
+  #   question = LuksActivationQuestion.new("/dev/sda1", label: "mydata", size: "10 GiB")
+  #   question.password = "n0ts3cr3t"
+  #
+  #   question.answer = :skip    # in case you do not want to activate the device
+  #
+  #   question.answer = :decrypt # in case you want to decrypt with the given password
+  class LuksActivationQuestion < Question
+    # Current attempt to decrypt the device
+    #
+    # @return [Integer]
+    attr_reader :attempt
+
+    # Constructor
+    #
+    # @param device [String] name of the device to be activated (e.g., "/dev/sda1")
+    # @param label [String, nil] label of the device
+    # @param size [String, nil] size of the device (e.g., "5 GiB")
+    def initialize(device, label: nil, size: nil, attempt: 1)
+      @device = device
+      @label = label
+      @size = size
+      @attempt = attempt
+
+      super(generate_text, options: [:skip, :decrypt])
+    end
+
+    # Password to activate the LUKS device
+    #
+    # @return [String, nil] nil means a password has not been provided yet
+    attr_accessor :password
+
+  private
+
+    # @return [String]
+    attr_reader :device
+
+    # @return [String, nil]
+    attr_reader :label
+
+    # @return [String, nil]
+    attr_reader :size
+
+    # Generate the text for the question
+    #
+    # @return [String]
+    def generate_text
+      "The device #{device_info} is encrypted. Do you want to decrypt it?"
+    end
+
+    # Device information to include in the question
+    #
+    # @return [String]
+    def device_info
+      info = [device]
+      info << label unless label.to_s.empty?
+      info << "(#{size})" unless size.to_s.empty?
+
+      info.join(" ")
+    end
+  end
+end