Changeset 3230 in MondoRescue for branches

Timestamp:

Dec 30, 2013, 10:46:43 AM (11 years ago)

Author:

Bruno Cornec

Message:

• the mr-* scripts now behave the same way as expeted in mindi (just return the values. More pretty printing is available with -v)

Location:

branches/3.2/MondoRescue/bin

Files:

• mr-process-ldd (modified) (1 diff)
• mr-read-all-link (modified) (1 diff)

branches/3.2/MondoRescue/bin/mr-process-ldd

@@ -56 +56 @@
 my $file = mr_file_process_ldd(@ARGV) if (defined $ARGV[0]);
 
+my $verbose = undef;
+$verbose = 1 if ($ARGV[0] eq "-v");
+
 foreach my $f (sort keys %$file) {
-    print "$f\n";
-    print "--\n";
+    print "$f\n" if (defined $verbose);
+    print "--\n" if (defined $verbose);
     foreach my $l (@{$file->{$f}}) {
         print "$l\n";
     }
-    print "--\n";
+    print "--\n" if (defined $verbose);
 }

branches/3.2/MondoRescue/bin/mr-read-all-link

@@ -57 +57 @@
 my $file = mr_file_read_all_link(@ARGV) if (defined $ARGV[0]);
 
+my $verbose = undef;
+$verbose = 1 if ($ARGV[0] eq "-v");
+
 #print Dumper($file);
 
 foreach my $f (sort keys %$file) {
-    print "$f\n";
-    print "--\n";
+    print "$f\n" if (defined $verbose);
+    print "--\n" if (defined $verbose);
     #print Dumper($f);
     foreach my $l (@{$file->{$f}}) {
         print "$l\n";
     }
-    print "--\n";
+    print "--\n" if (defined $verbose);
 }