summaryrefslogtreecommitdiffstats
path: root/rescue/lsparts
diff options
context:
space:
mode:
authorMystery Man <unknown@mandriva.org>2005-09-02 22:32:32 +0000
committerMystery Man <unknown@mandriva.org>2005-09-02 22:32:32 +0000
commitbd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4 (patch)
tree7a03e33fba584c7014f990f1448a337627d50484 /rescue/lsparts
parent4da1048be0a7528a1a9f55e6f87cb2766508473b (diff)
downloaddrakx-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-xrescue/lsparts45
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);
- }
- }
-}