Catch scc request timeout exception

README.md

@@ -22,13 +22,35 @@ There different ways to run the module:
 * `DISPLAY= rake run` — forces to run in ncurses mode;
 * `Y2DIR=src/ /usr/sbin/yast2 --ncurses rmt` — same as above.
 
+#### Docker Setup
+
+To run the module within a Docker container:
+
+1. Select a proper Docker container image for YaST from https://registry.opensuse.org, according to the branch, e.g.:
+
+   * On branch `master`, use `yast/head/containers_tumbleweed/yast-ruby`.
+   * On branch `SLE-15-SP6`, use `yast/sle-15/sp6/containers/yast-ruby`.
+
+2. Run the Docker container with access to the localhost network with the chosen distribution and version:
+
+   ```shell
+   docker run --network host -v "$(pwd):/usr/src/app" -w "/usr/src/app" -it registry.opensuse.org/yast/sle-15/sp6/containers/yast-ruby sh
+   ```
+
+3. On the container, install the `rmt-server` package:
+
+   ```shell
+   zypper --non-interactive install rmt-server
+   ```
+
+4. Run the YaST RMT module with `rake run` or through the other ways previously described.
+
 ### Running tests
 
 It is possible to run the specs in a Docker container:
 
-```
-docker build -t yast-rmt-image .
-docker run -it yast-rmt-image rspec
+```shell
+docker run -v "$(pwd):/usr/src/app" -w "/usr/src/app" -it registry.opensuse.org/yast/sle-15/sp6/containers/yast-ruby rake test:unit
 ```
 
 ### Resources

package/yast2-rmt.changes

@@ -1,3 +1,12 @@
+-------------------------------------------------------------------
+Thu Feb  8 16:10:29 UTC 2024 - Luis Caparroz <[email protected]>
+
+- Adds UI dialog to allow the user to retry the SCC credential validation when
+  the request times out (bsc#1218084).
+- Adds HTTP User-Agent to requests to the SCC API and changes the enpoint for
+  credential validation.
+- Version 1.3.5
+
 -------------------------------------------------------------------
 Thu Jun  9 10:47:13 UTC 2022 - Dominique Leuenberger <[email protected]>
 

package/yast2-rmt.spec

@@ -17,7 +17,7 @@
 
 
 Name:           yast2-rmt
-Version:        1.3.4
+Version:        1.3.5
 Release:        0
 
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
@@ -60,6 +60,7 @@ rake install DESTDIR="%{buildroot}"
 %defattr(-,root,root)
 %{yast_dir}/clients/*.rb
 %{yast_dir}/lib/rmt
+%{yast_dir}/lib/rmt.rb
 %{yast_desktopdir}/rmt.desktop
 %{yast_dir}/data/rmt
 

spec/rmt/wizard_scc_page_spec.rb

@@ -127,26 +127,73 @@
       expect(Yast::UI).to receive(:CloseDialog)
 
       expect_any_instance_of(Net::HTTP::Get).to receive(:basic_auth).with(config['scc']['username'], config['scc']['password'])
-
-      expect(Net::HTTP).to receive(:start).and_return(response_double)
-      expect(response_double).to receive(:code).and_return(response_code)
     end
 
-    let(:response_double) { instance_double(Net::HTTPResponse) }
+    context 'when the request completes without errors' do
+      before do
+        expect(Net::HTTP).to receive(:start).and_return(response_double)
+        expect(response_double).to receive(:code).and_return(response_code)
+      end
+
+      let(:response_double) { instance_double(Net::HTTPResponse) }
 
-    context 'when HTTP response code is 200' do
-      let(:response_code) { '200' }
+      context 'when HTTP response code is 200' do
+        let(:response_code) { '200' }
 
-      it 'returns true' do
-        expect(scc_page.scc_credentials_valid?).to be(true)
+        it 'returns true' do
+          expect(scc_page.scc_credentials_valid?).to be(true)
+        end
+      end
+
+      context 'when HTTP response code is not 200' do
+        let(:response_code) { '401' }
+
+        it 'returns false' do
+          expect(scc_page.scc_credentials_valid?).to be(false)
+        end
       end
     end
 
-    context 'when HTTP response code is not 200' do
-      let(:response_code) { '401' }
+    context 'when SCC times out and the user chooses not to try again' do
+      before do
+        expect(Yast::Popup).to receive(:ErrorAnyQuestion).and_return(false)
+        expect(Net::HTTP).to receive(:start).and_raise(Net::ReadTimeout)
+      end
+
+      context 'and the user chooses to not try again' do
+        it 'returns false' do
+          expect(scc_page.scc_credentials_valid?).to be(false)
+        end
+      end
+    end
+
+    context 'when SCC times out and the user chooses to try again' do
+      before do
+        expect(Yast::Popup).to receive(:ErrorAnyQuestion).and_return(true)
+        expect(Net::HTTP).to receive(:start).and_raise(Net::ReadTimeout)
+        expect(Net::HTTP).to receive(:start).and_return(response_double)
+      end
+
+      let(:response_double) { instance_double(Net::HTTPResponse) }
+
+      context 'when SCC responds quickly and the HTTP response code is 200' do
+        before do
+          expect(response_double).to receive(:code).and_return(200)
+        end
+
+        it 'returns true' do
+          expect(scc_page.scc_credentials_valid?).to be(true)
+        end
+      end
+
+      context 'when SCC responds quickly and the HTTP response code is not 200' do
+        before do
+          expect(response_double).to receive(:code).and_return(401)
+        end
 
-      it 'returns false' do
-        expect(scc_page.scc_credentials_valid?).to be(false)
+        it 'returns false' do
+          expect(scc_page.scc_credentials_valid?).to be(false)
+        end
       end
     end
   end

spec/rmt_spec.rb

@@ -0,0 +1,44 @@
+# Copyright (c) 2024 SUSE LLC.
+#  All Rights Reserved.
+
+#  This program is free software; you can redistribute it and/or
+#  modify it under the terms of version 2 or 3 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 about this file by physical or electronic mail,
+#  you may find current contact information at www.suse.com
+
+require 'rmt'
+
+describe RMT do
+  describe '.VERSION' do
+    subject(:version) { RMT::VERSION }
+
+    let(:package_version) do
+      filename = './package/yast2-rmt.spec'
+      version = nil
+
+      File.foreach(filename) do |line|
+        line.match(/^Version:\s+(?<version>(\d+\.?){3})$/) do |match|
+          version ||= match.named_captures['version']
+        end
+      end
+
+      raise "'#{filename}' does not include any line matching the expected package version format." if version.nil?
+
+      version
+    end
+
+    it 'returns the same version as specified in the package spec file' do
+      expect(version).to eq package_version
+    end
+  end
+end

src/lib/rmt.rb

@@ -0,0 +1,21 @@
+# Copyright (c) 2024 SUSE LLC.
+#  All Rights Reserved.
+
+#  This program is free software; you can redistribute it and/or
+#  modify it under the terms of version 2 or 3 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 about this file by physical or electronic mail,
+#  you may find current contact information at www.suse.com
+
+module RMT
+  VERSION = '1.3.5'.freeze
+end

src/lib/rmt/wizard_scc_page.rb

@@ -18,6 +18,7 @@
 
 require 'uri'
 require 'net/http'
+require 'rmt'
 require 'rmt/utils'
 require 'ui/event_dispatcher'
 
@@ -26,6 +27,8 @@ module RMT; end
 class RMT::WizardSCCPage < Yast::Client
   include ::UI::EventDispatcher
 
+  YAST_RMT_USER_AGENT = "yast2-rmt/#{RMT::VERSION}".freeze
+
   def initialize(config)
     textdomain 'rmt'
     @config = config
@@ -126,14 +129,27 @@ def scc_credentials_valid?
       )
     )
 
-    uri = URI('https://scc.suse.com/connect/organizations/systems')
+    uri = URI('https://scc.suse.com/connect/organizations/orders')
     req = Net::HTTP::Get.new(uri)
     req.basic_auth(@config['scc']['username'], @config['scc']['password'])
-
-    res = Net::HTTP.start(uri.host, uri.port, use_ssl: true) { |http| http.request(req) }
+    req['User-Agent'] = YAST_RMT_USER_AGENT
+
+    valid_credentials = nil
+    while valid_credentials.nil?
+      begin
+        res = Net::HTTP.start(uri.host, uri.port, use_ssl: true) { |http| http.request(req) }
+        valid_credentials = (res.code.to_i == 200)
+      rescue Net::ReadTimeout
+        break valid_credentials = false unless Popup.ErrorAnyQuestion(
+          _('Request Timeout'),
+          _("The request to SCC timed out.\n\nWould you like to try again?"),
+          _('Retry'), _('Cancel'), :focus_yes
+        )
+      end
+    end
 
     UI.CloseDialog
 
-    res.code.to_i == 200
+    valid_credentials
   end
 end