Parent Directory
| 
Revision Log
| 
Patch
| revision 3590 by michael-guest, Fri Jul 21 23:55:29 2006 UTC | revision 3591 by michael-guest, Sat Jul 22 00:01:09 2006 UTC | |
|---|---|---|
| # | Line 66 foreach my $disk ( @FAI::disks ) | Line 66 foreach my $disk ( @FAI::disks ) |
| 66 | } | } |
| 67 | } | } |
| 68 | } | } |
| 69 | ||
| 70 | ||
| 71 | ||
| 72 | @parted_print = split( "\n", `/sbin/parted -s /dev/hda unit B print` ); | |
| 73 | { | |
| 74 | foreach my $line ( @parted_print ) | |
| 75 | { | |
| 76 | ||
| 77 | if( $line =~ /^\d+\s+(\d+),(\d+),(\d+)\s+(\d+),(\d+),(\d+)/i ) | |
| 78 | { | |
| 79 | printf $1." ".$2." ".$3." ".$4." ".$5." ".$6."\n"; | |
| 80 | } | |
| 81 | } | |
| 82 | } | |
| 83 | } | } |
| 84 | ||
| 85 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |