Parent Directory
|
Revision Log
|
Patch
| revision 3626 by michael-guest, Sat Jul 22 14:46:18 2006 UTC | revision 3627 by michael-guest, Sat Jul 22 22:25:39 2006 UTC | |
|---|---|---|
| # | Line 2 | Line 2 |
| 2 | ||
| 3 | use strict; | use strict; |
| 4 | ||
| 5 | package FAI; | |
| 6 | ||
| 7 | require "shdd2-lib"; | require "shdd2-lib"; |
| 8 | require "shdd2-init"; | require "shdd2-init"; |
| 9 | require "shdd2-parser"; | require "shdd2-parser"; |
| # | Line 10 require "shdd2-commands"; | Line 12 require "shdd2-commands"; |
| 12 | require "shdd2-fstab"; | require "shdd2-fstab"; |
| 13 | require "shdd2-exec"; | require "shdd2-exec"; |
| 14 | ||
| 15 | &FAI::run_parser; | |
| 16 | ||
| 17 | &FAI::get_current_disks; | |
| 18 | ||
| 19 | &FAI::compute_sizes; | |
| 20 | ||
| 21 | &FAI::print_hash( \%FAI::configs ); | |
| 22 | ||
| 23 | &FAI::build_commands; | |
| 24 | ||
| 25 | foreach my $cmd (@FAI::commands) | |
| 26 | { | |
| 27 | print $cmd . "\n"; | |
| 28 | } | |
| 29 | ||
| 30 | my @fstab = &FAI::generate_fstab( \%FAI::configs ); | |
| 31 | foreach my $line (@fstab) | |
| 32 | { | |
| 33 | printf $line. "\n"; | |
| 34 | } | |
| 35 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |