[Fai-commit] r3597 - people/michael/features/setup_harddisks_2/implementation

[fai-commit at lists.alioth.debian.org]

Author: michael-guest
Date: 2006-07-22 00:27:06 +0000 (Sat, 22 Jul 2006)
New Revision: 3597

Modified:
   people/michael/features/setup_harddisks_2/implementation/shdd2-sizes
Log:
minor fixes


Modified: people/michael/features/setup_harddisks_2/implementation/shdd2-sizes
===================================================================
--- people/michael/features/setup_harddisks_2/implementation/shdd2-sizes	2006-07-22 00:25:26 UTC (rev 3596)
+++ people/michael/features/setup_harddisks_2/implementation/shdd2-sizes	2006-07-22 00:27:06 UTC (rev 3597)
@@ -13,7 +13,7 @@
     $disk = "/dev/" . $disk;
   }
   $FAI::current_config{ $disk } = {
-    "partitions" = {}
+    "partitions" => {}
   };
   
   my @parted_print = split( "\n", `/sbin/parted -s $disk unit TB print` );
@@ -29,7 +29,7 @@
     elsif( $line =~ /^Disk label type: (.*)$/ )
     {
       $FAI::current_config{ $disk } = {
-        "disklabel" = $1
+        "disklabel" => $1
       };
       next;
     }
@@ -60,7 +60,7 @@
       $line =~ /^.{$parted_fs_start}(.{$parted_fs_end})/;
       my $fs = $1;
       $FAI::current_config{ $disk }{ "partitions" }{ $id } = {
-        "filesystem" = $fs
+        "filesystem" => $fs
       };
     }
   }
@@ -108,12 +108,23 @@
 }
 
 
-foreach my $config ( %FAI::configs )
+foreach my $config ( keys %FAI::configs )
 {
-    
-
-  
-
+   if( $config eq "RAID" || $config =~ /^VG_/ )
+   {
+     next;
+   }
+   elsif( $config =~ /^PHY_(.*)$/ )
+   {
+     foreach my $part_id ( keys $FAI::configs{ $config }{ "partitions" } )
+     {
+       print "$part_id configured\n";
+     }
+   }
+   else
+   {
+     die "Internal error (invalid config entry).\n";
+   }
 }
 
 1;