throttling: refactor the configuration logic

  Load the resulting hash after validated the throtting configuration,in Setup.pm
  Calculate the resulting priority and update debug_message,in Jobs.pm

  Ref. note-10 in poo#192952

Author: m-dati

lib/OpenQA/Schema/ResultSet/Jobs.pm

@@ -101,14 +101,6 @@ sub latest_jobs ($self, $until = undef) {
     return @latest;
 }
 
-sub load_throttling_config ($config_string) {
-    # convert in hash the prio_throttling_parameters string configured in openqa.ini
-    return unless ($config_string && $config_string =~ /:/);
-    $config_string =~ s/\s+//g;
-    my %hash = map { my ($k, $v) = split /:/, $_, 2 } split /,/, $config_string;
-    return \%hash;
-}
-
 sub create_from_settings ($self, $settings, $scheduled_product_id = undef) {
     my %settings = %$settings;
     my %new_job_args;
@@ -167,16 +159,19 @@ sub create_from_settings ($self, $settings, $scheduled_product_id = undef) {
         }
     }
     my $throttling = OpenQA::App->singleton->config->{misc_limits}->{prio_throttling_parameters};
-    $throttling = load_throttling_config($throttling);
     # apply resources throttling control
-    if ($throttling) {
+    if ($throttling ref eq 'HASH') {
+        my $debug_msg_2;
         for my $resource (keys %$throttling) {
             next if !defined $settings{$resource};
-            my $malus = int($settings{$resource} * $throttling->{$resource});
-            $debug_msg = sprintf 'Adding priority malus to newly created job due to %s (old: %d, malus: %s)',
-              $resource, $new_job_args{priority}, $malus;
-            $new_job_args{priority} += $malus;
+            my $prio
+              = int(($settings{$resource} - $throttling->{$resource}->{reference}) * $throttling->{$resource}->{scale});
+            $debug_msg_2 .= sprintf ' %s, scale: %s;', $resource, $prio;
+            $new_job_args{priority} += $prio;
         }
+        $debug_msg .= sprintf('\nAdding priority scale to base prio %s of the job due to:\n %s',
+            $new_job_args{priority}, $debug_msg_2)
+          if $debug_msg_2;
     }
 
     my $job = $self->create(\%new_job_args);

lib/OpenQA/Setup.pm

@@ -61,13 +61,29 @@ sub _load_config ($app, $defaults, $mode_specific_defaults) {
     return $config;
 }
 
-sub validate_prio_throttling_format ($config) {
+sub _load_prio_throttling($config) {
     my $throttling = $config->{misc_limits}->{prio_throttling_parameters};
-    if ($throttling && length $throttling) {
-        $config->{misc_limits}->{prio_throttling_parameters} =~ s/\s+//g;
-        die("Wrong formatting for 'prio_throttling_parameters' in openqa.ini")
-          unless ($throttling =~ /^[A-Z_]+:\d+(?:,[A-Z_]+:\d+)*$/i);
+    my $ret;
+    if ($throttling) {
+        my $n = qr/[+-]?(?:\d+\.?\d*|\.\d+)/;    # number
+        my $u = qr/([A-Z_]+):($n)(?::($n))?/i;    # Key:N:M = $1:$2:$3
+
+        # remove spaces and validate comma-separated keys sequence
+        $throttling =~ s/\s+//g;
+        die("Wrong format in openqa.ini 'prio_throttling_parameters': $throttling")
+          unless ($throttling =~ qr/^$u(?:,$u)*$/i);
+        #
+        my %hash;
+        # Implicit iteration along the sequence
+        while ($throttling =~ /,?$u/g) {
+            $hash{$1} = {scale => $2, reference => $3 // 0};
+        }
+        $ret = \%hash;
+    }
+    else {
+        $ret = undef;
     }
+    $config->{misc_limits}->{prio_throttling_parameters} = $ret;
 }
 
 sub read_config ($app) {
@@ -304,7 +320,7 @@ sub read_config ($app) {
         $config->{influxdb}->{ignored_failed_minion_jobs} = [split(/\s+/, $minion_fail_job_blocklist)];
     }
 
-    validate_prio_throttling_format($config);
+    _load_prio_throttling($config);
 
     my $results = delete $global_config->{parallel_children_collapsable_results};
     $global_config->{parallel_children_collapsable_results_sel}