[Fai-commit] r4884 - in people/michael/features/setup_harddisks_2/implementation: . lib

mt at alioth.debian.org mt at alioth.debian.org
Fri May 9 11:42:57 UTC 2008


Author: mt
Date: 2008-05-09 11:42:57 +0000 (Fri, 09 May 2008)
New Revision: 4884

Modified:
   people/michael/features/setup_harddisks_2/implementation/lib/sizes.pm
   people/michael/features/setup_harddisks_2/implementation/setup-storage
Log:
yet another debug commit: things are pretty weird...


Modified: people/michael/features/setup_harddisks_2/implementation/lib/sizes.pm
===================================================================
--- people/michael/features/setup_harddisks_2/implementation/lib/sizes.pm	2008-05-09 11:24:31 UTC (rev 4883)
+++ people/michael/features/setup_harddisks_2/implementation/lib/sizes.pm	2008-05-09 11:42:57 UTC (rev 4884)
@@ -107,6 +107,10 @@
 
   # try a partition
   elsif (1 == $i_p_d && $part_no > -1) {
+    use Data::Dumper;
+    # print the current contents of $FAI::configs
+    $FAI::debug and print "Desired disk layout for estimate DISK$disk N$part_no\n";
+    $FAI::debug and print Dumper \%{ $FAI::configs{"PHY_$disk"}{partitions}{$part_no} };
 
     # the size is configured, return it
     defined ($FAI::configs{"PHY_$disk"}{partitions}{$part_no}{size}{eff_size})

Modified: people/michael/features/setup_harddisks_2/implementation/setup-storage
===================================================================
--- people/michael/features/setup_harddisks_2/implementation/setup-storage	2008-05-09 11:24:31 UTC (rev 4883)
+++ people/michael/features/setup_harddisks_2/implementation/setup-storage	2008-05-09 11:42:57 UTC (rev 4884)
@@ -141,11 +141,6 @@
 # compute the new LVM and partition sizes; do the partition sizes first to have
 # them available for the the volume group size estimation
 &FAI::compute_partition_sizes;
-
-# print the current contents of $FAI::configs
-$FAI::debug and print "Desired disk layout (without LVM sizes)\n";
-$FAI::debug and print Dumper \%FAI::configs;
-
 &FAI::compute_lv_sizes;
 
 # print the current contents of $FAI::configs




More information about the Fai-commit mailing list