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

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

Author: michael-guest
Date: 2006-07-21 23:52:22 +0000 (Fri, 21 Jul 2006)
New Revision: 3588

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


Modified: people/michael/features/setup_harddisks_2/implementation/shdd2-sizes
===================================================================
--- people/michael/features/setup_harddisks_2/implementation/shdd2-sizes	2006-07-21 23:43:23 UTC (rev 3587)
+++ people/michael/features/setup_harddisks_2/implementation/shdd2-sizes	2006-07-21 23:52:22 UTC (rev 3588)
@@ -46,9 +46,25 @@
     my $fs = $1;
     print $fs . "\n";
   }
+
+
+  
 }
 
 
+ at parted_print = split( "\n", `/sbin/parted -s /dev/hda unit B print` );
+{
+  foreach my $line ( @parted_print )
+  {
+    if( $line =~ /^(\d+)*\s+(\d+)B\s+(\d+)B\s+(\d+)B/i )
+    {
+      printf $1." ".$2." ".$3." ".$4."\n";
+    }
+  }
+}
+
+
+
 foreach my $config ( %FAI::configs )
 {