summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2009-11-24 15:13:23 +0000
committerPascal Terjan <pterjan@mandriva.org>2009-11-24 15:13:23 +0000
commit93d9892214bfc6b2f7294da6ffc3e441d7912d5b (patch)
tree38a932c5927f72e07d1f0a148376b79a09bb5bde /perl-install
parente95d8d1c5a1e2941d7a354dcb5290a1b65dcf50a (diff)
downloaddrakx-93d9892214bfc6b2f7294da6ffc3e441d7912d5b.tar
drakx-93d9892214bfc6b2f7294da6ffc3e441d7912d5b.tar.gz
drakx-93d9892214bfc6b2f7294da6ffc3e441d7912d5b.tar.bz2
drakx-93d9892214bfc6b2f7294da6ffc3e441d7912d5b.tar.xz
drakx-93d9892214bfc6b2f7294da6ffc3e441d7912d5b.zip
- first bits of btrfs support
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm2
-rw-r--r--perl-install/fs/format.pm7
2 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 453594087..7f0f49402 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -424,7 +424,7 @@ sub part_possible_actions {
my %macros = (
readonly => '$hd->{readonly}',
hasMntpoint => '$part->{mntpoint}',
- LVM_resizable => 'member($part->{fs_type}, qw(reiserfs xfs ext3 ext4))',
+ LVM_resizable => 'member($part->{fs_type}, qw(reiserfs xfs ext3 ext4 btrfs))',
canModifyRAID => 'isPartOfRAID($part) && !isMounted(fs::get::device2part($part->{raid}, $all_hds->{raids}))',
);
if (isEmpty($part)) {
diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm
index e50cf492a..94592bdbe 100644
--- a/perl-install/fs/format.pm
+++ b/perl-install/fs/format.pm
@@ -24,6 +24,7 @@ my %cmds = (
swap => [ 'util-linux-ng', 'mkswap' ],
ntfs => [ 'ntfsprogs', 'mkntfs', '--fast' ],
'ntfs-3g' => [ 'ntfsprogs', 'mkntfs', '--fast' ],
+ btrfs => [ 'btrfs-progs', 'mkfs.btrfs' ],
);
my %LABELs = ( #- option, length, handled_by_mount
@@ -40,6 +41,7 @@ my %LABELs = ( #- option, length, handled_by_mount
swap => [ '-L', 15, 1 ],
ntfs => [ '-L', 128, 0 ],
'ntfs-3g' => [ '-L', 128, 0 ],
+ btrfs => [ '-L', 256, 1 ],
);
my %edit_LABEL = ( # package, command, option
@@ -58,6 +60,7 @@ my %edit_LABEL = ( # package, command, option
# swap => [ 'util-linux-ng', 'mkswap' ],
ntfs => [ 'ntfsprogs', 'ntfslabel' ],
'ntfs-3g' => [ 'ntfsprogs', 'ntfslabel' ],
+# btrfs
);
sub package_needed_for_partition_type {
@@ -181,7 +184,9 @@ sub part_raw {
run_program::raw('jfs_tune', '-U', devices::make($dev));
} elsif ($fs_type eq 'xfs') {
run_program::raw('xfs_admin', '-U', devices::make($dev));
- }
+ } elsif ($fs_type eq 'btrfs') {
+ #FIXME
+ }
if (member($fs_type, qw(ext3 ext4))) {
disable_forced_fsck($dev);