implementation/lib/init.pm

#!/usr/bin/perl -w

use strict;

package FAI;

$FAI::debug = 1;

# getopt processing

#REMOVE THIS
# use a predefined list?

$ENV{disklist} = "hda
";
################
#

@FAI::disks = split( /\n/, $ENV{disklist} );

%FAI::configs = ();

%FAI::current_config = ();

@FAI::commands = ();

$FAI::parted_binary = "/sbin/parted -s";

1;

1	michael-guest	3603	#!/usr/bin/perl -w
2
3			use strict;
4
5			package FAI;
6
7	michael-guest	3659	$FAI::debug = 1;
8
9	michael-guest	3603	# getopt processing
10
11			#REMOVE THIS
12			# use a predefined list?
13
14			$ENV{disklist} = "hda
15			";
16			################
17			#
18
19	michael-guest	3617	@FAI::disks = split( /\n/, $ENV{disklist} );
20	michael-guest	3603
21	michael-guest	3627	%FAI::configs = ();
22
23			%FAI::current_config = ();
24
25			@FAI::commands = ();
26
27			$FAI::parted_binary = "/sbin/parted -s";
28
29	michael-guest	3603	1;
30