| 24 |
# |
# |
| 25 |
# @file shdd2-sizes |
# @file shdd2-sizes |
| 26 |
# |
# |
| 27 |
# @brief TODO |
# @brief A set of functions to obtain the current partition table and to |
| 28 |
|
# compute the size of the partitions to be created |
| 29 |
# |
# |
| 30 |
# $Id$ |
# $Id$ |
| 31 |
# |
# |
| 38 |
|
|
| 39 |
package FAI; |
package FAI; |
| 40 |
|
|
| 41 |
|
################################################################################ |
| 42 |
|
# |
| 43 |
|
# @brief TODO |
| 44 |
|
# |
| 45 |
|
################################################################################ |
| 46 |
sub get_current_disks |
sub get_current_disks |
| 47 |
{ |
{ |
| 48 |
foreach my $disk (@FAI::disks) |
foreach my $disk (@FAI::disks) |
| 219 |
} |
} |
| 220 |
} |
} |
| 221 |
|
|
| 222 |
|
################################################################################ |
| 223 |
|
# |
| 224 |
|
# @brief TODO |
| 225 |
|
# |
| 226 |
|
################################################################################ |
| 227 |
sub compute_sizes |
sub compute_sizes |
| 228 |
{ |
{ |
| 229 |
foreach my $config ( keys %FAI::configs ) |
foreach my $config ( keys %FAI::configs ) |