source: MondoRescue/branches/3.2/MondoRescue/bin/mr-read-all-link@ 3231

#!/usr/bin/perl -w
#
# $Id$
# Copyright B. Cornec 2005-2014
# Provided under the GPL v2
#
# Get all links from a file
#
use strict;
use Data::Dumper;
use MondoRescue::File;

=pod

=head1 NAME

mr-read-all-link keeps track of all the links of a file and display them

=head1 DESCRIPTION

mr-read-all-link keeps track of all the links of a file and display them, by analyzing the path under which the file is located and mentioning all links that are encountered so that all the required content for a chroot environment are given back correctly.

=head1 SYNOPSIS

mr-read-all-link /path/to/file ...

=head1 ARGUMENTS

=over 4

=item B</path/to/file> 

This is the path of the binary file and for which we want its links to be included

=back

=head1 WEB SITES

The main Web site of the project is available at L<http://www.mondorescue.org>. Bug reports should be filled using the trac instance of the project at L<http://trac.mondorescue.org/>.

=head1 USER MAILING LIST

For community exchanges around MondoRescue please use the list L<http://sourceforge.net/mailarchive/forum.php?forum_name=mondo-devel>

=head1 AUTHORS

The MondoRescue team lead by Bruno Cornec L<mailto:bruno@mondorescue.org>.

=head1 COPYRIGHT

MondoRescue is distributed under the GPL v2.0 license or later,
described in the file C<COPYING> included with the distribution.

=cut


my $file = mr_file_read_all_link(@ARGV) if (defined $ARGV[0]);

my $verbose = undef;
$verbose = 1 if ((defined $ARGV[0]) && ($ARGV[0] eq "-v"));

#print Dumper($file);

foreach my $f (sort keys %$file) {
    print "$f\n" if (defined $verbose);
    print "--\n" if (defined $verbose);
    #print Dumper($f);
    foreach my $l (@{$file->{$f}}) {
        print "$l\n";
    }
    print "--\n" if (defined $verbose);
}