blob: 209631472ff44062d1e54613426d7290e11357dc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#!/usr/bin/perl
use MDK::Common;
my $prefix = '/tmp/live_tree';
my $boot_prefix = '/tmp/live_tree_boot';
my $file_list = 'data/boot.list';
my @list = chomp_(cat_($file_list));
if (@ARGV && $ARGV[0] eq '-u') {
-d $boot_prefix or die "$boot_prefix doesn't exist";
foreach my $dest (@list) {
my $orig = $dest;
$orig =~ s|^$prefix|$boot_prefix|;
next if !-e $orig;
if (-e $dest && -s $dest != -s $orig) {
warn "ERROR: $dest already exist, skipping\n";
} else {
unlink $dest or die "removing $dest failed: $!\n";
rename $orig, $dest or die "moving $orig to $dest failed: $!\n";
}
}
rmdir($_) foreach reverse(chomp_(`find $boot_prefix -type d`));
if (-e $boot_prefix) {
foreach my $dest (chomp_(`find $prefix -type l`)) {
my $orig = readlink($dest) or next;
$orig =~ s!/image_boot/!$boot_prefix/! or next;
unlink $dest or die "removing $dest failed: $!\n";
rename $orig, $dest or die "moving $orig to $dest failed: $!\n";
}
rmdir($_) foreach reverse(chomp_(`find $boot_prefix -type d`));
}
if (-e $boot_prefix) {
print "still there:\n";
system('find', $boot_prefix);
}
} else {
-e $boot_prefix and die "you can't make_live_tree_boot since one already exists
Maybe you should remove it first with 'make_live_tree_boot -u'\n";
foreach my $orig (@list) {
my $dest = $orig;
$dest =~ s|^$prefix|$boot_prefix|;
my $link = $orig;
$link =~ s|^$prefix|/image_boot|;
mkdir_p(dirname($dest));
rename $orig, $dest or die "moving $orig to $dest failed: $!\n";
symlink $link, $orig or die "symlinking from $dest to $orig failed: $!\n";
}
}
|
