39 lines
1.6 KiB
Diff
39 lines
1.6 KiB
Diff
From 42d6ce2143f4439fed8c8b31e03dde655f1bbadb Mon Sep 17 00:00:00 2001
|
|
From: Frank Danapfel <frank.danapfel@redhat.com>
|
|
Date: Tue, 21 Apr 2020 14:11:36 +0200
|
|
Subject: [PATCH] Allow nodenames with dashes and/or underscores in lsn
|
|
function
|
|
|
|
---
|
|
redhat/sap_cluster_connector | 6 +++---
|
|
1 file changed, 3 insertions(+), 3 deletions(-)
|
|
|
|
diff --git a/redhat/sap_cluster_connector b/redhat/sap_cluster_connector
|
|
index a88b27a..6250887 100755
|
|
--- a/redhat/sap_cluster_connector
|
|
+++ b/redhat/sap_cluster_connector
|
|
@@ -401,7 +401,7 @@ sub list_sap_nodes {
|
|
chomp $crm_res_location_in;
|
|
#printf "DBG: where-result: %s\n", $crm_res_location_in;
|
|
my $current_node="";
|
|
- if ( $crm_res_location_in =~ /^resource\s+(\w)+\sis running on:\s+(\w+)\W*/ ) {
|
|
+ if ( $crm_res_location_in =~ /^resource\s+(\w)+\sis running on:\s+([a-zA-Z0-9_-]+)/ ) {
|
|
#printf "DBG: where-result: match\n";
|
|
$current_node = $2;
|
|
}
|
|
@@ -425,12 +425,12 @@ sub list_sap_nodes {
|
|
while (<PTEST>) {
|
|
chomp;
|
|
# printf "%s\n", $_;
|
|
- if ( /^group_color:\s*(\w+)\s+allocation score on\s+(\w+):\s+(.*)$/ ) {
|
|
+ if ( /^group_color:\s*(\w+)\s+allocation score on\s+([a-zA-Z0-9_-]+):\s+(.*)$/ ) {
|
|
# printf "DBG: group 1: %s, 2: %s, 3: %s\n", $1, $2, $3;
|
|
$resource{$1}->{nodes}->{$2}->{gc}=$3;
|
|
push(@{$resource{$1}->{priorities}->{$3}}, $2);
|
|
}
|
|
- if ( /^native_color:\s*(\w+)\s+allocation score on\s+(\w+):\s+(.*)$/ ) {
|
|
+ if ( /^native_color:\s*(\w+)\s+allocation score on\s+([a-zA-Z0-9_-]+):\s+(.*)$/ ) {
|
|
# printf "DBG: native 1: %s, 2: %s, 3: %s\n", $1, $2, $3;
|
|
$resource{$1}->{nodes}->{$2}->{nc}=$3;
|
|
push(@{$resource{$1}->{priorities}->{$3}}, $2);
|