summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-06-19 13:40:42 +0000
committerFrancois Pons <fpons@mandriva.com>2002-06-19 13:40:42 +0000
commit8e6087befedc8f51b171a98262676f7837868b40 (patch)
treea56d394fdf949467c7a98f77e64f974d416dd961 /perl-install
parent4518999dc54694e0e9de914a38fb8f9da241ead0 (diff)
downloaddrakx-backup-do-not-use-8e6087befedc8f51b171a98262676f7837868b40.tar
drakx-backup-do-not-use-8e6087befedc8f51b171a98262676f7837868b40.tar.gz
drakx-backup-do-not-use-8e6087befedc8f51b171a98262676f7837868b40.tar.bz2
drakx-backup-do-not-use-8e6087befedc8f51b171a98262676f7837868b40.tar.xz
drakx-backup-do-not-use-8e6087befedc8f51b171a98262676f7837868b40.zip
added patch-oem.pl file used to generate HP Mandrake Linux 8.2.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/patch/patch-oem-hp.pl323
1 files changed, 323 insertions, 0 deletions
diff --git a/perl-install/patch/patch-oem-hp.pl b/perl-install/patch/patch-oem-hp.pl
new file mode 100644
index 000000000..0a5b0b51e
--- /dev/null
+++ b/perl-install/patch/patch-oem-hp.pl
@@ -0,0 +1,323 @@
+use modules;
+package modules;
+my $old_load_raw = \&load_raw;
+undef *load_raw;
+*load_raw = sub {
+ &$old_load_raw;
+
+ my @l = map { my ($i, @i) = @$_; [ $i, \@i ] } grep { $_->[0] !~ /ignore/ } @_;
+ foreach (@l) {
+ if ($_->[0] eq 'ehci-hcd') {
+ add_alias('usb-interface1', $_->[0]);
+ }
+ }
+
+ if (get_alias("usb-interface") || get_alias("usb-interface1")) {
+ unless (-e "/proc/bus/usb/devices") {
+ require fs; fs::mount('/proc/bus/usb', '/proc/bus/usb', 'usbdevfs');
+ #- ensure keyboard is working, the kernel must do the job the BIOS was doing
+ sleep 4;
+ load_multi("usbkbd", "keybdev") if detect_devices::usbKeyboards();
+ }
+ }
+};
+
+my $old_load = \&load;
+undef *load;
+*load = sub {
+ &$old_load;
+
+ #- hack to get back usb-interface (even if already loaded by stage1)
+ #- NOTE load_multi is not used for that so not overloaded to fix that too.
+ if ($_[0] =~ /usb-[uo]hci/ && !get_alias("usb-interface")) {
+ add_alias('usb-interface', $_[0]);
+ } elsif ($_[0] eq 'ehci-hcd' && !get_alias("usb-interface1")) {
+ add_alias('usb-interface1', $_[0]);
+ }
+
+ if (get_alias("usb-interface") || get_alias("usb-interface1")) {
+ unless (-e "/proc/bus/usb/devices") {
+ require fs; fs::mount('/proc/bus/usb', '/proc/bus/usb', 'usbdevfs');
+ #- ensure keyboard is working, the kernel must do the job the BIOS was doing
+ sleep 4;
+ load_multi("usbkbd", "keybdev") if detect_devices::usbKeyboards();
+ }
+ }
+};
+
+#- ensure it is loaded using this patch.
+$::noauto or modules::load_thiskind("usb");
+sleep 2;
+
+use install_steps;
+package install_steps;
+
+my $old_beforeInstallPackages = \&beforeInstallPackages;
+undef *beforeInstallPackages;
+*beforeInstallPackages = sub {
+ &$old_beforeInstallPackages;
+
+ my ($o) = @_;
+ mkdir "$o->{prefix}$_" foreach qw(/boot /usr /usr/share /usr/share/mdk);
+ install_any::getAndSaveFile("Mandrake/base/oem-message-graphic", "$o->{prefix}/boot/oem-message-graphic");
+ install_any::getAndSaveFile("Mandrake/base/oem-background.png", "$o->{prefix}/usr/share/mdk/oem-background.png");
+};
+
+my $old_afterInstallPackages = \&afterInstallPackages;
+undef *afterInstallPackages;
+*afterInstallPackages = sub {
+ &$old_afterInstallPackages;
+
+ my ($o) = @_;
+
+ #- lilo image.
+ rename "$o->{prefix}/boot/lilo-graphic/message", "$o->{prefix}/boot/lilo-graphic/message.orig";
+ system "chroot", $o->{prefix}, "cp", "-f", "/boot/oem-message-graphic", "/boot/lilo-graphic/message";
+
+ #- KDE desktop background.
+ if (-e "$o->{prefix}/usr/share/config/kdesktoprc") {
+ update_gnomekderc("$o->{prefix}/usr/share/config/kdesktoprc", "Desktop0",
+ MultiWallpaperMode => "NoMulti",
+ Wallpaper => "/usr/share/mdk/oem-background.png",
+ WallpaperMode => "Scaled",
+ );
+ }
+ #- GNOME desktop background.
+ if (-e "$o->{prefix}/etc/gnome/config/Background") {
+ update_gnomekderc("$o->{prefix}/etc/gnome/config/Background", "Default",
+ wallpaper => "/usr/share/mdk/oem-background.png",
+ wallpaperAlign => "3",
+ );
+ }
+
+ #- make sure no error can be forwarded, test staroffice installed and OpenOffice.org,
+ #- remove the first if the second is installed.
+ eval {
+ if (!$o->{isUpgrade} && -e "$o->{prefix}/usr/lib/openoffice/program/soffice.bin" && grep { -e "$o->{prefix}/usr/lib/office60_$_/program/soffice.bin" } qw(de en es fr it)) {
+ require run_program;
+ log::l("removing OpenOffice.org as staroffice is installed");
+ run_program::rooted($o->{prefix}, "rpm", "-e", "OpenOffice.org");
+ }
+ };
+};
+
+use install_any;
+package install_any;
+
+undef *copy_advertising;
+*copy_advertising = sub {
+ my ($o) = @_;
+
+ return if $::rootwidth < 800;
+
+ my $f;
+ my $source_dir = "Mandrake/share/advertising";
+ foreach ("." . $o->{lang}, "." . substr($o->{lang},0,2), '') {
+ $f = getFile("$source_dir$_/list") or next;
+ $source_dir = "$source_dir$_";
+ }
+ if (my @files = <$f>) {
+ my $dir = "$o->{prefix}/tmp/drakx-images";
+ mkdir $dir;
+ unlink glob_("$dir/*");
+ foreach (@files) {
+ chomp;
+ getAndSaveFile("$source_dir/$_", "$dir/$_");
+ s/\.png/\.pl/;
+ getAndSaveFile("$source_dir/$_", "$dir/$_");
+ s/\.pl/_icon\.png/;
+ getAndSaveFile("$source_dir/$_", "$dir/$_");
+ s/_icon\.png/\.png/;
+ }
+ @advertising_images = map { $_ && -e "$dir/$_" ? ("$dir/$_") : () } @files;
+ }
+};
+
+#undef *allowNVIDIA_rpms;
+#*allowNVIDIA_rpms = sub {
+# my ($packages) = @_;
+# require pkgs;
+# if (pkgs::packageByName($packages, "NVIDIA_GLX")) {
+# #- at this point, we can allow using NVIDIA 3D acceleration packages.
+# my @rpms;
+# foreach (keys %{$packages->{names}}) {
+# my ($ext, $version, $release) = /kernel[^-]*(-smp|-enterprise|-secure)?(?:-(\d.*?)\.(\d+\.\d+mdk))?$/ or next;
+# my $p = pkgs::packageByName($packages, $_);
+# pkgs::packageSelectedOrInstalled($p) or next;
+# $version or ($version, $release) = (pkgs::packageVersion($p), pkgs::packageRelease($p));
+# my $name = "NVIDIA_kernel-$version-$release$ext";
+# pkgs::packageByName($packages, $name) or return;
+# push @rpms, $name;
+# }
+# @rpms > 0 or return;
+# return [ @rpms, "NVIDIA_GLX" ];
+# }
+#};
+
+use detect_devices;
+package detect_devices;
+
+undef *usbMice;
+*usbMice = sub { grep { ($_->{media_type} =~ /\|Mouse/ || $_->{driver} =~ /Mouse:USB/) &&
+ $_->{driver} !~ /Tablet:wacom/} usb_probe() };
+
+use Xconfigurator;
+package Xconfigurator;
+
+undef *cardConfigurationAuto;
+*cardConfigurationAuto = sub {
+ my @cards;
+ if (my @c = grep { $_->{driver} =~ /(Card|Server):/ } detect_devices::probeall()) {
+ @c >= 2 && $c[0]{description} eq $c[1]{description} && $c[0]{description} =~ /82830 CGC/ and shift @c;
+ foreach my $i (0..$#c) {
+ local $_ = $c[$i]->{driver};
+ my $card = { identifier => ($c[$i]{description} . (@c > 1 && " $i")) };
+ $card->{type} = $1 if /Card:(.*)/;
+ $card->{server} = $1 if /Server:(.*)/;
+ $card->{driver} = $1 if /Driver:(.*)/;
+ $card->{flags}{needVideoRam} = /86c368|S3 Inc|Tseng.*ET6\d00/;
+ $card->{busid} = "PCI:$c[$i]{pci_bus}:$c[$i]{pci_device}:$c[$i]{pci_function}";
+ push @{$card->{lines}}, @{$lines{$card->{identifier}} || []};
+ push @cards, $card;
+ }
+ }
+ #- take a default on sparc if nothing has been found.
+ if (arch() =~ /^sparc/ && !@cards) {
+ log::l("Using probe with /proc/fb as nothing has been found!");
+ local $_ = cat_("/proc/fb");
+ if (/Mach64/) { push @cards, { server => "Mach64" } }
+ elsif (/Permedia2/) { push @cards, { server => "3DLabs" } }
+ else { push @cards, { server => "Sun24" } }
+ }
+ #- special case for dual head card using only one busid.
+ @cards = map { my $dup = $_->{identifier} =~ /MGA G[45]50/ ? 2 : 1;
+ if ($dup > 1) {
+ my @result;
+ my $orig = $_;
+ foreach (1..$dup) {
+ my $card = {};
+ add2hash($card, $orig);
+ push @result, $card;
+ }
+ @result;
+ } else {
+ ($_);
+ }
+ } @cards;
+ #- make sure no type are already used, duplicate both screen
+ #- and rename type (because used as id).
+ if (@cards > 1) {
+ my $card = 1;
+ foreach (@cards) {
+ updateCardAccordingName($_, $_->{type}) if $_->{type};
+ $_->{type} = "$_->{type} $card";
+ $card++;
+ }
+ }
+ #- in case of only one cards, remove all busid reference, this will avoid
+ #- need of change of it if the card is moved.
+ #- on many PPC machines, card is on-board, busid is important, leave?
+ @cards == 1 and delete $cards[0]{busid} if arch() !~ /ppc/;
+ @cards;
+};
+
+use mouse;
+package mouse;
+undef *detect;
+*detect = sub {
+ if (arch() =~ /^sparc/) {
+ return fullname2mouse("sunmouse|Sun - Mouse");
+ }
+ if (arch() eq "ppc") {
+ return fullname2mouse(detect_devices::hasMousePS2("usbmouse") ?
+ "USB|1 button" :
+ #- No need to search for an ADB mouse. If I did, the PPC kernel would
+ #- find one whether or not I had one installed! So.. default to it.
+ "busmouse|1 button");
+ }
+
+ my @wacom;
+ my $fast_mouse_probe = sub {
+ my $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Standard", unsafe => 1);
+
+ if (modules::get_alias("usb-interface")) {
+ if (my (@l) = detect_devices::usbMice()) {
+ log::l("found usb mouse $_->{driver} $_->{description} ($_->{type})") foreach @l;
+ eval { modules::load($_) foreach qw(hid mousedev usbmouse) };
+ if (!$@ && detect_devices::tryOpen("usbmouse")) {
+ my $mouse = fullname2mouse($l[0]{driver} =~ /Mouse:(.*)/ ? $1 : "USB|Generic");
+ $auxmouse and $mouse->{auxmouse} = $auxmouse; #- for laptop, we kept the PS/2 as secondary (symbolic).
+ return $mouse;
+ }
+ eval { modules::unload($_) foreach qw(usbmouse mousedev hid) };
+ }
+ }
+ $auxmouse;
+ };
+
+ if (modules::get_alias("usb-interface")) {
+ my $keep_mouse;
+ if (my (@l) = detect_devices::usbWacom()) {
+ log::l("found usb wacom $_->{driver} $_->{description} ($_->{type})") foreach @l;
+ eval { modules::load("wacom"); modules::load("evdev"); };
+ unless ($@) {
+ foreach (0..$#l) {
+ detect_devices::tryOpen("input/event$_") and $keep_mouse = 1, push @wacom, "input/event$_";
+ }
+ }
+ $keep_mouse or eval { modules::unload("evdev"); modules::unload("wacom"); };
+ }
+ }
+
+ #- at this level, not all possible mice are detected so avoid invoking serial_probe
+ #- which takes a while for its probe.
+ if ($::isStandalone) {
+ my $mouse = $fast_mouse_probe->();
+ $mouse and return ($mouse, @wacom);
+ }
+
+ #- probe serial device to make sure a wacom has been detected.
+ eval { modules::load("serial") };
+ my ($r, @serial_wacom) = mouseconfig(); push @wacom, @serial_wacom;
+
+ if (!$::isStandalone) {
+ my $mouse = $fast_mouse_probe->();
+ $r && $mouse and $r->{auxmouse} = $mouse; #- we kept the auxilliary mouse as PS/2.
+ $r and return ($r, @wacom);
+ $mouse and return ($mouse, @wacom);
+ } else {
+ $r and return ($r, @wacom);
+ }
+
+ #- in case only a wacom has been found, assume an inexistant mouse (necessary).
+ @wacom and return { CLASS => 'MOUSE',
+ nbuttons => 2,
+ device => "nothing",
+ MOUSETYPE => "Microsoft",
+ XMOUSETYPE => "Microsoft"}, @wacom;
+
+ if (!modules::get_alias("usb-interface") && detect_devices::is_a_recent_computer() && $::isInstall && !$::noauto) {
+ #- special case for non detected usb interface on a box with no mouse.
+ #- we *must* find out if there really is no usb, otherwise the box may
+ #- not be accessible via the keyboard (if the keyboard is USB)
+ #- the only way to know this is to make a full pci probe
+ modules::load_thiskind("usb", '', 'unsafe');
+ if (my $mouse = $fast_mouse_probe->()) {
+ return $mouse;
+ }
+ }
+
+ if (modules::get_alias("usb-interface")) {
+ eval { modules::load($_) foreach qw(hid mousedev usbmouse) };
+ sleep 1;
+ if (!$@ && detect_devices::tryOpen("usbmouse")) {
+ #- defaults to generic USB mouse on usbmouse.
+ log::l("defaulting to usb generic mouse");
+ return fullname2mouse("USB|Generic", unsafe => 1);
+ }
+ }
+
+ #- defaults to generic serial mouse on ttyS0.
+ #- Oops? using return let return a hash ref, if not using it, it return a list directly :-)
+ return fullname2mouse("serial|Generic 2 Button Mouse", unsafe => 1);
+};