source: MondoRescue/branches/3.2/MondoRescue/bin/mr-disk-list@ 3553

#!/usr/bin/perl -w
#
# $Id$
# Copyright B. Cornec 2005-2016
# Provided under the GPL v2
#
# Test mr_disk_list to get the list of all disks
#
use strict;
use Data::Dumper;
# For pbdebug
use ProjectBuilder::Base;
use MondoRescue::Disk;

=pod

=head1 NAME

mr-disk-list lists all the disks on the system

=head1 DESCRIPTION

mr-disk-list lists all the disks on the system

=head1 SYNOPSIS

mr-disk-list

=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

if ((defined $ARGV[0]) && ($ARGV[0] eq "-v")) {
    shift;
    $pbdebug = 2;
}

my $txt = "";
my $txt2 = "";
my @ans;

@ans = mr_disk_list();
pb_log(0, "The list of disks on this system are: @ans\n");

exit(0);