Changeset 3230 for branches/3.2


Ignore:
Timestamp:
Dec 30, 2013, 10:46:43 AM (6 years ago)
Author:
bruno
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:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/3.2/MondoRescue/bin/mr-process-ldd

    r3229 r3230  
    5656my $file = mr_file_process_ldd(@ARGV) if (defined $ARGV[0]);
    5757
     58my $verbose = undef;
     59$verbose = 1 if ($ARGV[0] eq "-v");
     60
    5861foreach my $f (sort keys %$file) {
    59     print "$f\n";
    60     print "--\n";
     62    print "$f\n" if (defined $verbose);
     63    print "--\n" if (defined $verbose);
    6164    foreach my $l (@{$file->{$f}}) {
    6265        print "$l\n";
    6366    }
    64     print "--\n";
     67    print "--\n" if (defined $verbose);
    6568}
  • branches/3.2/MondoRescue/bin/mr-read-all-link

    r3228 r3230  
    5757my $file = mr_file_read_all_link(@ARGV) if (defined $ARGV[0]);
    5858
     59my $verbose = undef;
     60$verbose = 1 if ($ARGV[0] eq "-v");
     61
    5962#print Dumper($file);
    6063
    6164foreach my $f (sort keys %$file) {
    62     print "$f\n";
    63     print "--\n";
     65    print "$f\n" if (defined $verbose);
     66    print "--\n" if (defined $verbose);
    6467    #print Dumper($f);
    6568    foreach my $l (@{$file->{$f}}) {
    6669        print "$l\n";
    6770    }
    68     print "--\n";
     71    print "--\n" if (defined $verbose);
    6972}
Note: See TracChangeset for help on using the changeset viewer.