From 0fa538d25a0ede3020b94fef99a4e9e11508cb8e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 29 Jan 2003 13:21:15 +0000
Subject: fix various resize pbs: - write partition table *before* resizing
 when partition is enlarged - debug ntfsresize

---
 perl-install/diskdrake/interactive.pm | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index f53e00d58..dd5f73a8d 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -656,9 +656,9 @@ sub Resize {
 	} elsif (isThisFs('ntfs', $part)) {
 	    write_partitions($in, $hd) or return;
 	    my $dev = devices::make($part->{device});
-	    my $r = run_program::get_stdout('ntfsresize', '-i', $dev);
+	    my $r = run_program::get_stdout('ntfsresize', '-f', '-i', $dev);
 	    if ($r =~ /minimal size: (\d+) KiB/) {
-		$min = $r * 2;
+		$min = $1 * 2;
 		$nice_resize{ntfs} = $dev;
 	    }
 	} elsif (isThisFs("reiserfs", $part)) {
@@ -703,9 +703,19 @@ sub Resize {
     my $_b = before_leaving { $@ and $part->{size} = $oldsize };
     my $w = $in->wait_message(N("Resizing"), '');
 
-    if (isLVM($hd)) {
-	lvm::lv_resize($part, $oldsize) if $size > $oldsize;	
-    }
+    my $adjust = sub {
+	my ($write_partitions) = @_;
+
+	if (isLVM($hd)) {
+	    lvm::lv_resize($part, $oldsize) 
+	  } else {
+	      partition_table::adjust_local_extended($hd, $part);
+	      partition_table::adjust_main_extended($hd);
+	      write_partitions($in, $hd) if $write_partitions;
+	  }
+    };
+
+    $adjust->(1) if $size > $oldsize;
 
     if ($nice_resize{fat}) {
 	local *log::l = sub { $w->set(join(' ', @_)) };
@@ -716,10 +726,10 @@ sub Resize {
 	run_program::run("resize2fs", "-pf", $nice_resize{ext2}, $s);
     } elsif ($nice_resize{ntfs}) {
 	log::l("ntfs resize to $part->{size} sectors");
-	run_program::run_or_die('ntfsresize', '-f', '-s' . $part->{size}/2 . "Ki", devices::make($part->{device}));
+	run_program::run_or_die('ntfsresize', '-ff', '-s' . int($part->{size}/2) . 'ki', devices::make($part->{device}));
     } elsif ($nice_resize{reiserfs}) {
 	log::l("reiser resize to $part->{size} sectors");
-	run_program::run("resize_reiserfs", "-f", "-q", "-s" . $part->{size}/2 . "K", devices::make($part->{device}));
+	run_program::run('resize_reiserfs', '-f', '-q', '-s' . int($part->{size}/2) . 'K', devices::make($part->{device}));
     } elsif ($nice_resize{xfs}) {
 	#- happens only with mounted LVM, see above
 	run_program::run("xfs_growfs", $part->{mntpoint});
@@ -733,12 +743,7 @@ sub Resize {
 	partition_table::verifyParts($hd);
     }
 
-    if (isLVM($hd)) {
-	lvm::lv_resize($part, $oldsize) if $size < $oldsize;
-    } else {
-	partition_table::adjust_local_extended($hd, $part);
-	partition_table::adjust_main_extended($hd);
-    }
+    $adjust->(0) if $size < $oldsize;
 }
 sub Move {
     my ($in, $hd, $part, $all_hds) = @_;
-- 
cgit v1.2.1