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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
#!/usr/bin/perl
use lib "../perl-install";
use common;
use pkgs;
my @ALLOWED_LANGS = split(' ', first(cat_('move.pm') =~ /ALLOWED_LANGS = qw\((.*)\)/));
my @langs = map { /^../; $& } @ALLOWED_LANGS;
@ARGV <= 1 or die "usage: make_live [live_location=/tmp/live_tree]\n";
my $kernel_version = '2.4.22.21.1mdk';
sub installPackages {
output_p("$::prefix/etc/rpm/macros", "%_install_langs " . join(":", @langs) . "\n");
rename '/etc/rpm/macros', '/etc/rpm/macros.';
system('cp', "$::prefix/etc/rpm/macros", '/etc/rpm/macros');
mkdir_p("$::prefix/var/lib/rpm");
mkdir_p("$::prefix/root/drakx");
undef *install_any::setDefaultPackages;
*install_any::setDefaultPackages = sub {};
undef *install_any::getFile;
*install_any::getFile = sub {
my ($f, $o_method) = @_;
log::l("getFile $f:$o_method");
open(my $F, '/export/' . install_any::relGetFile($f)) or return;
$F;
};
install_any::setPackages(my $o = $::o = {
prefix => $::prefix,
meta_class => 'desktop',
default_packages => [
qw(XFree86-server XFree86-xfs XFree86-FBDev),
qw(openssh-server), #- fred wants it
qw(alsa-utils),
qw(davfs nfs-utils samba-server sane-backends xsane xsane-gimp),
qw(acpi acpid), #- so that removing acpi=ht will work
qw(mountloop), #- crypted folders
qw(dnotify), #- notification of /etc changes
qw(mandrake_doc-en), #- doesn't get installed by DOCS :/
qw(zcip dhcp-client dhcpcd ppp kdenetwork-kppp rp-pppoe pptp-adsl speedtouch speedtouch_mgmt nfs-utils-clients samba-client tmdns wireless-tools adiusbadsl pcmcia-cs), #- network conf
qw(cups cups-drivers foomatic-db gimpprint hpoj libnet-snmp mtools mtoolsfm nmap printer-filters printer-testpages printer-utils scli xojpanel xpp), #- printer stuff
qw(ATI_GLX NVIDIA_GLX),
"kernel-smp-$kernel_version",
qw(hcfpcimodem hsflinmodem ltmodem), "NVIDIA_nforce-$kernel_version",
qw(xinput), #- for some mice
qw(perl-Term-Readline-Gnu binutils), #- allow debugging move
qw(openssh-askpass-gnome), #- openssh-askpass for mountloop doesn't allow to click on ok/cancel buttons
qw(clanbomber freeciv-client freeciv-server), #- more 2d games
],
});
my %compssUsersChoice = map { $_ => 1 } map { @{$_->{flags}} } values %{$o->{compssUsers}};
$compssUsersChoice{$_} = 1 foreach 'SYSTEM', 'DVD', 'USB', 'SOUND', 'BURNER', 'UTF8', 'DOCS', 'TV', '3D', 'INSTALL';
$compssUsersChoice{qq(LOCALES"$_")} = 1 foreach @langs;
pkgs::setSelectedFromCompssList($o->{packages}, \%compssUsersChoice, 4, 0);
my @toInstall = pkgs::packagesToInstall($o->{packages});
local $ENV{DURING_INSTALL} = 1;
$ENV{LD_LIBRARY_PATH} = "/lib:/usr/lib:/usr/X11R6/lib:/usr/lib/qt3/lib";
pkgs::install($::prefix, 0, \@toInstall, $o->{packages});
eval { fs::umount("$::prefix/proc") };
unlink "/etc/rpm/macros";
rename "/etc/rpm/macros.", "/etc/rpm/macros";
}
sub config_X_proprietary_drivers {
unlink "$::prefix/usr/lib/libGL.so";
my %name_to_Driver = (NVIDIA_GLX => 'nvidia', ATI_GLX => 'fglrx');
my $lib = 'libGL.so.1';
symlinkf("/etc/X11/$lib", "$::prefix/usr/lib/$lib");
foreach (keys %name_to_Driver) {
my ($full_name) = run_program::rooted_get_stdout($::prefix, 'rpm', '-ql', $_) =~ m!/usr/lib/(\Q$lib\E\..*)! or die '';
symlinkf($full_name, "$::prefix/usr/lib/$lib.$name_to_Driver{$_}");
}
#- remove the dirty hack done by NVIDIA_kernel-xxx proprietary package
#- we do it by hand when needed
substInFile { $_ = '' if /^nvidia$/ } "$::prefix/etc/modules";
}
my $cwd = chomp_(`pwd`);
$::prefix = $ARGV[0] || '/tmp/live_tree';
print "Making live in $::prefix directory.\n";
{
eval { fs::umount("$::prefix/proc") };
# eval { rm_rf($::prefix) };
output_p("$::prefix/etc/fstab", "none /proc proc defaults 0 0\n");
installPackages();
run_program::rooted($::prefix, 'ldconfig');
any::fix_broken_alternatives();
run_program::rooted($::prefix, 'fc-cache'); #- generate cache in all directories mentioned in config file
}
#- system
eval { rm_rf("$::prefix/lib/i686") }; # de-complexify, use the default on any arch
eval { config_X_proprietary_drivers() };
substInFile {
#- /lib is ro, for the moment we don't save, we'll see later if we may want to save (using /var/dev-state for example)
s|.*lib/dev-state.*||;
} "$::prefix/etc/devfsd.conf";
substInFile {
#- don't use shadow passwords since pwconv overwrites /etc/shadow hence contents will be lost for usb key
s|\s*shadow||;
} "$::prefix/etc/pam.d/system-auth";
#- remove services we start ourselves from chkconfig system
substInFile {
s|chkconfig:|chkconfig-disabled:|;
} "$::prefix/etc/rc.d/init.d/$_" foreach qw(xfs dm devfsd syslog);
#- we're not using sysv init, we need to replace these
unlink "$::prefix/sbin/$_" foreach qw(halt reboot);
#- provide a way for speedtouch users of free version to escape
if (!-e "$::prefix/usr/share/speedtouch/mgmt.o") {
symlink '/etc/mgmt.o', "$::prefix/usr/share/speedtouch/mgmt.o";
}
#- XFree
#- don't want the relative path, prefering the absolute path
symlinkf('/var/lib/xkb', "$::prefix/etc/X11/xkb/compiled");
#- Xsession wants to start first-time
unlink "$::prefix/usr/X11R6/bin/drakfw";
substInFile {
s|startkde\b|startkde_move|;
} "$::prefix/etc/X11/wmsession.d/01KDE";
#- KDE
symlinkf('/etc/X11/ksycoca', "$::prefix/usr/share/services/ksycoca");
unlink "$::prefix/usr/share/autostart/$_.desktop" foreach 'klipper', 'korgac', 'kalarmd.autostart';
update_gnomekderc("$::prefix/usr/share/config/kdesktoprc", ScreenSaver => (Lock => 'true'));
#- remove CD-based applications from simplified menu
substInFile {
foreach my $app (qw(kaudiocreator kscd k3b)) {
s|.*command="$app".*||;
}
} "$::prefix/usr/lib/menu/simplified/mandrake_desk";
#- remove "Login Manager" module from kcontrol
unlink "$::prefix/usr/lib/menu/kdebase-kdm";
touch("$::prefix/etc/menu/enable_simplified");
$ENV{LC_ALL} = 'en_US'; #- update-menus doesn't work when there is no locale (aka locale "C")
run_program::rooted($::prefix, 'update-menus', '-n');
run_program::rooted($::prefix, 'nspluginscan'); #- must be run before kbuildsycoca for the ksycoca to be flash plugin aware
$ENV{HELP_BROWSER} = "kfmclient openProfile webbrowsing";
$ENV{BROWSER} = "kfmclient openProfile webbrowsing";
$ENV{DESKTOP} = "kde";
foreach (@ALLOWED_LANGS) {
$ENV{LC_ALL} = $_;
run_program::rooted($::prefix, 'kbuildsycoca');
cp_af("$::prefix/tmp/kde-root/ksycoca", "$::prefix/usr/share/services/ksycoca-$_");
}
#- Mandrake
substInFile {
s|Mandrake Linux release (\S+) \(.*\)|Mandrake Move release $1 (Moyoto)|;
} "$::prefix/etc/mandrake-release";
#- remove uncessary wizards, especially from appearing in MCC
unlink "$::prefix/usr/sbin/$_" foreach qw(drakautoinst drakboot drakfloppy drakgw drakedm drakfont rpmdrake MandrakeUpdate rpmdrake-remove edit-urpm-sources.pl);
unlink "$::prefix/usr/bin/$_" foreach qw(userdrake);
#- drakxtools contains a broken unneeded file
unlink "$::prefix/usr/lib/libDrakX/modem.pm";
|
