#!/usr/bin/perl # # Main author Pascal Rigaux (pixel@mandrakesoft.com) # Put together by Guillaume Cottenceau (gc@mandrakesoft.com) # # Copyright 1999,2000,2001 MandrakeSoft # # 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. # # # This code is extracted from DrakX, the Mandrake Linux graphical installer. # http://www.mandrakelinux.com/drakx/ # Open development rulz, find CVS here: # http://www.mandrakelinux.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 = ; 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' ); my $params = join '', @ARGV; $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}; } #------------------------------------------------- #- $Log$ #- 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 #- # Work'>user/animtim/designWork Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po
diff options
context:
space:
mode:
authorFunda Wang <fwang@mandriva.org>2005-03-18 19:36:23 +0000
committerFunda Wang <fwang@mandriva.org>2005-03-18 19:36:23 +0000
commitde59597f4603df04bb4249d45f46e06b3da1ad8c (patch)
tree678b57ffc0e6a53398da10d8a27eb2026c827157 /perl-install/share/po
parent7cacc169b89f3d3ec7f7489f90b849bb9e19bb33 (diff)
downloaddrakx-de59597f4603df04bb4249d45f46e06b3da1ad8c.tar
drakx-de59597f4603df04bb4249d45f46e06b3da1ad8c.tar.gz
drakx-de59597f4603df04bb4249d45f46e06b3da1ad8c.tar.bz2
drakx-de59597f4603df04bb4249d45f46e06b3da1ad8c.tar.xz
drakx-de59597f4603df04bb4249d45f46e06b3da1ad8c.zip
s/101errata/102errata for the next release. We often forget this.
Diffstat (limited to 'perl-install/share/po')
-rw-r--r--perl-install/share/po/DrakX.pot2
-rw-r--r--perl-install/share/po/af.po4
-rw-r--r--perl-install/share/po/am.po4
-rw-r--r--perl-install/share/po/ar.po4
-rw-r--r--perl-install/share/po/az.po4
-rw-r--r--perl-install/share/po/be.po4
-rw-r--r--perl-install/share/po/bg.po4
-rw-r--r--perl-install/share/po/bn.po4
-rw-r--r--perl-install/share/po/bs.po4
-rw-r--r--perl-install/share/po/ca.po4
-rw-r--r--perl-install/share/po/cs.po4
-rw-r--r--perl-install/share/po/cy.po4
-rw-r--r--perl-install/share/po/da.po4
-rw-r--r--perl-install/share/po/de.po4
-rw-r--r--perl-install/share/po/el.po4
-rw-r--r--perl-install/share/po/eo.po4
-rw-r--r--perl-install/share/po/es.po4
-rw-r--r--perl-install/share/po/et.po4
-rw-r--r--perl-install/share/po/eu.po4
-rw-r--r--perl-install/share/po/fa.po4
-rw-r--r--perl-install/share/po/fi.po4
-rw-r--r--perl-install/share/po/fr.po4
-rw-r--r--perl-install/share/po/fur.po2
-rw-r--r--perl-install/share/po/ga.po4
-rw-r--r--perl-install/share/po/gl.po4
-rw-r--r--perl-install/share/po/he.po4
-rw-r--r--perl-install/share/po/hi.po4
-rw-r--r--perl-install/share/po/hr.po4
-rw-r--r--perl-install/share/po/hu.po4
-rw-r--r--perl-install/share/po/id.po4
-rw-r--r--perl-install/share/po/is.po4
-rw-r--r--perl-install/share/po/it.po4
-rw-r--r--perl-install/share/po/ja.po4
-rw-r--r--perl-install/share/po/ko.po4
-rw-r--r--perl-install/share/po/ky.po2
-rw-r--r--perl-install/share/po/lt.po4
-rw-r--r--perl-install/share/po/ltg.po4
-rw-r--r--perl-install/share/po/lv.po4
-rw-r--r--perl-install/share/po/mk.po4
-rw-r--r--perl-install/share/po/mn.po4
-rw-r--r--perl-install/share/po/ms.po4
-rw-r--r--perl-install/share/po/mt.po4
-rw-r--r--perl-install/share/po/nb.po4
-rw-r--r--perl-install/share/po/nl.po4
-rw-r--r--perl-install/share/po/nn.po4
-rw-r--r--perl-install/share/po/pl.po4
-rw-r--r--perl-install/share/po/pt.po4
-rw-r--r--perl-install/share/po/pt_BR.po4
-rw-r--r--perl-install/share/po/ro.po4
-rw-r--r--perl-install/share/po/ru.po4
-rw-r--r--perl-install/share/po/sk.po4
-rw-r--r--perl-install/share/po/sl.po4
-rw-r--r--perl-install/share/po/sq.po4
-rw-r--r--perl-install/share/po/sr.po4
-rw-r--r--perl-install/share/po/sr@Latn.po4
-rw-r--r--perl-install/share/po/sv.po4
-rw-r--r--perl-install/share/po/ta.po4
-rw-r--r--perl-install/share/po/tg.po4
-rw-r--r--perl-install/share/po/th.po4
-rw-r--r--perl-install/share/po/tl.po4
-rw-r--r--perl-install/share/po/tr.po4
-rw-r--r--perl-install/share/po/uk.po4
-rw-r--r--perl-install/share/po/uz.po4
-rw-r--r--perl-install/share/po/uz@Latn.po4
-rw-r--r--perl-install/share/po/vi.po4
-rw-r--r--perl-install/share/po/wa.po4
-rw-r--r--perl-install/share/po/zh_CN.po4
-rw-r--r--perl-install/share/po/zh_TW.po4
68 files changed, 133 insertions, 133 deletions
diff --git a/perl-install/share/po/DrakX.pot b/perl-install/share/po/DrakX.pot
index 5a552c286..b821c796a 100644
--- a/perl-install/share/po/DrakX.pot
+++ b/perl-install/share/po/DrakX.pot
@@ -4888,7 +4888,7 @@ msgstr ""
#. -PO: keep the double empty lines between sections, this is formatted a la LaTeX
#: install_messages.pm:144
#, c-format
-msgid "http://www.mandrakelinux.com/en/101errata.php3"
+msgid "http://www.mandrakelinux.com/en/102errata.php3"
msgstr ""
#: install_steps.pm:246
diff --git a/perl-install/share/po/af.po b/perl-install/share/po/af.po
index 8920299cc..b7e2eb5e2 100644
--- a/perl-install/share/po/af.po
+++ b/perl-install/share/po/af.po