From fd8bbba2f02b8bccd69e67c326fd320c0827941d Mon Sep 17 00:00:00 2001 From: Mageia SVN-Git Migration Date: Sun, 6 Feb 2011 22:37:08 +0000 Subject: Synthesized commit during git-svn import combining previous Mandriva history with Mageia. This commit consitsts of the following subversion commits: ------------------------------------------------------------------------ r431 | dmorgan | 2011-02-06 01:58:02 +0000 (Sun, 06 Feb 2011) | 1 line Add drakx structure on the SVN ------------------------------------------------------------------------ r432 | dmorgan | 2011-02-06 01:59:38 +0000 (Sun, 06 Feb 2011) | 1 line Import cleaned advertising ------------------------------------------------------------------------ r446 | dmorgan | 2011-02-06 22:37:08 +0000 (Sun, 06 Feb 2011) | 1 line Import Clean perl-install ------------------------------------------------------------------------ r448 | dmorgan | 2011-02-06 23:02:36 +0000 (Sun, 06 Feb 2011) | 1 line Add cleaned files ------------------------------------------------------------------------ r449 | dmorgan | 2011-02-06 23:03:52 +0000 (Sun, 06 Feb 2011) | 1 line Import cleaned kernel ------------------------------------------------------------------------ r450 | dmorgan | 2011-02-06 23:23:30 +0000 (Sun, 06 Feb 2011) | 1 line Import cleaned tools ------------------------------------------------------------------------ r451 | dmorgan | 2011-02-07 00:01:56 +0000 (Mon, 07 Feb 2011) | 1 line Import stage1 ------------------------------------------------------------------------ r473 | dmorgan | 2011-02-07 11:20:50 +0000 (Mon, 07 Feb 2011) | 1 line Import images ------------------------------------------------------------------------ r497 | ennael | 2011-02-09 21:02:06 +0000 (Wed, 09 Feb 2011) | 2 lines readd missing file ------------------------------------------------------------------------ r502 | pterjan | 2011-02-09 23:30:32 +0000 (Wed, 09 Feb 2011) | 1 line Import rescue ------------------------------------------------------------------------ r603 | ennael | 2011-02-24 13:32:54 +0000 (Thu, 24 Feb 2011) | 2 lines import cleaned rescue for Mageia ------------------------------------------------------------------------ r2061 | tv | 2011-10-20 20:32:19 +0100 (Thu, 20 Oct 2011) | 1 line import (cleaned) doc ------------------------------------------------------------------------ --- globetrotter/.perl_checker | 8 - globetrotter/ChangeLog | 276 ---------------- globetrotter/Makefile | 97 ------ globetrotter/README | 64 ---- globetrotter/doc/BUGS | 6 - globetrotter/doc/BUILD | 28 -- globetrotter/doc/NOTES | 17 - globetrotter/fix-broken-hd.diff | 127 -------- globetrotter/hwprofile | 44 --- globetrotter/make_live | 547 -------------------------------- globetrotter/mandrake-globetrotter.spec | 45 --- globetrotter/move.pm | 175 ---------- globetrotter/runstage2 | 30 -- 13 files changed, 1464 deletions(-) delete mode 100644 globetrotter/.perl_checker delete mode 100644 globetrotter/ChangeLog delete mode 100644 globetrotter/Makefile delete mode 100644 globetrotter/README delete mode 100644 globetrotter/doc/BUGS delete mode 100644 globetrotter/doc/BUILD delete mode 100644 globetrotter/doc/NOTES delete mode 100644 globetrotter/fix-broken-hd.diff delete mode 100644 globetrotter/hwprofile delete mode 100755 globetrotter/make_live delete mode 100644 globetrotter/mandrake-globetrotter.spec delete mode 100644 globetrotter/move.pm delete mode 100755 globetrotter/runstage2 (limited to 'globetrotter') diff --git a/globetrotter/.perl_checker b/globetrotter/.perl_checker deleted file mode 100644 index 444722de3..000000000 --- a/globetrotter/.perl_checker +++ /dev/null @@ -1,8 +0,0 @@ -Carp::Heavy -Digest::base -Gtk2::Gdk::Keysyms -Net::Ping -packdrake -urpm -warnings -Packdrakeng diff --git a/globetrotter/ChangeLog b/globetrotter/ChangeLog deleted file mode 100644 index 9dad9b73a..000000000 --- a/globetrotter/ChangeLog +++ /dev/null @@ -1,276 +0,0 @@ -2005-06-09 13:43 Thierry Vignaud - - * Makefile: (changelog) only track HEAD changes - -2005-06-09 13:07 Thierry Vignaud - - * make_live: - sync with DrakX's API - add a few comments - we only - need 4.6Gb for packages now (the DVD image) - update package - list: o for 10.0 -> LE2005 changes (eg: switch to dkms and the - like) o install all languages (marketing request) o install - multimedia plugins & Java runtime environment o do not unselect - anymore input methods - -2005-06-09 12:58 Thierry Vignaud - - * make_live: (installPackages) help packages' post-install scripts - -2005-06-09 12:58 Thierry Vignaud - - * make_live: (installPackages) help DrakX more - -2005-06-09 12:55 Thierry Vignaud - - * make_live: detect both old and new LaCie models - -2005-06-09 12:52 Thierry Vignaud - - * make_live: prevent building a disk w/o translation catalogs - -2005-06-09 12:50 Thierry Vignaud - - * make_live: prevent warning message about /proc to appear at boot - -2005-06-09 12:49 Thierry Vignaud - - * make_live: - urpmi syntax had changed - install all new media - -2005-06-09 12:48 Thierry Vignaud - - * make_live: devfs is dead - -2005-06-09 12:46 Thierry Vignaud - - * make_live: save X.org conf too on profile switch - -2005-06-09 12:31 Thierry Vignaud - - * make_live: set $::build_globetrotter - -2005-06-09 12:13 Thierry Vignaud - - * move.pm: (install2::configMove) prevent dm service to fail to - startup because of /tmp/.font-unix's permissions - -2005-06-09 12:11 Thierry Vignaud - - * move.pm: (install2::configMove) workaround init reading inittab - before any.pm alters it - -2005-06-09 12:09 Thierry Vignaud - - * move.pm: sync with drakx's API - -2005-06-09 12:08 Thierry Vignaud - - * move.pm: (automatic_xconf) class_discard is needed way earlier - -2005-06-09 12:07 Thierry Vignaud - - * move.pm: (install2::configMove) fix killing X11 due to XFree86 -> - X.org switch - -2005-06-09 12:06 Thierry Vignaud - - * move.pm: (install2::configMove) if formatError() returns nothing, - better display the raw error - -2005-06-09 11:59 Thierry Vignaud - - * Makefile: fix build - -2005-06-09 11:59 Thierry Vignaud - - * .perl_checker: blacklist more pakcages - -2005-06-09 11:58 Thierry Vignaud - - * runstage2: fix comment - -2005-06-02 05:20 Olivier Blin - - * hwprofile: fix netprofile stuff - -2005-05-25 10:56 Thierry Vignaud - - * fix-broken-hd.diff: fix broken hd - -2005-05-25 10:45 Thierry Vignaud - - * make_live: unmount partitions even when failled - -2005-05-25 10:41 Thierry Vignaud - - * make_live: display message earlier - -2005-05-25 10:40 Thierry Vignaud - - * make_live: on restoration, tell which one is the packages - partition when found - -2005-05-25 10:39 Thierry Vignaud - - * make_live: nicely tell that the restoration is completed - -2005-05-25 10:39 Thierry Vignaud - - * make_live: use newly introduced my_exit() in order to display - better messages - -2005-05-25 10:37 Thierry Vignaud - - * make_live: (my_exit) introduce it for smoother messages - -2005-05-25 10:36 Thierry Vignaud - - * make_live: handle smoothly packages partition with multiple - kernel packages - -2005-05-25 10:35 Thierry Vignaud - - * make_live: fix fs checking prior to restoration, thus handling - restoration on fscked hard disks - -2005-05-25 10:34 Thierry Vignaud - - * make_live: when we format the root fs prior to restoring the hd, - set back the label on the fs so that we can handle an aborted - restoration (power outrage, ...) - -2005-05-25 10:33 Thierry Vignaud - - * make_live: factorize some code through find_partition() - -2004-10-26 17:18 Thierry Vignaud - - * make_live: do not try to run killall until it has been installed - -2004-10-07 02:44 Pixel - - * move.pm: - XFdrake can detect a auxmouse which was not detected - by mousedrake so we need to call various_xfree_conf() - this - implies adding parameter $do_pkgs to a few functions - -2004-08-27 08:11 Thierry Vignaud - - * ChangeLog: initial commit - -2004-08-27 08:10 Thierry Vignaud - - * Makefile: add changelog target - -2004-07-20 04:42 Pixel - - * hwprofile, move.pm, runstage2: MandrakeSoft -> Mandrakesoft - -2004-07-09 04:47 Thierry Vignaud - - * make_live: sometimes grub return non zero exit status w/o error - -2004-07-09 04:46 Thierry Vignaud - - * make_live: kill debug message - -2004-07-09 04:16 Thierry Vignaud - - * make_live: do not complain about unmounted usb fs in recue mode - -2004-07-09 03:45 Thierry Vignaud - - * make_live: fix restore mode (initrd's mount failled to mount ext2 - as ext3) - -2004-06-30 10:14 Thierry Vignaud - - * doc/BUILD: fix build explanation (else make_live will horribly - die due to missing functions :-() - -2004-06-30 09:25 Thierry Vignaud - - * doc/BUILD: update how to build instructions - -2004-06-30 08:13 Thierry Vignaud - - * doc/BUILD: do not forget to update hdlists - -2004-06-30 08:12 Thierry Vignaud - - * README: fix required packages list - -2004-06-30 07:24 Thierry Vignaud - - * make_live: display a nicer error message when disk is not found - -2004-06-29 08:25 Thierry Vignaud - - * make_live: fix umounting - -2004-06-29 05:28 Thierry Vignaud - - * make_live: unselect uim since mdk10 package of uim IM break first - time wizard when selecting english - -2004-06-29 04:09 Thierry Vignaud - - * make_live: perl_checker cleanups - -2004-06-29 03:36 Thierry Vignaud - - * make_live: add rescue support - -2004-06-24 11:41 Thierry Vignaud - - * make_live: (installPackages) kill debugging statements - -2004-06-24 10:17 Thierry Vignaud - - * hwprofile: create hw profile after having run first time wizard - so that if one refuse the icense, he has to run it again - -2004-06-24 07:39 Thierry Vignaud - - * make_live: make share partition be writeable by unpriviliegied - users - -2004-06-24 07:33 Thierry Vignaud - - * make_live: add fb2png in order to be able to take screenshots - -2004-06-24 07:31 Thierry Vignaud - - * make_live: per machine firewall configuration - -2004-06-18 05:44 Thierry Vignaud - - * make_live: force installation of both 2.4.x and 2.6.x centrino - drivers - -2004-06-18 05:44 Thierry Vignaud - - * make_live: - use labels for home and packages partitions too - - mount packages partition in read-only mode - -2004-06-18 04:08 Thierry Vignaud - - * make_live: install autologin as requested by QA - -2004-06-15 18:56 Thierry Vignaud - - * README: update package versions to reflect current globetrotter - -2004-06-15 18:54 Thierry Vignaud - - * README: update what's required in new initscripts - -2004-06-15 18:50 Thierry Vignaud - - * .perl_checker, Makefile, README, hwprofile, make_live, - mandrake-globetrotter.spec, move.pm, runstage2, doc/BUGS, - doc/BUILD, doc/NOTES: Imported Globetrotter - -2004-06-15 18:50 Thierry Vignaud - - * .perl_checker, Makefile, README, hwprofile, make_live, - mandrake-globetrotter.spec, move.pm, runstage2, doc/BUGS, - doc/BUILD, doc/NOTES: Initial revision - diff --git a/globetrotter/Makefile b/globetrotter/Makefile deleted file mode 100644 index d6a0756cd..000000000 --- a/globetrotter/Makefile +++ /dev/null @@ -1,97 +0,0 @@ -PACKAGE=mandrake-globetrotter -PKGVERSION:=$(shell rpm -q --qf '%{VERSION}\n' --specfile $(PACKAGE).spec|head -n 1) -RELEASE:=$(shell rpm -q --qf '%{RELEASE}\n' --specfile $(PACKAGE).spec|head -n 1) -TAG := $(shell echo "V$(PKGVERSION)_$(RELEASE)" | tr -- '-.' '__') - -DIRS=share/po -PREFIX = - -SBINDIR = $(PREFIX)/usr/sbin -LIBDIR = $(PREFIX)/usr/lib -LIBDEST = $(LIBDIR)/libDrakX -DATADIR = $(PREFIX)/usr/share - -LANG_FILES = pixmaps/langs -DISTFILES = hwprofile *.spec share/po/*.po share/po/Makefile Makefile Makefile.config *.pm runstage2 $(LANG_FILES) - -.PHONY: all install clean - -all: - rm -f share/po/DrakX.pot # force rebuild of po's - make -C share/po mofiles - - -localcopy: clean - cd .. ; rm -rf $(PACKAGE)-$(PKGVERSION) ; cp -af globetrotter $(PACKAGE)-$(PKGVERSION) - # include pixmaps for language selector: - mkdir ../$(PACKAGE)-$(PKGVERSION)/{pixmaps,share} - cp -af ../perl-install/pixmaps/langs ../$(PACKAGE)-$(PKGVERSION)/pixmaps/langs - # include drakx modules for first time wizard : - # cp -af ../perl-install/share/po ../$(PACKAGE)-$(PKGVERSION)/share/ - mkdir ../$(PACKAGE)-$(PKGVERSION)/share/po - # cp -af ../perl-install/share/po/{fr.po,Makefile,i18n_compssUsers} ../$(PACKAGE)-$(PKGVERSION)/share/po - cp -af ../perl-install/share/po/{*.po,Makefile} ../$(PACKAGE)-$(PKGVERSION)/share/po - # enable fast build: - perl -pi -e 's!^.*msgmerge.*\n!!' ../$(PACKAGE)-$(PKGVERSION)/share/po/Makefile - cp -af ../perl-install/{help,pkgs,install*}.pm ../$(PACKAGE)-$(PKGVERSION)/ - echo 'ALLPMS = *.pm' > ../$(PACKAGE)-$(PKGVERSION)/Makefile.config - @make nuke_perl - - -install: - install -d $(LIBDEST) $(DATADIR)/libDrakX/pixmaps/langs $(SBINDIR) - install -m 644 *.pm $(LIBDEST) - install -m 755 runstage2 $(SBINDIR)/mdkmove - cp -f pixmaps/langs/lang-*.png $(DATADIR)/libDrakX/pixmaps/langs - $(MAKE) -C share/po install PREFIX=$(PREFIX) SUDO= DATADIR=$(DATADIR) NAME=libDrakX2 -# %make -C po install SUDO= NAME=libDrakX2 LOCALEDIR=$(DEST)/usr/share/locale_special - - -rpm: localrpm -localrpm: localdist buildrpm - -srpm: localsrpm -localsrpm: spec_test localdist buildsrpm - -localdist: cleandist localcopy tar - -cleandist: - rm -rf ../$(PACKAGE)-$(PKGVERSION) ../$(PACKAGE)-$(PKGVERSION).tar.bz2 - -spec_test: - @if [[ -z "$(PKGVERSION)" ]]; then echo "unable to get spec version"; exit 3;fi - @if [[ -z "$(RELEASE)" ]]; then echo "unable to get spec release"; exit 2;fi - -tar: - cd ../$(PACKAGE)-$(PKGVERSION) && rm -rf debug.log `find -name CVS` - cd ..; tar cfj $(PACKAGE)-$(PKGVERSION).tar.bz2 $(patsubst %,$(PACKAGE)-$(PKGVERSION)/%,$(DISTFILES)) - #cd ..; rm -rf $(PACKAGE)-$(PKGVERSION) - -buildrpm: - rpm -ta ../$(PACKAGE)-$(PKGVERSION).tar.bz2 - -buildsrpm: - rpm -ts --nodeps ../$(PACKAGE)-$(PKGVERSION).tar.bz2 - -# rules to build a distributable rpm - -dist: cleandist export tar - -export: - cd ..; cvs export -d $(PACKAGE)-$(PKGVERSION) -r $(TAG) $(PACKAGE) - cd ../$(PACKAGE)-$(PKGVERSION) - cd ..; - @make nuke_perl - -nuke_perl: - find ../$(PACKAGE)-$(PKGVERSION) -name '*.pm' | xargs perl -pi -e 's/\s*use\s+(diagnostics|strict|vars|warnings).*//g' - -img: - /usr/bin/lilo-bmp2mdk mode:0x103 progress:397,190,14,6,64+8 clear:600,800,64+8 pos:0,0 < BOOTGTROTTER-install-lilo-8bis.bmp > isolinux_boot.msg - -.PHONY: log changelog - -log: changelog - -changelog: - cvs2cl --accum -W 400 -U ../../soft/common/username -F TRUNK diff --git a/globetrotter/README b/globetrotter/README deleted file mode 100644 index 7052212b3..000000000 --- a/globetrotter/README +++ /dev/null @@ -1,64 +0,0 @@ - Mandrakelinux GlobeTrotter, powered by LaCie Mobile Hard Drive project - ====================================================================== - - - -Requirements: -============= - -1) packages: ------------- - -you need to have the distro repositery mounted in /export. - -on top of the mdk10.0 base + its updates, the following packages were -updated from cooker: - -- misc bug fixes: - o drakconf-10-13mdk - o {drakxtools,harddrake}*-10-34.2mdk - o mdkonline-1.1-2.1.100mdk - o menudrake-0.7.4-8mdk - o perl-Libconf*-0.33-2mdk - o rpmdrake-2.1.3-5mdk - o initscripts-7.06-49.1mdk: - * usb starting when usb host drivers were loaded by initrd - * fix larsen on laptops -- root=LABEL=foobar and boot from USB support: - o mkinitrd-3.5.18-10mdk - o bootloader-utils-1.7-1mdk -- coexistance: - o glibc with /etc/ld.so.conf.d/ support - o ATI driver - o NIVIDIA driver -- new packages: - o kdetv, libkdevideo -- should we also take new kernel? - -Note: once you've updated some packages, you need to run "gendistrib - /export". - - -2) local checkout of drakx: ---------------------------- - -you need a copy of gi/perl-install in ../perl-install as well as -gi/mdk-stage1. - -you need to install the following packages: gcc, e2fsprogs, -ldetect-devel, libext2fs2-devel, libxfree86-devel, perl-devel, -perl-URPM, rpm-devel, rpmtools, and urpmi. - -then you need to type "make c" in ../perl-install. - -last but not least, you need to copy list_modules from gi/kernel into -perl-instéall and gi/mdk-stage1/pcmcia_/probe.c into perl-install/c. - - - -Building the hd image: -====================== - -just type ./make_live - -it'll reformat the hard disk, mount it and install packages \ No newline at end of file diff --git a/globetrotter/doc/BUGS b/globetrotter/doc/BUGS deleted file mode 100644 index 97ff5d8b0..000000000 --- a/globetrotter/doc/BUGS +++ /dev/null @@ -1,6 +0,0 @@ --*- outline -*- - -* drakboot and diskdrake are not yet fully capable of managing LABEL= in -/tc/fstab - -* lilo failed to boot from USB diff --git a/globetrotter/doc/BUILD b/globetrotter/doc/BUILD deleted file mode 100644 index 108c44650..000000000 --- a/globetrotter/doc/BUILD +++ /dev/null @@ -1,28 +0,0 @@ - How to build Mandrakelinux Globetrotter: - ======================================== - -- you need first to install all the drakxtools' build dependancies - (thus running "urpmi /SRPMS/drakxtools-*" may be quite helpful) - -- copy the mdk10.0 DVD in /export -- leave main as Mandrake/RPMS -- copy h[cs]f*, FlashPlayer*, RealPlayer* into Mandrake/RPMS from Mandrake/RPMS[23] -- move contribs as Mandrake/RPMS2 -- move other RPMS? somewhere else -- add packages from ~tv/rpm/lacie on cluster -- add updates from /mnt/BIG/dis/updates/10.0 -- add updated proprietary packages for kernel update from kameha - (nplanel's work machine): - echo "mget *2.4.25.5mdk* *2.6.3.13mdk*" | \ -lftp -u a,a ftp://kameha:/~/../nplanel/rpm/prop/RPMS/i586/ -- run the following in order to remove duplicated packages: - doble [A-Z] | xargs rm -f - doble [a-g] | xargs rm -f - doble [h-z] | xargs rm -f -- run "gendistrib --noclean /export" -- plug the LaCie disk -- check out the whole gi cvs module -- run "C_DRAKX=1 make c" in gi/perl-install -- go into gi/globetrotter -- run make_live --partition --format --install --post in order to - prepare the disk diff --git a/globetrotter/doc/NOTES b/globetrotter/doc/NOTES deleted file mode 100644 index 5a43af0e2..000000000 --- a/globetrotter/doc/NOTES +++ /dev/null @@ -1,17 +0,0 @@ - Mandrakelinux GlobeTrotter release notes - - - -* Arabic support - - -you may want to enable the acon service from the acon package. -Just type: "chkconfig --add jserver" as root or use the "Services" -icon from the Mandrakelinux Control Center - - -* Japanese support - -you may want to enable the jserver service from the FreeWnn package. -Just type: "chkconfig --add jserver" as root or use the "Services" -icon from the Mandrakelinux Control Center \ No newline at end of file diff --git a/globetrotter/fix-broken-hd.diff b/globetrotter/fix-broken-hd.diff deleted file mode 100644 index 6ae7fa491..000000000 --- a/globetrotter/fix-broken-hd.diff +++ /dev/null @@ -1,127 +0,0 @@ ---- make_live 2005-05-25 17:42:35.000000000 +0200 -+++ make_live 2005-05-25 17:46:41.000000000 +0200 -@@ -8,6 +8,7 @@ - use standalone; - use interactive; - use common; -+use detect_devices; - use partition_table; - use fsedit; - use fs; -@@ -321,8 +322,116 @@ - - $::prefix = $ARGV[0] || '/tmp/live_tree'; - -+#=========================================================================== -+# Fix disk if it's a bogus one: -+ -+my @packages2delete = qw( -+ Mandrake/RPMS/uqm-data-0.3-1mdk.noarch.rpm -+ -+ Mandrake/RPMS2/kernel24-tmb-2.4.25-6.tmb.1mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel24-tmb-2.4.25-7.tmb.1mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel24-tmb-2.4.25-7.tmb.2mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel24-tmb-enterprise-2.4.25-6.tmb.1mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel24-tmb-enterprise-2.4.25-7.tmb.1mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel24-tmb-enterprise-2.4.25-7.tmb.2mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel24-tmb-i686-up-4GB-2.4.25-6.tmb.1mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel24-tmb-i686-up-4GB-2.4.25-7.tmb.1mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel24-tmb-i686-up-4GB-2.4.25-7.tmb.2mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel24-tmb-source-2.4.25-7.tmb.2mdk.i586.rpm -+ -+ Mandrake/RPMS2/kernel-tmb-2.6.4-1.tmb.8mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel-tmb-enterprise-2.6.4-1.tmb.8mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel-tmb-i686-up-4GB-2.6.4-1.tmb.8mdk-1-1mdk.i586.rpm -+ Mandrake/RPMS2/kernel-tmb-source-2.6.4-1.tmb.8mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-2.4.25.5mdk-3-7mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-2.6.3.15mdk-3-8mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-enterprise-2.4.25.5mdk-3-7mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-enterprise-2.6.3.15mdk-3-8mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-i686-up-4GB-2.4.25.5mdk-3-7mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-i686-up-4GB-2.6.3.15mdk-3-8mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-p3-smp-64GB-2.4.25.5mdk-3-7mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-p3-smp-64GB-2.6.3.15mdk-3-8mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-smp-2.4.25.5mdk-3-7mdk.i586.rpm -+ Mandrake/RPMS2/kernel-win4lin-smp-2.6.3.15mdk-3-8mdk.i586.rpm -+ ); -+ -+# misc paths; -+my $pkgs_mount_path = "/mnt/mdk_pkgs"; -+my $rescue_path = "/rescue-glob"; -+my $cd_mount_path = "/mnt/cdrom-glob"; -+ -+# enable to retry fixing partitions if fixing failed: -+my $__need2befixed_mark = "Mandrake/RPMS/NEED_TO_BE_FIXED"; -+my $need2befixed_mark = "$pkgs_mount_path/__need2befixed_mark"; -+ -+{ -+ mkdir_p($pkgs_mount_path); -+ -+ my $cleaner = before_leaving { -+ if (my $err = $@) { -+ print "\n>> an error happened: $err\n"; -+ } -+ print "Cleaning on end of fixing\n"; -+ eval { fs::umount($_) } foreach $pkgs_mount_path, $cd_mount_path; -+ undef $@; # do not propagate fs::umount exceptions -+ }; -+ -+ print "Checking if the packages partition needs to be fixed\n"; -+ # system("mount /dev/$pkg_dev->{device} $pkgs_mount_path"); -+ fs::mount($pkg_dev->{device}, $pkgs_mount_path, 'ext3'); -+ # my $pkgs_mount_path = "/home/qa/broken"; # FIXME: TESTING -+ -+ if (any { -e "$pkgs_mount_path/$_" } @packages2delete, $__need2befixed_mark) { -+ print "Preparing to fixing the partition packages...\n"; -+ touch($need2befixed_mark); -+ -+ # Cleaning the packages so that we get back some free space: -+ unlink("$pkgs_mount_path/$_") foreach @packages2delete; -+ -+ -+ # Lookup rescue CD: -+ -+ my $cdrom_path; -+ -+ my @cdroms = map { $_->{device} } detect_devices::cdroms(); -+ -+ mkdir_p($cd_mount_path); -+ -+ my ($found, $cdrom_dev); -+ -+ foreach my $cdrom (@cdroms) { -+ eval { fs::mount($cdrom, $cd_mount_path, 'iso9660', 1) } or next; # nicely handle empty drives -+ if (-d "$cd_mount_path/$rescue_path") { -+ $cdrom_dev = $cdrom; -+ $found = 1; -+ last; -+ } -+ fs:umount($cd_mount_path); -+ } -+ undef $@; # do not propagate fs::mount exceptions -+ -+ if ($found) { -+ warn "Found rescue CDROM on $cdrom_dev\n"; -+ } else { -+ warn "I failed to found the rescue CDROM\nPress enter to return to the menu"; -+ ; -+ # TODO : replace by sg else if merged within make_live -+ exit(0); -+ } -+ -+ -+ print "Fixing the partition packages... in progress\n"; -+ # Copy Mandrake/base with the newly generated hdlists from the old repositery; -+ cp_af($_, "$pkgs_mount_path/Mandrake/base") foreach glob_("$cd_mount_path/$rescue_path/Mandrake/base/*"); -+ cp_af($_, "$pkgs_mount_path/Mandrake/RPMS") foreach glob_("$cd_mount_path/$rescue_path/Mandrake/pkgs/*"); -+ unlink($need2befixed_mark); -+ print "Fixing the partition packages... done\n"; -+ } -+} -+ -+ - #=========================================================================== - # Building the disk: - -d $::prefix or mkdir $::prefix; - print "Making live in $::prefix directory.\n"; - diff --git a/globetrotter/hwprofile b/globetrotter/hwprofile deleted file mode 100644 index a3b0574dd..000000000 --- a/globetrotter/hwprofile +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl - -# Copyright (c) 2004 Mandrakesoft -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2, or (at your option) -# any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -use lib qw(/usr/lib/libDrakX); - -use common; -use standalone; -use Digest::MD5 qw(md5_hex); -use network::network; - -# md5_hex call came from move::machine_ident() : -my $id = "MDK" . md5_hex(join("", (map { (split)[1] } cat_("/proc/bus/pci/devices")))); - -my $net = {}; - -# first boot wizard: -!glob_("/etc/netprofile/profiles/MDK*") and system('/usr/sbin/mdkmove'); - -# create hardware profile if needed: -if (! -d "/etc/netprofile/profiles/$id") { - network::network::netprofile_read($net); - network::network::netprofile_add($net, $id); -} - -# restore hardware profile: -eval { network::network::netprofile_set($net, $id) }; - -# redo ldconfig cache for libGL (since we've both ATI and NVIDIA GLX packages): -system("/sbin/ldconfig"); diff --git a/globetrotter/make_live b/globetrotter/make_live deleted file mode 100755 index bbdb46a3b..000000000 --- a/globetrotter/make_live +++ /dev/null @@ -1,547 +0,0 @@ -#!/usr/bin/perl - -$::isInstall = 1; # for /root/drakx/ddebug.log - -use strict; -#use lib qw(/usr/lib/libDrakX); -use lib "../perl-install"; -use standalone; -use interactive; -use common; -use detect_devices; -use partition_table; -use fsedit; -use fs; -use any; -use pkgs; -use class_discard; -use run_program; -use modules; -use modules::modules_conf; -use modules::any_conf; -use log; - -# my $in = interactive->vnew; - -$::isStandalone = undef; # for /tmp/ddebug.log -$::build_globetrotter = 1; -$::no_ugtk_init = 1; - -my (%options, @new_ARGV); - -foreach (@ARGV) { - if (/^--(.*)/) { - $options{$1} = 1; - } else { - push @new_ARGV, $_; - } -} - -my $rescue; - -if ($0 =~ /restore_globetrotter/) { - %options = (install => 1, post => 1); - $rescue = 1; -} - -@ARGV = @new_ARGV; - -if (!$rescue) { - die qq(\%_install_langs is not set to "all" in /etc/rpm/macros) if cat_('/etc/rpm/macros') !~ /\%_install_langs\s*all/; -} - -my @suggestions = ( - { mntpoint => "/", size => 4500 << 11, type => 0x483, ratio => 1, maxsize => 6000 << 11, fs_type => 'ext3' }, - # splited / and /usr: - # { mntpoint => "/", size => 250 << 11, type => 0x483, ratio => 1, maxsize => 2000 << 11 }, - # { mntpoint => "/usr", size => 300 << 11, type => 0x483, ratio => 4, maxsize => 4000 << 11 }, - { mntpoint => "/home", size => 2000 << 11, type => 0x483, ratio => 3, fs_type => 'ext3' }, - - # share partition with windows: - { mntpoint => "/mnt/share", size => 2000 << 11, type => 0xb, ratio => 3, fs_type => 'vfat' }, - { mntpoint => "/mnt/packages", size => 5000 << 11, type => 0x483, ratio => 3, maxsize => 5000 << 11, fs_type => 'ext3' }, - # allocated last b/c end of disk is usually faster: - { mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 1, maxsize => 500 << 11, fs_type => 'swap' }, - ); - - -sub get_hds() { - my $all_hds = fsedit::get_hds(); - my $other; - ($all_hds->{hds}, $other) = partition { $_->{usb_description} =~ /^LaCie|LaCie Hard( |)Drive USB/ } @{$all_hds->{hds}}; - my_exit("Your disk cannot be restored because it cannot be found!") if !$all_hds->{hds}[0]; - $all_hds, $all_hds->{hds}[0]; # $other -} - - -sub prepare_disk() { - # repartion the hard disk: - print "PARTITIONNING\n"; - my ($all_hds, $hd, $other) = get_hds(); - # partition_table::remove($hd, $_) while partition_table::get_normal_parts($hd); - run_program::run("swapoff", "/dev/$all_hds->{hds}[0]{device}8") if any { /$all_hds->{hds}[0]{device}/ } cat_("/proc/partitions"); - - partition_table::raw::zero_MBR_and_dirty($hd); - fsedit::allocatePartitions($all_hds, \@suggestions); - require diskdrake::interactive; - require class_discard; - # diskdrake::interactive::write_partitions(class_discard->new, $_, 'skip_check_rebootNeeded') foreach (@{$all_hds->{hds}}); - foreach (@{$all_hds->{hds}}) { - local $::isStandalone = undef; - print "WRITE PARTITION ON $_->{file}\n"; - diskdrake::interactive::write_partitions(class_discard->new, $_, 'skip_check_rebootNeeded') - } - # partition_table::write(@{$all_hds->{hds}}); - ($all_hds, $hd, $other); -} - - -sub formatdisk { - my ($hd) = @_; - print "FORMATTING\n"; - foreach (partition_table::get_normal_parts($hd)) { - print qq(Formatting "$_->{device}" ($_->{mntpoint})\n); - require fs::format; - fs::format::part(undef, $_, $::prefix, undef) if !$::testing; - } -} - - -#@ARGV <= 1 or die "usage: make_live [live_location=/tmp/live_tree]\n"; - - if (!find { m!/proc/bus/usb! } run_program::get_stdout('mount')) { - warn "USB service is *NOT* started" if !$rescue; - run_program::get_stdout('service', 'usb', 'start'); - } - -sub my_exit { - my ($msg) = @_; - print "\n\n==============================================================\n\n"; - print $msg; - print "\n\nPress to return back to menu\n\n"; - print "==============================================================\n\n"; - ; - c::_exit(0); -} - -sub find_partition { - my ($label, @parts) = @_; - find { member(fs::type2fs($_), qw(ext2 ext3)) && chomp_(`e2label /dev/$_->{device} 2>/dev/root`) eq $label } @parts; -} - -my $pkg_dev; -if ($rescue) { - system("mount -t tmpfs none /tmp"); - # let be able to see USB devices: - system("mount -t usbfs none /proc/bus/usb"); - system("modprobe usb-storage; modprobe sd_mod"); - # let be able to detect SCSI hds: - mkdir("/sys"); - system("mount -t sysfs none /sys"); - - my ($all_hds, $hd, $other) = get_hds(); - print "Looking for the package partition\n"; - my @parts = partition_table::get_normal_parts($hd); - $pkg_dev = find_partition("MDK-PKGS", @parts); - #die "I cannot find the package partition which is needed in order to restore the system!" - my_exit("Your disk cannot be restored because there is no more a restore partition!") if is_empty_hash_ref($pkg_dev) || !$pkg_dev->{device}; - print "Packages partition was found on $pkg_dev->{device}\n"; - my $root = find_partition("MDK-ROOT", @parts); - $root = find { $_->{device} eq "sda1" } @parts if is_empty_hash_ref($root); - #my_exit("I cannot find any hard disk to restore!") if is_empty_hash_ref($root) || !$root->{device}; - my_exit("Your disk cannot be restored because there is no more a root partition!") if is_empty_hash_ref($root) || !$root->{device}; - print "\nPlease wait, disk is being checked, this can take quite some time\n\n"; - run_program::run("e2fsck -C0 -y $_") foreach map { - my $p = find_partition($_, @parts); - if_($p, $p->{device}); # handle lost labels - } "MDK-PKGS", "MDK-HOME"; # MDK-ROOT" - print "Please wait, disk reinstallation is in progress, this can take quite some time\n"; - print "Formating $root->{device}\n"; - system("mkfs.ext2 -j /dev/$root->{device} > /dev/null\n"); - run_program::run('tune2fs', '-L', "MDK-ROOT", "/dev/$root->{device}"); # prevent lost label if restore aborts before the end -} - -sub installPackages() { - local $::testing = undef; - - # for a gconftool-2 cleaner: - my $pid = fork(); - !defined $pid and die("cannot fork: $!"); - !$pid and do { - while (1) { - sleep(10); - run_program::run('/usr/bin/killall', 'gconftool-2') if -x '/usr/bin/killall'; - } - }; - my $_b = before_leaving { kill 'TERM', $pid if $pid }; - - # ensure no %_install_langs: - output_p("$::prefix/etc/rpm/macros", "%_install_langs all\n"); - # ensure boot from USB will work: - output_p("$::prefix/etc/sysconfig/mkinitrd", "forceusb=yes\n"); - - # help DrakX: - mkdir_p("$::prefix/$_") foreach qw(tmp/headers var/lib/rpm root/drakx); - - # help packages' post scripts: - mkdir_p("$::prefix/proc"); - run_program::run('mount', '-t', 'proc', 'none', "$::prefix/proc"); - run_program::run('makedev', "$::prefix/dev"); - - 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; - }; - - undef *c::kernel_version; - *c::kernel_version = sub { - #my @l = glob_('/export/Mandrake/RPMS/kernel-enterprise-2.6*'); - my @l = glob_('/export/media/main/kernel-2.6.*'); - @l >= 1 or die "can't find kernel"; - @l <= 1 or warn "too many kernels"; - first(`rpm -qp --qf '%{name}' $l[-1]` =~ /kernel-(.*)/); - }; - - my $kernel_version = c::kernel_version(); - # for third party drivers: - my $dkms_kernel_version = $kernel_version; - $dkms_kernel_version =~ s/\.(\d*mdk)$/-$1/; - - print "INSTALLING\n"; - install_any::setPackages(my $o = $::o = - bless { - prefix => $::prefix, - meta_class => 'desktop', - modules_conf => modules::modules_conf::read(modules::any_conf::vnew(), '/tmp/modules.conf'), - default_packages => [ - #- for screenshots: - qw(fb2png), - qw(xorg-x11-server xorg-x11-xfs xorg-x11-FBDev), - qw(openssh-server), #- fred wants it - qw(alsa-utils cdialog newt), - qw(k3b-dvd), - qw(davfs2 nfs-utils samba-server sane-backends xsane xsane-gimp ntp), - qw(acpi acpid), #- so that removing acpi=ht will work - qw(mountloop), #- crypted folders - #- doc: - (map { "mandrake-doc-$_" } map { ("Drakxtools-Guide-$_", "Command-Line-$_", "Quick-Startup-Plus-$_", "Starter-$_") } qw(de en es fr it)), - qw(autologin), - qw(synaptics), - #- network conf: - qw(wireless-tools pcmcia-cs), - #- zeroconf: - qw(zcip dhcpcd tmdns), - #- cnx stuff: - qw(dhcp-client ppp kdenetwork-kppp ppp-pppoatm ppp-pppoe pptp-linux pptp-adsl rp-pppoe), - "kernel-$kernel_version", - #- for older machines: - "kernel-i586-up-1GB-$kernel_version", - #- ISDN stuff: - # qw(isdn4net ibod isdn4k-utils), # not installed since it provides an interface (will be automatically installed by drakconnect) - #- network file sharing: - qw(nfs-utils-clients samba-client), - #- network drivers and firmwares: - qw(eagle-usb ipw2100-firmware ipw2200-firmware ndiswrapper speedtouch speedtouch_mgmt unicorn), - #- configuration: - qw(drakconf drakcronat drakfirsttime drakxtools harddrake-ui mdkonline rpmdrake userdrake), - 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(gcc), - "ati-kernel-$dkms_kernel_version", "nvidia-kernel-$dkms_kernel_version", qw(ati nvidia dkms patch dkms-ati dkms-nvidia libMesaGLU1), - # qw(hcfpcimodem hsflinmodem ltmodem), #- 2.4.x only - qw(xinput), #- for some mice - qw(bash-completion binutils emacs-X11 ntsysv perl-doc perl-Term-Readline-Gnu vim-enhanced openssh-clients lftp diffstat), #- allow debugging - qw(openssh-askpass-gnome), #- openssh-askpass for mountloop doesn't allow to click on ok/cancel buttons - qw(clanbomber freeciv-client freeciv-server crack-attack kdegames), #- more games - qw(numlock), # shorewall # not installed since its default config breaks network (will be automatically installed by drakfirewall) - qw(xawtv zapping kdetv), #- tv apps - #- locales: - qw(scim-hangul scim-m17n scim-tables scim-uim), #- Input Methods - (map { "locales-$_" } qw(af am ar as az be bg bn br bs ca cs cy da de el en eo es et eu fa fi fo fr fur fy ga gd gl gu gv he hi hr hu hy id ik is it iu ja ka kl km kn ko ku kw ky li lo lt lv mi mk ml mn mr ms mt nds ne nl no oc pa ph pl pt ro ru sc se sk sl sq sr st sv sw ta te tg th tk tr tt uk ur uz vi wa xh yi zh zu)), - (map { "kde-i18n-$_" } qw(af ar az be bg bn br bs ca cs cy da de el en_GB eo es et eu fa fi fo fr ga gl he hi hr hsb hu id is it ja ko ku lo lt lv mi mk mn ms mt nb nds nl nn nso oc pa pl pt pt_BR ro ru se sk sl sr ss sv ta tg th tr uk uz ven vi wa wen xh zh_CN.GB2312 zh_TW.Big5 zu)), - (map { "koffice-i18n-$_" } qw(af az bg br ca cs cy da de el en_GB eo es et fa fi fr he hsb hu it ja lo lt mt nb nl nn pl pt pt_BR ru se sk sl sr sv ta tg th tr uk ven xh zh_CN zh_TW zu)), - (map { "OpenOffice.org-l10n-$_" } qw(af ar ca cs cy da de el en es et eu fi fr he hu it ja ko nb nl nn ns pl pt pt_BR ru sk sl sv tr zh_CN zh_TW zu)), - #- for GNOME: - qw(gnome2), - qw(mozilla-firefox gnome-terminal), # QA request - (map { "mozilla-firefox-$_" } qw(af br ca cs da de devel el es fi fr ga he hu it ja ko nb nl pl pt pt_BR register ro ru sk sl sv tr zh_CN zh_TW)), - qw(dosfstools mtools), - qw(koffice konsole), - qw(udev dynamic harddrake hotplug mandrake-globetrotter netprofile), - qw(alsa-utils), - qw(mozilla-firefox), - #- plugins: - qw(acroread acroread-nppdf acroread-plugins FlashPlayer j2re RealPlayer RealPlayer-Codecs RealPlayer-rpnp), - qw(kdebase-nsplugins kdebase-kcontrol-nsplugins), - #- fonts: - qw(xorg-x11-100dpi-fonts xorg-x11-75dpi-fonts), - qw(fonts-bitmap-tscii fonts-hebrew-elmar), - (map { "fonts-ttf-$_" } qw(arabic armenian bengali big5 decoratives dejavu ethiopic gb2312 japanese kannada korean latex tamil thai tscii vera west_european)), - (map { "fonts-type1-$_" } qw(cyrillic greek hebrew)), - ], - }, 'install_any'); - - my %rpmsrate_flags_chosen = map { $_ => 1 } map { @{$_->{flags}} } @{$o->{compssUsers}}; - $rpmsrate_flags_chosen{$_} = 0 foreach qw(CAT_NETWORKING_MAIL_SERVER); - $rpmsrate_flags_chosen{$_} = 1 foreach qw(CAT_AUDIO CAT_KDE CAT_GNOME CAT_NETWORKING CAT_OFFICE CAT_SYSTEM CAT_MINIMAL_DOCS DVD USB SOUND BURNER UTF8 TV 3D INSTALL); - $rpmsrate_flags_chosen{qq(LOCALES"$_")} = 1 foreach lang::langsLANGUAGE({ all => 1 }); - pkgs::setSelectedFromCompssList($o->{packages}, \%rpmsrate_flags_chosen, 4, 0); - - my $unselect = sub { - my ($pkg) = @_; - my $p = pkgs::packageByName($o->{packages}, $pkg); - pkgs::unselectPackage($o->{packages}, $p) if $p; - }; - - $unselect->("kernel-smp-$kernel_version"); - - # unselect some packages whose services fsck up the box and whose services are not enabled by appropriate tools: - # (shorewall must be deselected before iptables is) - $unselect->($_) foreach qw(at hpoj shorewall iptables ntp tmdns zcip ); - - # unselect uim since uim IM break first time wizard when selecting english: - #$unselect->($_) foreach qw(uim-applet uim libuim0); - - 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(0, \@toInstall, $o->{packages}); - - eval { fs::mount::umount("$::prefix/proc") }; -} - -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 $_ eq 'nvidia' } "$::prefix/etc/modules"; -} - -my $fstab; - -my $cleaner = before_leaving { - if (my $err = $@) { - print "\n>> an error happened: $err\n"; - } - print "Cleaning on exiting\n"; - print "- Umounting partitions:\n"; - print "\tumounting /proc\n"; - eval { fs::mount::umount("$::prefix/proc") }; - # fs::umount("$::prefix/$_") foreach 'mnt/packages', 'mnt/share', 'home', ''; - if ($fstab) { - print "\tumounting everything else\n"; - eval { fs::mount::umount_all($fstab) } or system("umount $::prefix"); - } - print "\tumounting /tmp\n"; - eval { fs::mount::umount("/tmp") } if $rescue; - print "Cleaning done\n"; -}; - - -$::prefix = $ARGV[0] || '/tmp/live_tree'; - - -#=========================================================================== -# Building the disk: --d $::prefix or mkdir $::prefix; -print "Making live in $::prefix directory.\n"; - - -my ($all_hds, $hd, $other) = do { - # here we want testing so that diskdrake still set mount points in data structure: - local $::testing = !$options{partition}; - prepare_disk(); -}; - -formatdisk($hd) if $options{format}; - -add2hash($hd, $other); - -undef $::testing; - -my @parts = partition_table::get_normal_parts($hd); - -my ($root) = grep { $_->{mntpoint} eq "/" } @parts; -print "Root is $root->{device}\n"; -run_program::run('tune2fs', '-L', "MDK-ROOT", "/dev/$root->{device}"); -# fs::mount_part($root, $::prefix); -$fstab = [ fs::get::fstab($all_hds) ]; - -# we need to mount every fs we want to see into /etc/fstab !!! -fs::mount::part($_) foreach sort { $a->{mntpoint} cmp $b->{mntpoint} } @$fstab; - -symlink("$::prefix/mnt/packages", "/export") if $rescue; - -eval { - print "Installing packages\n"; - installPackages(); -} if $options{install}; -print "ERROR WHILE INSTALLING PACKAGES: $@\n" if $@; -log::closeLog; - -sub doRootSubst { - my ($file) = @_; - substInFile { - s!/dev/$root->{device}!LABEL=MDK-ROOT!g; - } $file; -} - -#fs::merge_info_from_mtab($fstab); -fs::write_fstab($all_hds, $::prefix); -append_to_file("$::prefix/etc/fstab", - "none /dev/pts devpts mode=0620 0 0\n", - "none /proc proc defaults 0 0\n"); -doRootSubst("$::prefix/etc/fstab"); - -my ($home) = grep { $_->{mntpoint} eq "/home" } @parts; -my ($mnt_pkgs) = grep { $_->{mntpoint} eq "/mnt/packages" } @parts; -run_program::run('tune2fs', '-L', "MDK-HOME", "/dev/$home->{device}") if $home; -run_program::run('tune2fs', '-L', "MDK-PKGS", "/dev/$mnt_pkgs->{device}") if $mnt_pkgs; - -substInFile { - s!defaults\s!defaults,ro ! if m!/mnt/packages!; - s!defaults\s!defaults,umask=0000 ! if m!/mnt/share!; - s!/dev/$home->{device}!LABEL=MDK-HOME!g; - s!/dev/$mnt_pkgs->{device}!LABEL=MDK-PKGS!g; -} "$::prefix/etc/fstab"; - - -#------------------------------------------------------------------- -#- Bootloader -print "Configuring bootloader\n"; -system("modprobe loop"); -require keyboard; -require bootloader; - -my $bootloader = { - keytable => keyboard::keyboard2kmap(keyboard::lang2keyboard('fr')), - bios => { '/dev/sda' => '0x80' }, - }; - -bootloader::suggest($bootloader, $all_hds, - vga_fb => 788, - quiet => 1); - -$bootloader->{method} = 'lilo-graphic'; - -eval { bootloader::install($bootloader, $all_hds) }; - -doRootSubst("$::prefix/etc/lilo.conf"); - -# fix LILO configuration: -substInFile { - s!root=(LABEL=MDK-ROOT)!root="\1"!g; -} "$::prefix/etc/lilo.conf"; - -run_program::rooted($::prefix, 'lilo'); - -## disable ISDN by default (bogus isdn4net came with an enabled interface :-(): -#substInFile { -# s/#ONBOOT.*/ONBOOT="no"/ -#} "$::prefix/etc/sysconfig/network-scripts/ifcfg-ippp0"; -# - -print "Post install misc configuration\n"; - - -# clean services: -# cups-lpd ibod isdn4linux isdnlog)) { -run_program::rooted($::prefix, '/sbin/chkconfig', '--del', $_) foreach qw(acon jserver oki4daemon); -#foreach my $service (qw(acon atd cups-lpd hpoj ibod iptables isdn4linux isdnlog jserver ntpd oki4daemon shorewall tmdns)) { -# run_program::rooted($::prefix, '/sbin/chkconfig', '--level', $_, $service, 'off') foreach qw(3 5); -#} - -# probably useless: -foreach my $service (qw(alsa dm harddrake hotplug sound)) { - run_program::rooted($::prefix, '/sbin/chkconfig', '--level', $_, $service, 'on') foreach qw(3 5); -} - -if ($options{post}) { - #------------------------------------------------------------------- - # save a few more files in profiles - my $prof_cfg = "$::prefix/etc/netprofile/list"; - my @files = map { chomp_($_) } cat_($prof_cfg); - # do not save the whole /etc/sysconfig; - push @files, (map { "/etc/X11/$_" } qw(XF86Config XF86Config-4 xorg.conf)), - (map { "/etc/sysconfig/$_" } qw(keyboard harddrake2/previous_hw harddisks)), - (map { "/etc/$_" } qw(modprobe.conf modprobe.preload modules modules.conf)), - qw(/etc/asound.state /etc/fstab /etc/ld.so.conf/GL.conf /etc/shorewall/); - - output($prof_cfg, join("\n", sort @files)); - - - #------------------------------------------------------------------- - #- regenerate library loader and fonts cache - run_program::rooted($::prefix, 'ldconfig'); - any::fix_broken_alternatives(); - run_program::rooted($::prefix, 'fc-cache'); #- generate cache in all directories mentioned in config file - - #- XFree - - touch("$::prefix/etc/menu/enable_simplified"); - - { - local $ENV{LC_ALL} = 'en_US'; #- update-menus doesn't work when there is no locale (aka locale "C") - #local $ENV{HOME} = '/'; #- savekdemimetypes.pl needs this otherwise it's tmp file fails - 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"; - #- faster boot: - foreach my $lang (lang::list_langs()) { - local $ENV{LC_ALL} = lang::getLANGUAGE($lang); - unlink "$::prefix/usr/share/services/ksycoca"; - run_program::rooted($::prefix, 'kbuildsycoca', '--global'); - rename("$::prefix/usr/share/services/ksycoca", "$::prefix/usr/share/services/ksycoca-$lang"); - } - symlinkf('/etc/X11/ksycoca', "$::prefix/usr/share/services/ksycoca"); -} - -# clean gconftool-2 mess: -unlink $_ foreach glob("$::prefix/core.*"); - - -##- Mandrake -#substInFile { -# s!Mandrake(l| L)inux release (\S+) \(.*\)!Mandrakelinux Nomad, powered by LaCie Mobile Hard Drive)!; -#} "$::prefix/etc/mandrake-release"; -# - - -system("rsync -rvltp /export/ $::prefix/mnt/packages/") if !$rescue; -if ($rescue) { - foreach (glob("$::prefix/home/*/")) { - next if /lost\+found/; - my (undef, undef, undef, undef, $uid) = stat($_); - my $name = $_; - $name =~ s!/$!!; - $name =~ s!.*/!!; - run_program::rooted($::prefix, "adduser", "-u", $uid, "$name"); - } -} - -unlink $_ foreach glob("$::prefix/var/lib/urpmi/*"); -run_program::rooted($::prefix, 'urpmi.addmedia', '--probe-hdlist', $_, "/mnt/packages/media/$_/") foreach qw(main contrib firmwares dkms modules plugins); - -# for fast test replaying: -run_program::rooted($::prefix, 'tar', 'cfj', '/root/etc.tar.bz2', '/etc'); - -my_exit($rescue ? "Your disk was succesfully restored!\nYou can now reboot your machine." : "Installation completed."); diff --git a/globetrotter/mandrake-globetrotter.spec b/globetrotter/mandrake-globetrotter.spec deleted file mode 100644 index 4bb3a8ac9..000000000 --- a/globetrotter/mandrake-globetrotter.spec +++ /dev/null @@ -1,45 +0,0 @@ -Summary: Mandrakelinux Globetrotter tools -Name: mandrake-globetrotter -Version: 10 -Release: 1mdk -Url: http://www.mandrakelinux.com/en/drakx.php3 -Source0: %name-%version.tar.bz2 -License: GPL -Group: System/Configuration/Other -Requires: drakxtools netprofile -BuildRoot: %_tmppath/%name-buildroot - - -%description -Contains many Mandrakelinux tools needed for Mandrakelinux Globetrotter. - -%prep -%setup -q - -%build -%make - -%install -rm -rf $RPM_BUILD_ROOT - -mkdir -p $RPM_BUILD_ROOT/{%_initrddir,%_datadir/harddrake} -%makeinstall_std PREFIX=$RPM_BUILD_ROOT -install -m 755 hwprofile $RPM_BUILD_ROOT/%_datadir/harddrake/hwprofile - -%find_lang libDrakX2 - - -%clean -rm -rf $RPM_BUILD_ROOT - - -%files -f libDrakX2.lang -%defattr(-,root,root) -%_datadir/harddrake/* -%_sbindir/* -/usr/lib/libDrakX/*pm -/usr/share/libDrakX/pixmaps/lang* - -%changelog -* Wed Apr 28 2004 Thierry Vignaud 10-1mdk -- initial release diff --git a/globetrotter/move.pm b/globetrotter/move.pm deleted file mode 100644 index 9c3ae7226..000000000 --- a/globetrotter/move.pm +++ /dev/null @@ -1,175 +0,0 @@ -package move; # $Id$ - -#- Copyright (c) 2004-2005 Mandriva -#- -#- This program is free software; you can redistribute it and/or modify -#- it under the terms of the GNU General Public License as published by -#- the Free Software Foundation; either version 2, or (at your option) -#- any later version. -#- -#- This program is distributed in the hope that it will be useful, -#- but WITHOUT ANY WARRANTY; without even the implied warranty of -#- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#- GNU General Public License for more details. -#- -#- You should have received a copy of the GNU General Public License -#- along with this program; if not, write to the Free Software -#- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -use diagnostics; -use strict; - -use c; -use common; -use modules; -use fs; -use fsedit; -use run_program; -use partition_table qw(:types); -use log; -use lang; -use detect_devices; - -sub symlinkf_short { - my ($dest, $file) = @_; - if (my $l = readlink $dest) { - $dest = $l if $l =~ m!^/!; - } - -d $file and log::l("$file already exists and is a directory! writing in directory may be needed, not overwriting"), return; - symlinkf($dest, $file); -} - -#- run very soon at stage2 start, setup things on tmpfs rw / that -#- were not necessary to start stage2 itself (there were setup -#- by stage1 of course) -sub init { - my ($o) = @_; - - check_for_xserver() and c::bind_textdomain_codeset('libDrakX2', 'UTF8'); - - - -d '/lib/modules/' . c::kernel_version() or warn("ERROR: kernel package " . c::kernel_version() . " not installed\n"), c::_exit(1); - - modules::load_category('bus/usb'); - *c::pcmcia_probe = \&detect_devices::pcmcia_probe; - $o->{pcmcia} ||= !$::noauto && c::pcmcia_probe(); - install_steps::setupSCSI($o); - -drakx_stuff: - $o->{steps}{$_} = { reachable => 1, text => $_ } - foreach qw(autoSelectLanguage configMove selectMouse setRootPassword addUser configureNetwork miscellaneous selectMouse); - $o->{orderedSteps_orig} = $o->{orderedSteps}; - $o->{orderedSteps} = [ qw(selectLanguage acceptLicense selectMouse setupSCSI miscellaneous selectKeyboard setRootPassword addUser configureNetwork configMove ) ]; - $o->{steps}{first} = $o->{orderedSteps}[0]; -} - - - - -sub enable_service { - run_program::run('/sbin/chkconfig', '--level', 5, $_[0], 'on'); -} - -sub disable_service { - run_program::run('/sbin/chkconfig', '--del', $_[0], 'on'); -} - -sub install2::configMove { - my $o = $::o; - - security::level::set($o->{security}); - - require install_steps; - install_steps::addUser($o); # for test, when replaying wizard on an already configured machine - while ($#{$o->{users}} eq -1) { - install_steps::addUser($o); - } - - $::noauto and goto after_autoconf; - - my $_wait = $o->wait_message(N("Auto configuration"), N("Please wait, detecting and configuring devices...")); - - #- automatic printer, timezone, network configs - require install_steps_interactive; - if (cat_('/proc/mounts') !~ /nfs/) { - install_steps_interactive::configureNetwork($o); - enable_service('network'); - } - enable_service('netfs'); - install_steps_interactive::summaryBefore($o); - - modules::load_category('multimedia/sound'); - enable_service('sound'); - - detect_devices::isLaptop() or enable_service('numlock'); - -after_autoconf: - require timezone; - timezone::write($o->{timezone}); - - $o->{useSupermount} = 1; - fs::set_removable_mntpoints($o->{all_hds}); - require fs::mount_options; - fs::mount_options::set_all_default($o->{all_hds}, %$o, lang::fs_options($o->{locale})); - - $o->{modules_conf}->write; - require mouse; - mouse::write_conf($o, $o->{mouse}, 1); #- write xfree mouse conf - detect_devices::install_addons(''); - - foreach my $step (@{$o->{orderedSteps_orig}}) { - next if member($step, @{$o->{orderedSteps}}); - while (my $f = shift @{$o->{steps}{$step}{toBeDone} || []}) { - log::l("doing remaining toBeDone for undone step $step"); - eval { &$f() }; - $o->ask_warn(N("Error"), [ -N("An error occurred, but I don't know how to handle it nicely. -Continue at your own risk."). formatError($@) || $@ ]) if $@; - } - } - run_program::run('killall', 'Xorg'); - output_p("$::prefix/etc/rpm/macros", "%_install_langs all\n"); - # workaround init reading inittab before any.pm alters it: - if ($::o->{autologin}) { - run_program::run('chkconfig', 'dm', 'on'); - run_program::run('telinit', 'Q'); - } - # prevent dm service to fail to startup because of /tmp/.font-unix's permissions: - run_program::run('service', 'xfs', 'stop'); - c::_exit(0); -} - - - -sub automatic_xconf { - my ($o) = @_; - - log::l('automatic XFree configuration'); - - any::devfssymlinkf($o->{mouse}, 'mouse'); - local $o->{mouse}{device} = 'mouse'; - - require Xconfig::default; - require class_discard; - $o->{raw_X} = Xconfig::default::configure(class_discard->new, { KEYBOARD => 'uk' }, $o->{mouse}); #- using uk instead of us for now to have less warnings - - require Xconfig::main; - Xconfig::main::configure_everything_auto_install($o->{raw_X}, class_discard->new, {}, - { allowNVIDIA_rpms => sub { [] }, allowATI_rpms => sub { [] }, allowFB => $o->{allowFB} }); - - modules::load_category('various/agpgart'); - - my $file = '/etc/X11/XF86Config'; - $file = "$file-4" if -e "$file-4"; - my ($Driver) = cat_($file) =~ /Section "Device".*Driver\s*"(.*?)"/s; - if ($Driver eq 'nvidia') { - modules::load('nvidia'); - } - my $lib = 'libGL.so.1'; - symlinkf_short(-e "/usr/lib/$lib.$Driver" ? "/usr/lib/$lib.$Driver" : "/usr/X11R6/lib/$lib", "/etc/X11/$lib"); -} - -sub handleI18NClp {} - - -1; diff --git a/globetrotter/runstage2 b/globetrotter/runstage2 deleted file mode 100755 index 26d10d4fa..000000000 --- a/globetrotter/runstage2 +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/perl - -#- Copyright (c) 2004 Mandrakesoft -#- -#- This program is free software; you can redistribute it and/or modify -#- it under the terms of the GNU General Public License as published by -#- the Free Software Foundation; either version 2, or (at your option) -#- any later version. -#- -#- This program is distributed in the hope that it will be useful, -#- but WITHOUT ANY WARRANTY; without even the implied warranty of -#- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#- GNU General Public License for more details. -#- -#- You should have received a copy of the GNU General Public License -#- along with this program; if not, write to the Free Software -#- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -# i18n: IMPORTANT: to get correct namespace (libDrakX2 instead of libDrakX) -BEGIN { unshift @::textdomains, 'libDrakX2' } -c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains; - -use lib qw(../perl-install /usr/lib/libDrakX); -use standalone; -use install2; - -#$::isStandalone = 0; -install2::main(@ARGV, '--globetrotter'); - -c::_exit(0); -- cgit v1.2.1