diff options
author | Mystery Man <unknown@mandriva.org> | 2005-09-02 22:32:32 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2005-09-02 22:32:32 +0000 |
commit | bd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4 (patch) | |
tree | 7a03e33fba584c7014f990f1448a337627d50484 /rescue/lsparts | |
parent | 4da1048be0a7528a1a9f55e6f87cb2766508473b (diff) | |
download | drakx-10_3_0_53mdk.tar drakx-10_3_0_53mdk.tar.gz drakx-10_3_0_53mdk.tar.bz2 drakx-10_3_0_53mdk.tar.xz drakx-10_3_0_53mdk.zip |
This commit was manufactured by cvs2svn to create tagV10_3_0_53mdk
'V10_3_0_53mdk'.
Diffstat (limited to 'rescue/lsparts')
-rwxr-xr-x | rescue/lsparts | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/rescue/lsparts b/rescue/lsparts deleted file mode 100755 index 9f0fac925..000000000 --- a/rescue/lsparts +++ /dev/null @@ -1,45 +0,0 @@ -#!/usr/bin/perl -# -# Main author Pascal Rigaux (pixel@mandriva.com) -# Put together by Guillaume Cottenceau -# -# Copyright 1999-2005 Mandriva -# -# This software may be freely redistributed under the terms of the GNU -# public license. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# -# Detects partition types using signatures -# - -use lib qw(../perl-install /usr/lib/libDrakX); -use common; -use fs::type; -use fs::proc_partitions; - -my $params = join '', @ARGV; -my $verbose = $params =~ /-v/; - -$params =~ /-h/ and die "usage: lsparts [-v]\n"; - - -foreach (fs::proc_partitions::read_raw()) { - if (my $err = $_->{size} <= 1 ? - "Skipping <$_->{dev}> because too little blocks ($_->{size})" : - $_->{dev} !~ /\d$/ ? - "Skipping <$_->{dev}> because doesn't end with a number (e.g. seems to not be a partition)" : - $_->{dev} =~ /^loop\d+$/ ? - "Skipping <$_->{dev}>" : - '') { - print STDERR "$err\n" if $verbose; - } else { - $_->{device} = $_->{dev}; - if (my $type = fs::type::type_subpart_from_magic($_)) { - printf "$_->{dev}: %6s, fs %s (%s)\n", formatXiB($_->{size} * 512), $type->{fs_type}, fs::type::part2type_name($type); - } - } -} |