From f164ac0eb8d9fc0e3d2823f31a2cc3112c8bfaee Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Apr 2005 11:38:49 +0000
Subject: ensure we use the same geometry as used when saving

---
 rescue/partimage_whole_disk | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/rescue/partimage_whole_disk b/rescue/partimage_whole_disk
index 309883d36..42fd9796a 100755
--- a/rescue/partimage_whole_disk
+++ b/rescue/partimage_whole_disk
@@ -45,10 +45,10 @@ sub save_all() {
 		       'save', devices::make($_->{device}), "$dir/$_->{device}");
 	}
     }
-    save_part_list($part_list);
+    save_part_list($hd->{geom}, $part_list);
 }
 sub rest_all() {
-    my $part_list = read_part_list();
+    my ($forced_geom, $part_list) = read_part_list();
     fs::type::set_fs_type($_, $_->{fs_type}) foreach @$part_list;
 
     my @used_hds;
@@ -79,7 +79,7 @@ sub rest_all() {
     }
 
     foreach my $hd (uniq(@used_hds)) {
-#	put_in_hash($hd->{geom}, { heads => 240, sectors => 63 });
+	put_in_hash($hd->{geom}, $forced_geom);
 
 	#- write the partition table
 	partition_table::raw::zero_MBR($hd);
@@ -117,19 +117,22 @@ sub rest_all() {
 
 sub lst_fields() { qw(device size fs_type saved) }
 sub save_part_list {
-    my ($part_list) = @_;
+    my ($geom, $part_list) = @_;
     my @l = map { join(' ', @$_{lst_fields()}) } @$part_list;
     log::l("save_part_list: $_") foreach @l;
     my $partimage = join(' ', @partimage_cmd);
     open(my $F, "| $partimage -z0 -Bfoo=bar -o save_file $dir/lst");
+    print $F join("/", $geom->{heads}, $geom->{sectors}), "\n";
     print $F "$_\n" foreach @l;
 }
 sub read_part_list() {
     my $partimage = join(' ', @partimage_cmd);
     open(my $F, "$partimage -z0 -Bfoo=bar rest_file $dir/lst |");
+    my $geom_string = <$F>;
+    my %geom; @geom{'heads', 'sectors'} = split('/', chomp_($geom_string));
     my @l = chomp_(cat__($F));
     log::l("read_part_list: $_") foreach @l;
-    [ map { my %l; @l{lst_fields()} = split; \%l } @l ];
+    \%geom, [ map { my %l; @l{lst_fields()} = split; \%l } @l ];
 }
 
 sub run_or_die {
-- 
cgit v1.2.1