equal
deleted
inserted
replaced
12 |
12 |
13 use lib "lib"; |
13 use lib "lib"; |
14 use SI::system; |
14 use SI::system; |
15 use SI::ptable; |
15 use SI::ptable; |
16 use SI::lvm; |
16 use SI::lvm; |
|
17 use SI::dumper; |
|
18 use SI::grub; |
17 |
19 |
18 my $ME = basename $0; |
20 my $ME = basename $0; |
19 my $opt_base = ".."; |
21 my $opt_base = ".."; |
20 my $opt_src = undef; |
22 my $opt_src = undef; |
21 my $opt_verbose = undef; |
23 my $opt_verbose = undef; |
41 |
43 |
42 our $VAR1; |
44 our $VAR1; |
43 do "$src/info/devices"; |
45 do "$src/info/devices"; |
44 my %devices = %$VAR1; |
46 my %devices = %$VAR1; |
45 |
47 |
46 # SI::ptable::restore(%devices); |
48 #SI::ptable::restore(%devices); |
47 # SI::ptable::mkfs(%devices); |
49 #SI::ptable::mkfs(%devices); |
48 SI::lvm::pvcreate(%devices); |
50 #SI::lvm::pvcreate(%devices); |
49 SI::lvm::vgcfgrestore("$src/lvm/vg.*", %devices); |
51 #SI::lvm::vgcfgrestore("$src/lvm/vg.*", %devices); |
|
52 #SI::lvm::mkfs(%devices); |
|
53 #SI::dumper::restore("$src/dump/*", %devices); |
|
54 SI::grub::restore(%devices); |
50 |
55 |
51 |
56 |
52 exit; |
57 exit; |
53 die Dumper \%devices; |
58 die Dumper \%devices; |
54 |
59 |