From e1df08b3ba1544017ea1e7685ba2756ef748dc85 Mon Sep 17 00:00:00 2001
From: Wang Jun <badboywj@gmail.com>
Date: Thu, 10 Nov 2022 17:18:16 +0800
Subject: [PATCH] Add sap autoyast installation profile for sle15

---
 .../create_hdd/create_hdd_sap.xml.ep          | 303 ++++++++++++++++++
 lib/migration.pm                              |   2 +-
 lib/registration.pm                           |   3 +-
 lib/services/registered_addons.pm             |   9 +-
 lib/utils.pm                                  |   2 +-
 schedule/migration/migration_offline_sap.yaml |  59 ++++
 schedule/migration/migration_online_sap.yaml  |  36 +++
 schedule/yast/autoyast/autoyast_sap.yaml      |  51 +++
 tests/console/check_system_info.pm            |   1 +
 9 files changed, 461 insertions(+), 5 deletions(-)
 create mode 100644 data/autoyast_sle15/create_hdd/create_hdd_sap.xml.ep
 create mode 100644 schedule/migration/migration_offline_sap.yaml
 create mode 100644 schedule/migration/migration_online_sap.yaml
 create mode 100644 schedule/yast/autoyast/autoyast_sap.yaml

diff --git a/data/autoyast_sle15/create_hdd/create_hdd_sap.xml.ep b/data/autoyast_sle15/create_hdd/create_hdd_sap.xml.ep
new file mode 100644
index 000000000000..aa20282f6acd
--- /dev/null
+++ b/data/autoyast_sle15/create_hdd/create_hdd_sap.xml.ep
@@ -0,0 +1,303 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE profile>
+<profile xmlns="http://www.suse.com/1.0/yast2ns" xmlns:config="http://www.suse.com/1.0/configns">
+  <suse_register>
+    <do_registration config:type="boolean">true</do_registration>
+    <install_updates config:type="boolean">true</install_updates>
+    <slp_discovery t="boolean">false</slp_discovery>
+    % if ($check_var->('SLE_PRODUCT', 'sles4sap')) {
+    <reg_code><%= $get_var->('SCC_REGCODE_SLES4SAP') %></reg_code>
+    % } else {
+    <reg_code><%= $get_var->('SCC_REGCODE') %></reg_code>
+    % }
+    <reg_server><%= $get_var->('SCC_URL') %></reg_server>
+    % if (keys %$addons) {
+    <addons config:type="list">
+      % while (my ($key, $addon) = each (%$addons)) {
+      <addon>
+        <name><%= $addon->{name} %></name>
+        <version><%= $addon->{version} %></version>
+        <arch><%= $addon->{arch} %></arch>
+        % if ($key eq 'we' and $check_var->('SLE_PRODUCT', 'sles')) {
+        <reg_code><%= $get_var->('SCC_REGCODE_WE') %></reg_code>
+        % }
+        % if ($key eq 'we' and $check_var->('SLE_PRODUCT', 'sled')) {
+        <reg_code><%= $get_var->('SCC_REGCODE') %></reg_code>
+        % }
+        % if ($key eq 'rt') {
+        <reg_code><%= $get_var->('SCC_REGCODE_RT') %></reg_code>
+        % }
+        % if ($key eq 'ltss') {
+        <reg_code><%= $get_var->('SCC_REGCODE_LTSS') %></reg_code>
+        % }
+        % if ($key eq 'sapapp') {
+        <reg_code><%= $get_var->('SCC_REGCODE_LTSS') %></reg_code>
+        % }
+        % if ($key eq 'ha') {
+          % if ($check_var->('SLE_PRODUCT', 'sles4sap')) {
+        <reg_code><%= $get_var->('SCC_REGCODE_SLES4SAP') %></reg_code>
+          % } else {
+        <reg_code><%= $get_var->('SCC_REGCODE_HA') %></reg_code>
+          % }
+        % }
+      </addon>
+      % }
+      % if ($check_var->('SLE_PRODUCT', 'sles4sap')) {
+      <addon>
+        <name>sle-module-sap-applications</name>
+        <version>{{VERSION}}</version>
+        <arch>{{ARCH}}</arch>
+      </addon>
+      % }
+    </addons>
+    %}
+  </suse_register>
+  <bootloader>
+    <global>
+      <timeout config:type="integer">-1</timeout>
+    </global>
+    % if ($check_var->('UEFI', '1')) {
+    <loader_type>grub2-efi</loader_type>
+    % }
+    % unless ($check_var->('UEFI', '1')) {
+    <loader_type>grub2</loader_type>
+    % }
+  </bootloader>
+  <general>
+    <mode>
+      % if ($check_var->('BACKEND', 'ipmi') or $check_var->('BACKEND', 'svirt')) {
+      <final_reboot config:type="boolean">true</final_reboot>
+      % }
+      <confirm config:type="boolean">false</confirm>
+    </mode>
+    <signature-handling>
+      <accept_unsigned_file config:type="boolean">true</accept_unsigned_file>
+      <accept_unknown_gpg_key config:type="boolean">true</accept_unknown_gpg_key>
+      <accept_non_trusted_gpg_key config:type="boolean">true</accept_non_trusted_gpg_key>
+      <import_gpg_key config:type="boolean">true</import_gpg_key>
+    </signature-handling>
+  </general>
+  <partitioning config:type="list">
+    <drive>
+      <disklabel>gpt</disklabel>
+      <initialize config:type="boolean">true</initialize>
+      % if ($check_var->('ARCH', 's390x')) {
+      <enable_snapshots config:type="boolean">true</enable_snapshots>
+      <type config:type="symbol">CT_DISK</type>
+      <partitions config:type="list">
+        <partition>
+          <create config:type="boolean">true</create>
+          <format config:type="boolean">true</format>
+          <filesystem config:type="symbol">ext2</filesystem>
+          <mount>/boot/zipl</mount>
+          <fstopt>acl,user_xattr</fstopt>
+          <mountby config:type="symbol">path</mountby>
+          <partition_id config:type="integer">131</partition_id>
+          <partition_nr config:type="integer">1</partition_nr>
+          <partition_type>primary</partition_type>
+          <size>500M</size>
+        </partition>
+        <partition>
+          <create config:type="boolean">true</create>
+          <filesystem config:type="symbol">swap</filesystem>
+          <format config:type="boolean">true</format>
+          <mount>swap</mount>
+          <mountby config:type="symbol">uuid</mountby>
+          <partition_id config:type="integer">130</partition_id>
+          <partition_nr config:type="integer">2</partition_nr>
+          <partition_type>primary</partition_type>
+          <size>2G</size>
+        </partition>
+        <partition>
+          <create config:type="boolean">true</create>
+          <format config:type="boolean">true</format>
+          <mount>/</mount>
+          <mountby config:type="symbol">uuid</mountby>
+          <partition_id config:type="integer">131</partition_id>
+          <partition_nr config:type="integer">3</partition_nr>
+          <partition_type>primary</partition_type>
+          <size>max</size>
+        </partition>
+      </partitions>
+      % }
+      % unless ($check_var->('ARCH', 's390x')) {
+      <partitions config:type="list">
+        % if ($check_var->('ARCH', 'aarch64') or $check_var->('UEFI', '1')) {
+        <partition>
+          <mountby config:type="symbol">uuid</mountby>
+          <create config:type="boolean">true</create>
+          <filesystem config:type="symbol">vfat</filesystem>
+          <format config:type="boolean">true</format>
+          <fstopt>umask=0002,utf8=true</fstopt>
+          <mount>/boot/efi</mount>
+          <size>512M</size>
+        </partition>
+        % }
+        <partition>
+          <create config:type="boolean">true</create>
+          <filesystem config:type="symbol">swap</filesystem>
+          <format config:type="boolean">true</format>
+          <mount>swap</mount>
+          <mountby config:type="symbol">uuid</mountby>
+          <partition_id config:type="integer">130</partition_id>
+          <resize config:type="boolean">false</resize>
+          <size>2G</size>
+        </partition>
+        <partition>
+          <create config:type="boolean">true</create>
+          <create_subvolumes config:type="boolean">true</create_subvolumes>
+          <filesystem config:type="symbol">btrfs</filesystem>
+          <format config:type="boolean">true</format>
+          <mount>/</mount>
+          <mountby config:type="symbol">uuid</mountby>
+          <partition_id config:type="integer">131</partition_id>
+          <resize config:type="boolean">false</resize>
+          <size>max</size>
+        </partition>
+      </partitions>
+      % }
+      <use>all</use>
+    </drive>
+  </partitioning>
+  <networking>
+    <interfaces config:type="list">
+      <interface>
+        <bootproto>dhcp</bootproto>
+        <device>eth0</device>
+        <dhclient_set_default_route>yes</dhclient_set_default_route>
+        <startmode>auto</startmode>
+      </interface>
+    </interfaces>
+  </networking>
+  <firewall>
+    <enable_firewall config:type="boolean">true</enable_firewall>
+    <start_firewall config:type="boolean">true</start_firewall>
+  </firewall>
+  <report>
+    <errors>
+      <log config:type="boolean">true</log>
+      <show config:type="boolean">true</show>
+      <timeout config:type="integer">0</timeout>
+    </errors>
+    <messages>
+      <log config:type="boolean">true</log>
+      <show config:type="boolean">true</show>
+      <timeout config:type="integer">0</timeout>
+    </messages>
+    <warnings>
+      <log config:type="boolean">true</log>
+      <show config:type="boolean">true</show>
+      <timeout config:type="integer">0</timeout>
+    </warnings>
+    <yesno_messages>
+      <log config:type="boolean">true</log>
+      <show config:type="boolean">true</show>
+      <timeout config:type="integer">0</timeout>
+    </yesno_messages>
+  </report>
+  <keyboard>
+    <keyboard_values>
+      <delay/>
+      <discaps config:type="boolean">false</discaps>
+      <numlock>bios</numlock>
+      <rate/>
+    </keyboard_values>
+    <keymap>english-us</keymap>
+  </keyboard>
+  <language>
+    <language>en_US</language>
+    <languages/>
+  </language>
+  <ntp-client>
+    <ntp_policy>auto</ntp_policy>
+  </ntp-client>
+  <software>
+    <products config:type="list">
+      % if ($check_var->('SLE_PRODUCT','sles4sap')) {
+      <product>SLES_SAP</product>
+      % } else {
+      <product><%= uc $get_var->('SLE_PRODUCT') %></product>
+      % }
+    </products>
+    <packages config:type="list">
+      <!-- Workaround for bsc#1202234: [addon]-release packages are missing after autoyast installation. -->
+      % foreach (values %$addons) {
+      <package><%= lc($_->{name}) %>-release</package>
+      % }
+      <!-- end of workaround -->
+      % if ($check_var->('SLE_PRODUCT', 'sles4sap')) {
+      <package>sle-module-sap-applications-release</package>
+      % }
+    </packages>
+    <patterns config:type="list">
+      % for my $pattern (@$patterns) {
+      <pattern><%= $pattern %></pattern>
+      % }
+    </patterns>
+  </software>
+  <services-manager>
+    % if ($check_var->('DESKTOP', 'gnome')) {
+    <default_target>graphical</default_target>
+    % }
+    % if ($check_var->('DESKTOP', 'textmode')) {
+    <default_target>multi-user</default_target>
+    % }
+    <services>
+      <disable config:type="list"/>
+      <enable config:type="list">
+        <service>sshd</service>
+      </enable>
+    </services>
+  </services-manager>
+  <timezone>
+    <hwclock>UTC</hwclock>
+    <timezone>Europe/Berlin</timezone>
+  </timezone>
+  <users config:type="list">
+    % unless ($check_var->('ROOTONLY', '1')) {
+    <user config:type="map">
+      <authorized_keys config:type="list"/>
+      <encrypted config:type="boolean">true</encrypted>
+      % if ($check_var->('ARCH', 'ppc64le')) {
+      <fullname>Bernhard M. Wiedemann</fullname>
+      % }
+      % unless ($check_var->('ARCH', 'ppc64le')) {
+      <fullname>bernhard</fullname>
+      % }
+      <gid>100</gid>
+      <home>/home/bernhard</home>
+      <password_settings config:type="map">
+        <expire/>
+        <flag/>
+        <inact>-1</inact>
+        <max>99999</max>
+        <min>0</min>
+        <warn>7</warn>
+      </password_settings>
+      <shell>/bin/bash</shell>
+      <uid>1000</uid>
+      <user_password>$6$vYbbuJ9WMriFxGHY$gQ7shLw9ZBsRcPgo6/8KmfDvQ/lCqxW8/WnMoLCoWGdHO6Touush1nhegYfdBbXRpsQuy/FTZZeg7gQL50IbA/</user_password>
+      <username>bernhard</username>
+    </user>
+    % }
+    <user config:type="map">
+      <authorized_keys config:type="list"/>
+      <encrypted config:type="boolean">true</encrypted>
+      <fullname>root</fullname>
+      <gid>0</gid>
+      <home>/root</home>
+      <password_settings config:type="map">
+        <expire/>
+        <flag/>
+        <inact/>
+        <max/>
+        <min/>
+        <warn/>
+      </password_settings>
+      <shell>/bin/bash</shell>
+      <uid>0</uid>
+      <user_password>$6$gdDHoMtVLjs4CCzf$2tSvAdgvqrKo84pA59bEjZRh7IGMfv4u0Yl4hrRzPgFPWLd8RXWdn/boT7yM3K3BlTk57qyR0TZ/nMb9rlpzx1</user_password>
+      <username>root</username>
+    </user>
+  </users>
+</profile>
diff --git a/lib/migration.pm b/lib/migration.pm
index dcda4468af25..32fe28605830 100644
--- a/lib/migration.pm
+++ b/lib/migration.pm
@@ -93,7 +93,7 @@ sub register_system_in_textmode {
         register_addons_cmd();
     }
     else {
-        yast_scc_registration();
+        yast_scc_registration(yast2_opts => '--ncurses');
     }
     # Once SCC registration is done, disable IN_PATCH_SLE so it does not interfere
     # with further calls to accept_addons_license (in upgrade for example)
diff --git a/lib/registration.pm b/lib/registration.pm
index bac7dbde73c4..d2432f2c1587 100644
--- a/lib/registration.pm
+++ b/lib/registration.pm
@@ -279,7 +279,8 @@ sub register_product {
     if (get_var('SMT_URL')) {
         assert_script_run('SUSEConnect --url ' . get_var('SMT_URL') . ' ' . uc(get_var('SLE_PRODUCT')) . '/' . scc_version(get_var('HDDVERSION')) . '/' . get_var('ARCH'), 200);
     } else {
-        assert_script_run('SUSEConnect -r ' . get_required_var('SCC_REGCODE'), 200);
+        my $scc_reg_code = is_sles4sap ? get_required_var('SCC_REGCODE_SLES4SAP') : get_required_var('SCC_REGCODE');
+        assert_script_run('SUSEConnect -r ' . $scc_reg_code, 200);
     }
 }
 
diff --git a/lib/services/registered_addons.pm b/lib/services/registered_addons.pm
index 530a1200dd2e..f2c86c38f569 100644
--- a/lib/services/registered_addons.pm
+++ b/lib/services/registered_addons.pm
@@ -29,7 +29,12 @@ sub suseconnect_ls {
 sub check_registered_system {
     my ($system) = @_;
     my $pro = uc get_var('SLE_PRODUCT');
-    $pro = 'SLE_' . $pro if ($pro eq 'HPC');
+    if ($pro eq 'HPC') {
+        $pro = 'SLE_' . $pro;
+    }
+    elsif ($pro eq 'SLES4SAP') {
+        $pro = 'SLES_SAP';
+    }
     suseconnect_ls($pro);
     my $ver = $system =~ s/\-SP/./r;
     script_run("SUSEConnect -s | grep " . $ver, die_on_timeout => 0);
@@ -88,7 +93,7 @@ sub check_suseconnect_cmd {
     my $status_out = script_output("SUSEConnect --status-text", 120);
     diag "$status_out";
     for (my $i = 0; $i < @addons; $i = $i + 1) {
-        next if ($addons[$i] =~ /^SLE(S|D|_HPC)$|^sle-module-packagehub-subpackages$/);
+        next if ($addons[$i] =~ /^SLE(S|D|_HPC|S_SAP)$|^sle-module-packagehub-subpackages$/);
         diag "$addons[$i]";
         die "$addons[$i] is not existed at SUSEConnect --list-extensions" if ($ls_out !~ /Deactivate(.*)$addons[$i]/);
         die "$addons[$i] is not existed at SUSEConnect --status-text" if ($status_out !~ /$addons[$i]/);
diff --git a/lib/utils.pm b/lib/utils.pm
index 63111ac51901..bed2b8a51b3a 100644
--- a/lib/utils.pm
+++ b/lib/utils.pm
@@ -681,7 +681,7 @@ Enables the install DVDs if they were used during the installation.
 sub zypper_enable_install_dvd {
     # If DVD Packages is used we need to (re-)enable the local repos
     # see FATE#325541
-    zypper_call('mr -e -l') if (is_sle('15+') and (get_var('ISO_1', '') =~ /SLE-.*-Packages-.*\.iso/ || check_var('FLAVOR', 'Full')));
+    zypper_call('mr -e -l') if (is_sle('15+') and (get_var('ISO_1', '') =~ /SLE-.*-Packages-.*\.iso/ || check_var('FLAVOR', 'Full') || ((get_required_var('FLAVOR') =~ /Migration/) && get_var('MEDIA_UPGRADE', ''))));
     zypper_call 'ref';
 }
 
diff --git a/schedule/migration/migration_offline_sap.yaml b/schedule/migration/migration_offline_sap.yaml
new file mode 100644
index 000000000000..2bc40f6915fc
--- /dev/null
+++ b/schedule/migration/migration_offline_sap.yaml
@@ -0,0 +1,59 @@
+---
+name: migration_offline_sap
+description: >
+  SAP offline migration with netweaver
+vars:
+  NW: 'nfs://1c119.qa.suse.de/srv/nfs/sap/NW75_CLUSTER'
+  INSTANCE_ID: '00'
+  INSTANCE_SID: 'QAD'
+  INSTANCE_TYPE: 'ASCS'
+  SHUTDOWN_NEEDS_AUTH: '0'
+  DM_NEEDS_USERNAME: '1'
+  ROOTONLY: '1'
+schedule:
+  - '{{handle_bootimg}}'
+  - installation/bootloader
+  - installation/welcome
+  - installation/upgrade_select
+  - installation/scc_registration
+  - installation/addon_products_sle
+  - installation/resolve_dependency_issues
+  - installation/installation_overview
+  - installation/disable_grub_timeout
+  - installation/start_install
+  - installation/await_install
+  - installation/logs_from_installation_system
+  - installation/reboot_after_installation
+  - '{{handle_reboot}}'
+  - installation/first_boot
+  - migration/post_upgrade
+  - console/system_prepare
+  - console/consoletest_setup
+  - console/zypper_lr
+  - '{{test_sles4sap}}'
+  - boot/grub_test_snapshot
+  - boot/snapper_rollback
+
+conditional_schedule:
+  handle_bootimg:
+    BACKEND:
+      qemu:
+        - migration/version_switch_origin_system
+        - boot/boot_to_desktop
+        - update/patch_sle
+        - migration/record_disk_info
+        - migration/reboot_to_upgrade
+        - migration/version_switch_upgrade_target
+  handle_reboot:
+    ARCH:
+      ppc64le:
+        - installation/handle_reboot
+      x86_64:
+        - installation/grub_test
+  test_sles4sap:
+    TEST_SLES4SAP:
+      1:
+        - sles4sap/patterns
+        - sles4sap/saptune
+        - sles4sap/netweaver_test_instance
+        - sles4sap/sapconf
diff --git a/schedule/migration/migration_online_sap.yaml b/schedule/migration/migration_online_sap.yaml
new file mode 100644
index 000000000000..87e9aa307d43
--- /dev/null
+++ b/schedule/migration/migration_online_sap.yaml
@@ -0,0 +1,36 @@
+---
+name: migration_online_sap
+description: >
+  SAP online migration with netweaver
+vars:
+  NW: 'nfs://1c119.qa.suse.de/srv/nfs/sap/NW75_CLUSTER'
+  INSTANCE_ID: '00'
+  INSTANCE_SID: 'QAD'
+  INSTANCE_TYPE: 'ASCS'
+  SHUTDOWN_NEEDS_AUTH: '0'
+  DM_NEEDS_USERNAME: '1'
+  ROOTONLY: '1'
+schedule:
+  - migration/version_switch_origin_system
+  - installation/bootloader
+  - migration/online_migration/online_migration_setup
+  - migration/online_migration/register_system
+  - migration/online_migration/zypper_patch
+  - installation/install_service
+  - migration/version_switch_upgrade_target
+  - migration/online_migration/pre_migration
+  - migration/online_migration/zypper_migration
+  - migration/online_migration/post_migration
+  - console/system_prepare
+  - '{{test_sles4sap}}'
+  - boot/grub_test_snapshot
+  - boot/snapper_rollback
+
+conditional_schedule:
+  test_sles4sap:
+    TEST_SLES4SAP:
+      1:
+        - sles4sap/patterns
+        - sles4sap/saptune
+        - sles4sap/netweaver_test_instance
+        - sles4sap/sapconf
diff --git a/schedule/yast/autoyast/autoyast_sap.yaml b/schedule/yast/autoyast/autoyast_sap.yaml
new file mode 100644
index 000000000000..0398ab8d4c7d
--- /dev/null
+++ b/schedule/yast/autoyast/autoyast_sap.yaml
@@ -0,0 +1,51 @@
+---
+name: create_hdd_sap
+description: >
+  SAP autoYaST installation and publish qcow for SAP migration standalone
+  cases.
+vars:
+  AUTOYAST: autoyast_sle15/create_hdd/create_hdd_sap.xml.ep
+  AUTOYAST_PREPARE_PROFILE: '1'
+  NW: 'nfs://1c119.qa.suse.de/srv/nfs/sap/NW75_CLUSTER'
+  INSTANCE_ID: '00'
+  INSTANCE_SID: 'QAD'
+  INSTANCE_TYPE: 'ASCS'
+  QEMU_VIRTIO_RNG: '0'
+schedule:
+  - autoyast/prepare_profile
+  - installation/bootloader_start
+  - autoyast/installation
+  - autoyast/console
+  - autoyast/login
+  - autoyast/wicked
+  - autoyast/repos
+  - autoyast/clone
+  - autoyast/logs
+  - '{{handle_reboot}}'
+  - '{{test_sles4sap}}'
+  - console/system_prepare
+  - console/hostname
+  - console/force_scheduled_tasks
+  - '{{handle_deregistration}}'
+  - shutdown/grub_set_bootargs
+  - shutdown/cleanup_before_shutdown
+  - shutdown/shutdown
+
+conditional_schedule:
+  handle_reboot:
+    ARCH:
+      x86_64:
+        - autoyast/autoyast_reboot
+        - installation/grub_test
+        - installation/first_boot
+  handle_deregistration:
+    SCC_DEREGISTER:
+      1:
+        - console/scc_deregistration
+  test_sles4sap:
+    TEST_SLES4SAP:
+      1:
+        - console/system_prepare
+        - sles4sap/patterns
+        - sles4sap/netweaver_install
+        - sles4sap/netweaver_test_instance
diff --git a/tests/console/check_system_info.pm b/tests/console/check_system_info.pm
index 5463202a78a6..0783c258c9e2 100644
--- a/tests/console/check_system_info.pm
+++ b/tests/console/check_system_info.pm
@@ -49,6 +49,7 @@ sub check_product {
         SLES => 'SLES' . $myver,
         SLED => 'SLED' . $myver,
         SLE_HPC => 'SLE-Product-HPC-' . $myver,
+        SLES4SAP => 'SLE-' . $myver . '-SAP',
         leap => "openSUSE-Leap",
         Media_HPC => $myver . '-HPC',
     );