Changeset 3501 in MondoRescue for branches

Timestamp:

Feb 9, 2016, 12:59:53 PM (9 years ago)

Author:

Bruno Cornec

Message:

• mr-label now works with UUID having a "-" and checked also for LABEL

File:

• branches/3.2/MondoRescue/bin/mr-label (modified) (4 diffs)

branches/3.2/MondoRescue/bin/mr-label

@@ -116 +116 @@
 die "Unable no label/uuid defined" if ((not defined $label) && (not defined $uuid));
 
-my($inputfh, $buffer, $offset, $length, $hexlabel, $newbuf);
+my $inputf  = $ARGV[0];
+die "$0: no input file defined" if (not defined $inputf);
 
-$inputf  = $ARGV[0];
-die "$0: no input file defined" if (not defined $inputf);
+my($inputfh, $buffer, $offset, $length, $hexlabel);
 
 open($inputfh,  "+< $inputf") || die "$0: cannot open $inputf for reading/writing: $!";
@@ -132 +132 @@
     $offset = 39;
     $length = 4;
-    $newbuf = "";
 } else {
     die "Nothing to do no label/uuid defined";
@@ -150 +149 @@
 } elsif (defined $uuid) {
     my ($hex) = unpack( 'H*', $buffer );
-    #for my $d (split('',$buffer)) {
-    #pb_log(1,"Char analyzed: ".hex($d)."\n");
-    #$newbuf = $d.$newbuf;
-    #}
     pb_log(1,"Previous hex was ***$hex***\n");
     my @loc = ($hex =~ m/../g);
@@ -167 +162 @@
     pb_log(1,"New label is ***$hexlabel***\n");
 } elsif (defined $uuid) {
+    # Remove separator
+    $uuid =~ s/-//;
     pb_log(1,"New uuid is ***$uuid***\n");
     my @loc = ($uuid =~ m/../g);