summaryrefslogtreecommitdiffstats
path: root/rescue/lsparts
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-04-19 13:46:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-04-19 13:46:55 +0000
commit20e553d8f0ead3d5de1fb61d1aa255dd35549cf2 (patch)
tree70e5bf4f1be1949db1baa6a3cb49a45616af326a /rescue/lsparts
parentbb1b050f726ff84e731ca74fc05b041237df1659 (diff)
downloaddrakx-backup-do-not-use-20e553d8f0ead3d5de1fb61d1aa255dd35549cf2.tar
drakx-backup-do-not-use-20e553d8f0ead3d5de1fb61d1aa255dd35549cf2.tar.gz
drakx-backup-do-not-use-20e553d8f0ead3d5de1fb61d1aa255dd35549cf2.tar.bz2
drakx-backup-do-not-use-20e553d8f0ead3d5de1fb61d1aa255dd35549cf2.tar.xz
drakx-backup-do-not-use-20e553d8f0ead3d5de1fb61d1aa255dd35549cf2.zip
remove redundancy using gi/perl-install pms
Diffstat (limited to 'rescue/lsparts')
-rwxr-xr-xrescue/lsparts129
1 files changed, 18 insertions, 111 deletions
diff --git a/rescue/lsparts b/rescue/lsparts
index edbf2900e..1ae61cd20 100755
--- a/rescue/lsparts
+++ b/rescue/lsparts
@@ -13,124 +13,31 @@
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
#
-# This code is extracted from DrakX, the Mandriva Linux graphical installer.
-# http://www.mandrivalinux.com/drakx/
-# Open development rulz, find CVS here:
-# http://www.mandrivalinux.com/cgi-bin/cvsweb.cgi/gi/
-#
# Detects partition types using signatures
#
-sub cat_ { local *F; open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; my @l = <F>; wantarray ? @l : join '', @l }
-
-sub arch() {
- my $t = `uname -m`;
- chomp $t;
- $t;
-}
-
-# from Perl Cookbook / Pleac
-# http://pleac.sourceforge.net/pleac_perl/numbers.html#AEN121
-sub commify {
- my $text = reverse $_[0];
- $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
- return scalar reverse $text;
-}
-
-my @partitions_signatures = (
- [ 0x8e, 0, "HM\1\0" ],
- [ 0x83, 0x438, "\x53\xEF" ],
- [ 0x183, 0x10034, "ReIsErFs" ],
- [ 0x183, 0x10034, "ReIsEr2Fs" ],
- [ 0x283, 0, 'XFSB', 0x200, 'XAGF', 0x400, 'XAGI' ],
- [ 0x383, 0x8000, 'JFS1' ],
- [ 0x82, 4086, "SWAP-SPACE" ],
- [ 0x82, 4086, "SWAPSPACE2" ],
- [ 0x7, 0x1FE, "\x55\xAA", 0x3, "NTFS" ],
- [ 0xc, 0x1FE, "\x55\xAA", 0x52, "FAT32" ],
-arch() !~ /^sparc/ ? (
- [ 0x6, 0x1FE, "\x55\xAA", 0x36, "FAT" ],
-) : (),
-);
-
-sub typeFromMagic {
- my $f = shift;
- local *F; sysopen F, $f, 0 or return;
-
- my $tmp;
- M: foreach (@partitions_signatures) {
- my ($name, @l) = @$_;
- while (@l) {
- my ($offset, $signature) = splice(@l, 0, 2);
- sysseek(F, $offset, 0) or next M;
- sysread(F, $tmp, length $signature);
- $tmp eq $signature or next M;
- }
- return $name;
- }
- return -1;
-}
-
-my %type2name = (
- 0x1 => 'DOS 12-bit FAT',
- 0x4 => 'DOS 16-bit FAT (up to 32M)',
- 0x5 => 'DOS 3.3+ Extended Partition',
- 0x6 => 'DOS FAT16',
- 0x7 => 'NTFS (or HPFS)',
- 0xb => 'Win98 FAT32',
- 0xc => 'Win98 FAT32, LBA-mapped',
- 0xe => 'Win95: DOS 16-bit FAT, LBA-mapped',
- 0xf => 'Win95: Extended partition, LBA-mapped',
- 0x82 => 'Linux Swap',
- 0x83 => 'Ext2',
- 0x183 => 'ReiserFS',
- 0x283 => 'XFS',
- 0x383 => 'JFS',
- 0x85 => 'Linux extended partition',
- 0x87 => 'NTFS volume set',
- 0x8e => 'Linux LVM',
- -1 => 'unknown'
- );
-
+use lib qw(/usr/lib/libDrakX ../perl-install);
+use common;
+use devices;
+use fs::type;
my $params = join '', @ARGV;
+my $verbose = $params =~ /-v/;
$params =~ /-h/ and die "usage: lsparts [-v]\n";
-$params =~ /-v/ and $verbose = 1;
-my (undef, undef, @parts) = cat_('/proc/partitions');
-
-P: foreach (@parts) {
- my (undef, undef, $blocks, $dev) = split or next;
- my %skip_conditions = (
- "Skipping <$dev> because too little blocks ($blocks)" => ($blocks <= 1),
- "Skipping <$dev> because doesn't end with a number (e.g. seems to not be a partition)" => ($dev !~ /\d$/),
- );
- $skip_conditions{$_} and ($verbose and print(STDERR $_, "\n")), next P foreach keys %skip_conditions;
- my $type = typeFromMagic("/dev/$dev");
- $type and printf "$dev: %6s Mbytes, type <0x%0x> (%s)\n", commify($blocks >> 10), $type, $type2name{$type};
+foreach (devices::read_proc_partitions_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)" :
+ '') {
+ 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);
+ }
+ }
}
-
-
-#-------------------------------------------------
-#- $Log$
-#- Revision 1.5 2005/04/19 13:10:25 prigaux
-#- mandriva switch
-#-
-#- Revision 1.4 2004/07/20 02:42:12 prigaux
-#- MandrakeSoft -> Mandrakesoft
-#-
-#- Revision 1.3 2004/07/19 04:09:06 prigaux
-#- replace "Mandrake Linux" with "Mandrakelinux"
-#-
-#- Revision 1.2 2002/01/10 21:28:15 gc
-#- better looking output of type of partition (%x => %0x)
-#-
-#- Revision 1.1 2001/10/24 22:34:01 gc
-#- - add a GUI to the rescue
-#- - provide guessmounts with better efficiency and output, go to console, and reboot
-#- - provide install_bootloader which runs lilo from /mnt if it seems safe
-#- - add lsparts to rescue, which prints partitions with detected types
-#-
-#