From 93d9892214bfc6b2f7294da6ffc3e441d7912d5b Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Tue, 24 Nov 2009 15:13:23 +0000
Subject: - first bits of btrfs support

---
 perl-install/diskdrake/interactive.pm | 2 +-
 perl-install/fs/format.pm             | 7 ++++++-
 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);
-- 
cgit v1.2.1