source: MondoRescue/branches/3.2/mindi/mr-read-all-link @ 3224

Last change on this file since 3224 was 3224, checked in by Bruno Cornec, 7 years ago
  • mr_file_read_all_link seems to be working correctly now.
  • test file for the latest mr functions (mr-process-ldd and mr-read-all-link)
  • Property svn:executable set to *
File size: 1.4 KB
Line 
1#!/usr/bin/perl -w
2#
3# $Id$
4# Copyright B. Cornec 2005-2013
5# Provided under the GPL v2
6#
7# Get all links from a file
8#
9use strict;
10use MondoRescue::File;
11
12=pod
13
14=head1 NAME
15
16mr-read-all-link keeps track of all the links of a file and display them
17
18=head1 DESCRIPTION
19
20mr-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.
21
22=head1 SYNOPSIS
23
24mr-read-all-link /path/to/file ...
25
26=head1 ARGUMENTS
27
28=over 4
29
30=item B</path/to/file>
31
32This is the path of the binary file and for which we want its links to be included
33
34=back
35
36=head1 WEB SITES
37
38The 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/>.
39
40=head1 USER MAILING LIST
41
42For community exchanges around MondoRescue please use the list L<http://sourceforge.net/mailarchive/forum.php?forum_name=mondo-devel>
43
44=head1 AUTHORS
45
46The MondoRescue team lead by Bruno Cornec L<mailto:bruno@mondorescue.org>.
47
48=head1 COPYRIGHT
49
50MondoRescue is distributed under the GPL v2.0 license or later,
51described in the file C<COPYING> included with the distribution.
52
53=cut
54
55
56my $file = mr_file_read_all_link(@ARGV) if (defined $ARGV[0]);
57
58foreach my $f (sort keys %$file) {
59    print "$f: $file->{$f}\n";
60}
Note: See TracBrowser for help on using the repository browser.