Contents of /people/michael/features/setup_harddisks_2/implementation/storage-magic

#!/usr/bin/perl -w

use strict;

package FAI;

require "shdd2-lib";
require "shdd2-init";
require "shdd2-parser";
require "shdd2-sizes";
require "shdd2-commands";
require "shdd2-fstab";
require "shdd2-exec";

&FAI::run_parser;

&FAI::get_current_disks;

&FAI::compute_sizes;

&FAI::print_hash( \%FAI::configs );

&FAI::build_commands;

foreach my $cmd (@FAI::commands)
{
  print $cmd . "\n";
  # &FAI::execute_command($cmd);
}

my @fstab = &FAI::generate_fstab( \%FAI::configs );
foreach my $line (@fstab)
{
  printf $line. "\n";
}

1	#!/usr/bin/perl -w
2
3	use strict;
4
5	package FAI;
6
7	require "shdd2-lib";
8	require "shdd2-init";
9	require "shdd2-parser";
10	require "shdd2-sizes";
11	require "shdd2-commands";
12	require "shdd2-fstab";
13	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	# &FAI::execute_command($cmd);
29	}
30
31	my @fstab = &FAI::generate_fstab( \%FAI::configs );
32	foreach my $line (@fstab)
33	{
34	printf $line. "\n";
35	}
36