From e7184a24f3d4ffaa7cc8828ef4579e808d81c03e Mon Sep 17 00:00:00 2001
From: david <schrader@molgen.mpg.de>
Date: Tue, 8 Feb 2022 13:44:17 +0100
Subject: [PATCH] mxmirror: Add new labels

---
 mxmirror/mxmirror | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mxmirror/mxmirror b/mxmirror/mxmirror
index 6e67b41..9a1ceec 100755
--- a/mxmirror/mxmirror
+++ b/mxmirror/mxmirror
@@ -329,7 +329,7 @@ sub convert_to_sourcepath {
 
     my ($jbod, $path, $host, $hostpath, $partition);
 
-    if(($jbod, $path) = $string =~ /^([XCMD][\da-f]\d\d\d)(.*?)$/) {
+    if(($jbod, $path) = $string =~ /^([XCMD][\dA-Z]\d\d\d)(.*?)$/) {
         unless(defined $jbodmap->{$jbod}) {
             printf STDERR "**ERROR: unknown jbod: $string\n";
             return undef
@@ -393,7 +393,7 @@ sub convert_to_destinationpath {
 
     my ($jbod, $path, $host, $hostpath, $partition);
 
-    if(($jbod, $path) = $string =~ /^([XCMD][\da-f]\d\d\d)(.*?)$/) {
+    if(($jbod, $path) = $string =~ /^([XCMD][\dA-Z]\d\d\d)(.*?)$/) {
         unless(defined $jbodmap->{$jbod}) {
             printf STDERR "**ERROR: unknown jbod: $string\n";
             return undef;
@@ -518,7 +518,7 @@ sub read_jbodmap {
     my $map = {};
 
     foreach(<F>) {
-        next unless (m(/amd/(.*?)/[XCMD]/([XCMD][\da-f]\d\d\d)));
+        next unless (m(/amd/(.*?)/[XCMD]/([XCMD][\dA-Z]\d\d\d)));
         $map->{$2} = $1;
     }