Ignore:
Timestamp:
Dec 30, 2013, 10:46:43 AM (5 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)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.