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