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

fai-commit at lists.alioth.debian.org fai-commit at lists.alioth.debian.org
Sat Jul 22 00:02:52 UTC 2006


Author: michael-guest
Date: 2006-07-22 00:02:51 +0000 (Sat, 22 Jul 2006)
New Revision: 3592

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


Modified: people/michael/features/setup_harddisks_2/implementation/shdd2-sizes
===================================================================
--- people/michael/features/setup_harddisks_2/implementation/shdd2-sizes	2006-07-22 00:01:09 UTC (rev 3591)
+++ people/michael/features/setup_harddisks_2/implementation/shdd2-sizes	2006-07-22 00:02:51 UTC (rev 3592)
@@ -8,7 +8,12 @@
 
 foreach my $disk ( @FAI::disks )
 {
-  my @parted_print = split( "\n", `/sbin/parted -s /dev/hda unit TB print` );
+  if( ! ( $disk =~ m{^/} ) )
+  {
+    $disk = "/dev/" . $disk;
+  }
+  
+  my @parted_print = split( "\n", `/sbin/parted -s $disk unit TB print` );
   my $parted_fs_start = 0;
   my $parted_fs_end = 0;
 
@@ -50,13 +55,10 @@
       my $fs = $1;
       print $id . ": " . $fs . "\n";
     }
-
-
-    
   }
 
 
-  @parted_print = split( "\n", `/sbin/parted -s /dev/hda unit B print` );
+  @parted_print = split( "\n", `/sbin/parted -s $disk unit B print` );
   {
     foreach my $line ( @parted_print )
     {
@@ -69,7 +71,7 @@
 
 
 
-  @parted_print = split( "\n", `/sbin/parted -s /dev/hda unit B print` );
+  @parted_print = split( "\n", `/sbin/parted -s $disk unit chs print` );
   {
     foreach my $line ( @parted_print )
     {




More information about the Fai-commit mailing list