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

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

Author: michael-guest
Date: 2006-07-22 00:01:09 +0000 (Sat, 22 Jul 2006)
New Revision: 3591

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:55:29 UTC (rev 3590)
+++ people/michael/features/setup_harddisks_2/implementation/shdd2-sizes	2006-07-22 00:01:09 UTC (rev 3591)
@@ -66,6 +66,20 @@
       }
     }
   }
+
+
+
+  @parted_print = split( "\n", `/sbin/parted -s /dev/hda unit B print` );
+  {
+    foreach my $line ( @parted_print )
+    {
+
+      if( $line =~ /^\d+\s+(\d+),(\d+),(\d+)\s+(\d+),(\d+),(\d+)/i )
+      {
+        printf $1." ".$2." ".$3." ".$4." ".$5." ".$6."\n";
+      }
+    }
+  }
 }