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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
#!/usr/bin/perl
use MDK::Common;
use lib "../perl-install";
use keyboard;
my $lib = (arch() =~ /x86_64/ ? "lib64" : "lib");
my $tmp = "/tmp/rescue_tmp";
my $rescue = "rescue.clp";
my $sudo = '';
if ($>) {
$sudo = "sudo";
$ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
}
BEGIN { undef *_ }
sub __ { print @_, "\n"; system(@_) }
sub _ { __ @_; $? and die }
sub installown($$) {
my ($own, $dir) = @_;
return if -e "$tmp$dir/" . basename($own);
mkdir_p("$tmp$dir");
_ "cp -rL $own $tmp$dir";
}
sub install_perl_script {
my ($script, $dir) = @_;
my @gi_modules;
foreach (`../tools/get-needed-drakx-modules ../perl-install /usr/lib/libDrakX $script`) {
chomp;
my ($local, $dest) = split "\t";
installown($local, dirname($dest || $local));
push @gi_modules, "$tmp$dest" if $dest;
}
installown($script, $dir);
system('../tools/simplify-drakx-modules', @gi_modules, "$tmp$dir/$script");
}
_ "$sudo rm -rf $tmp" if -e $tmp;
_ "mkdir $tmp";
_ 'find . -name "*~" | xargs rm -f';
mkdir_p($tmp . chomp_($_)) foreach cat_("dirs");
_ "cp -a tree/* $tmp";
_ "find $tmp -name 'CVS*' | xargs rm -rf";
_ "perl devices.pl $tmp/dev";
_ "mkfifo $tmp/dev/initctl";
substInFile { s/DISTRIB_DESCR/$ENV{DISTRIB_DESCR}/ } "$tmp/etc/issue";
{
_ "cd ../mdk-stage1 && make rescue-gui dhcp-client";
-e "../kernel/all.kernels" or die "use ./update_kernel in gi/kernel first\n";
$ENV{MAIN_KERNEL} = chomp_(`cat ../kernel/RPMS/.main`);
_ "../tools/install-xml-file-list list.xml $tmp";
}
my %keytable_conflicts;
my @less_important_keytables = qw(am_old am_phonetic no-dvorak fr_CH-latin1);
foreach (keyboard::loadkeys_files()) {
my ($dir, $fname) = (dirname($_), basename($_));
my ($name) = $fname =~ /(.*)\.kmap\.gz/ or next;
next if member($name, @less_important_keytables);
if (my ($short) = $name =~ m|(.+?)[\W_]|) {
$keytable_conflicts{$short} and warn("conflict between $keytable_conflicts{$short} and $name for short name $short (choosing the first)\n"), next;
$keytable_conflicts{$short} = $name;
# create the short name based on the long one
symlinkf($fname, "$tmp$dir/$short.kmap.gz");
}
}
foreach (cat_("aliases")) {
chomp; my ($f, $dest) = split;
symlink $dest, "$tmp$f";
}
if (my ($LANGUAGE) = map { if_(/LANGUAGE_(.*)/, $1) } keys %ENV) {
substInFile {
$_ = "export LANGUAGE=$LANGUAGE\n" . "export LC_ALL=$LANGUAGE\n" if /^#LANGUAGE/;
} "$tmp/etc/rc.sysinit";
}
if ($ENV{PARTIMAGE_RPM}) {
_ "rpm2cpio $ENV{PARTIMAGE_RPM} | (cd $tmp ; cpio -idu ./usr/sbin/partimage)";
my $server = 'partimaged';
$server = 'leia';
my $default_dir = '/data/box';
substInFile {
$_ = " server=$server\n" . " default_dir=$default_dir\n" . <<'EOF' if /^\s*rescue-gui/;
partimage_dir=`perl -lne 'print $1 if /BOX=(\S+)/' /proc/cmdline`
[ -z "$partimage_dir" ] && partimage_dir=$default_dir
if grep -q save_all /proc/cmdline; then
partimage_whole_disk -s $server save_all $default_dir
fi
if grep -q rest_all /proc/cmdline; then
if [ -d /tmp/image$partimage_dir ]; then
partimage_whole_disk rest_all /tmp/image$partimage_dir
else
partimage_whole_disk -s $server rest_all $partimage_dir
fi
fi
EOF
} "$tmp/etc/rc.sysinit";
}
_ "$sudo chown root.root -R $tmp/*";
exit 0 if $ARGV[0];
_ "mkisofs -quiet -D -R $tmp | create_compressed_fs - 65536 $rescue 200 2>/dev/null";
#_ "$sudo rm -rf $tmp";
|
