This commit was manufactured by cvs2svn to create tag 'V9_1_38mdk'.V9_1_38mdk

7 files changed, 0 insertions, 705 deletions

diff --git a/perl-install/unused/.cvsignore b/perl-install/unused/.cvsignore
deleted file mode 100644
index 72e8ffc0d..000000000
--- a/perl-install/unused/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*
diff --git a/perl-install/unused/cdrom.pm b/perl-install/unused/cdrom.pm
deleted file mode 100644
index 040ac7e98..000000000
--- a/perl-install/unused/cdrom.pm
+++ /dev/null
@@ -1,41 +0,0 @@
-package cdrom; # $Id$
-
-use diagnostics;
-use strict;
-
-use detect_devices;
-
-
-my %transTable = ( cm206 => 'cm206cd', sonycd535 => 'cdu535');
-
-1;
-
-
-sub setupCDdevicePanel {
-    my ($type) = @_;
-}
-
-sub findAtapi {
-    my $ide = ideGetDevices();
-    foreach (@$ide) { $_->{type} eq 'cdrom' and return $_->{device} }
-    error();
-}
-
-sub findSCSIcdrom {
-    detect_devices::isSCSI() or return error();
-    my $scsi = detect_devices::getSCSI();
-    foreach (@$scsi) { $_->{type} eq 'cdrom' and return $_->{device} }
-    error();
-}
-
-sub setupCDdevice {
-    my ($cddev, $dl) = @_;
-    #-TODO
-}
-
-sub removeCDmodule {
-    #- this wil fail silently if no CD module has been loaded
-    removeDeviceDriver('cdrom');
-    1;
-}
-
diff --git a/perl-install/unused/christmas-karaoke.patch b/perl-install/unused/christmas-karaoke.patch
deleted file mode 100644
index a700bc2c1..000000000
--- a/perl-install/unused/christmas-karaoke.patch
+++ /dev/null
@@ -1,98 +0,0 @@
-Index: Makefile
-===================================================================
-RCS file: /home/cvs/cooker/gi/perl-install/Makefile,v
-retrieving revision 1.151
-diff -u -r1.151 Makefile
---- Makefile	2000/12/19 18:21:05	1.151
-+++ Makefile	2000/12/20 23:29:33
-@@ -44,7 +44,7 @@
- 
- 	cp share/*.rc $(DESTREP4PMS)
- 	install -d $(DESTREP4PMS)/po
--	cp -f share/po/*.po* $(DESTREP4PMS)/po ||:
-+#	cp -f share/po/*.po* $(DESTREP4PMS)/po ||:
- 	chmod a+x $(DESTREP4PMS)/install2
- 	chmod a+x $(DESTREP4PMS)/commands
- 	chmod a+x $(DESTREP4PMS)/standalone/*
-@@ -61,6 +61,21 @@
- 	cat `../tools/specific_arch share/list` >> /tmp/list
- 	find auto -follow -name "*.so" >> /tmp/list
- 
-+	rpm -ql icewm-light | grep /usr/X11R6 >> /tmp/list
-+	rpm -ql xmms libao0 | grep /usr/lib >> /tmp/list
-+	echo /sbin/isapnp >> /tmp/list
-+	echo /sbin/pnpdump >> /tmp/list
-+	echo /usr/sbin/sndconfig >> /tmp/list
-+	echo /usr/bin/vim >> /tmp/list
-+	echo /usr/bin/aumix >> /tmp/list
-+	echo /usr/bin/ogg123 >> /tmp/list
-+	echo /usr/bin/qiv >> /tmp/list
-+	echo /usr/lib/libimlib-jpeg.so >> /tmp/list
-+	echo /usr/bin/xmms >> /tmp/list
-+	echo /usr/lib/xmms/Visualization/libxmms_singit.so >> /tmp/list
-+	echo /usr/X11R6/lib/X11/rgb.txt >> /tmp/list
-+	echo /bin/bash >> /tmp/list
-+
- 	for i in $(LOCALFILES) `cat /tmp/list` ; do \
- 		ldd $$i 2>/dev/null | grep "=>" | sed -e 's/.*=> //' -e 's/ .*//' | uniq | sort >> /tmp/list; \
- 	done
-@@ -106,6 +121,7 @@
- 	    fi; \
- 	done
- 	mv -f $(DEST)/lib/libimlib-png.so $(DEST)/usr/lib
-+	mv -f $(DEST)/lib/libimlib-jpeg.so $(DEST)/usr/lib
- 
- 	mv -f $(DEST)/bin/* $(DEST)/sbin/* $(DEST)/usr/bin
- 	cd $(DEST)/usr/bin ; mv insmod insmod_
-@@ -135,6 +151,16 @@
- 
- #	echo -e '#!/bin/sh\n\nexec "/usr/bin/sh"' > $(DEST)/usr/bin/runinstall2
- #	chmod a+x $(DEST)/usr/bin/runinstall2
-+
-+	rm -f $(DEST)/usr/X11R6/lib/X11/fonts/{gb16st,k14,taipei16,baekmuk_gulim_12}.pcf.gz
-+	cp -f /usr/X11R6/lib/X11/fonts2/75dpi/helv* $(DEST)/usr/X11R6/lib/X11/fonts/
-+	mkfontdir $(DEST)/usr/X11R6/lib/X11/fonts 2>/dev/null
-+	install $(ROOTDEST)/Mandrake/images/rotate $(DEST)/usr/bin
-+
-+	echo -e "prog xmms xmms xmms\nprog aumix aumix aumix" > $(DEST)/usr/X11R6/lib/X11/icewm/toolbar
-+	echo -e "prog xmms xmms xmms\nprog aumix aumix aumix" > $(DEST)/usr/X11R6/lib/X11/icewm/menu
-+	echo -e "Theme=bluePlastic/default.theme\nTaskBarAutoHide=1" > $(DEST)/usr/X11R6/lib/X11/icewm/preferences
-+
- 
- ifeq (i386,$(ARCH))
- 	cp -a /etc/pcmcia $(DEST)/etc
-Index: install_steps_gtk.pm
-===================================================================
-RCS file: /home/cvs/cooker/gi/perl-install/install_steps_gtk.pm,v
-retrieving revision 1.171
-diff -u -r1.171 install_steps_gtk.pm
---- install_steps_gtk.pm	2000/12/20 21:57:35	1.171
-+++ install_steps_gtk.pm	2000/12/20 23:29:33
-@@ -99,6 +99,27 @@
- 	}
-     }
-   OK:
-+    keyboard::setup("fr");
-+    commands::mknod("/dev/dsp", "c", 14, 3);
-+    commands::mknod("/dev/mixer", "c", 14, 0);
-+    if (!$::expert) {
-+	if (!modules::load_thiskind("sound")) {
-+	    eval {
-+		symlink "/usr/bin/pnpdump", "/sbin/pnpdump";
-+		run_program::run("sndconfig", "--quiet");
-+		run_program::run("isapnp", "/etc/isapnp.conf");
-+		my @l = cat_("/etc/modules.conf");
-+		my $module; /alias sound-slot-0 (\S+)/ and $module = $1 foreach @l;
-+		my @options; /options\s+$module\s+(.*)/ and @options = split ' ', $1 foreach @l;
-+		modules::load($module, 'sound', @options);
-+	    }
-+	}
-+    }
-+    symlink "/tmp/rhimage/lyrics", "/lyrics";
-+    symlink "/tmp/rhimage", "/Sound";
-+    fork or exec "rotate /tmp/rhimage/Mandrake/images" or die;
-+    fork or exec $_ or die foreach "xmms";
-+    exec "icewm-light" or die;
-     install_gtk::init_sizes();
-     install_gtk::default_theme($o);
-     install_gtk::create_logo_window($o);
diff --git a/perl-install/unused/demo-frozen-bubble.patch b/perl-install/unused/demo-frozen-bubble.patch
deleted file mode 100644
index b2e38f29b..000000000
--- a/perl-install/unused/demo-frozen-bubble.patch
+++ /dev/null
@@ -1,371 +0,0 @@
-Index: make_boot_img
-===================================================================
-RCS file: /cooker/gi/make_boot_img,v
-retrieving revision 1.103
-diff -u -r1.103 make_boot_img
---- make_boot_img	2002/03/15 14:59:55	1.103
-+++ make_boot_img	2002/03/20 22:12:43
-@@ -10,8 +10,8 @@
- 
- ($img, $type) = @ARGV;
- 
--$default_append = "ramdisk_size=32000 root=/dev/ram3";
--$default_vga = "vga=788";
-+$default_append = "ramdisk_size=48000 root=/dev/ram3";
-+$default_vga = "vga=785";
- 
- $instdir = "mdk-stage1";
- $mnt = "/tmp/drakx_mnt";
-Index: mdk-stage1/Makefile
-===================================================================
-RCS file: /cooker/gi/mdk-stage1/Makefile,v
-retrieving revision 1.53
-diff -u -r1.53 Makefile
---- mdk-stage1/Makefile	2002/02/26 22:59:53	1.53
-+++ mdk-stage1/Makefile	2002/03/20 22:12:43
-@@ -36,7 +36,7 @@
-  #*****************************************************************************
- 
- 
--VERSION = 8.2
-+VERSION = 0.9.2
- 
- top_dir = .
- 
-Index: mdk-stage1/cdrom.c
-===================================================================
-RCS file: /cooker/gi/mdk-stage1/cdrom.c,v
-retrieving revision 1.18
-diff -u -r1.18 cdrom.c
---- mdk-stage1/cdrom.c	2001/08/22 12:43:27	1.18
-+++ mdk-stage1/cdrom.c	2002/03/20 22:12:43
-@@ -58,7 +58,7 @@
- 	if (test_that_cd()) {
- 		enum return_type results;
- 		umount(IMAGE_LOCATION);
--		results = ask_yes_no("That CDROM disc does not seem to be a " DISTRIB_NAME " Installation CDROM.\nRetry with another disc?");
-+		results = ask_yes_no("That CDROM disc does not seem to be a " DISTRIB_NAME " Demo-CDROM.\nRetry with another disc?");
- 		if (results == RETURN_OK)
- 			return try_with_device(dev_name, dev_model);
- 		return results;
-@@ -66,8 +66,7 @@
- 
- 	log_message("found a " DISTRIB_NAME " CDROM, good news!");
- 
--	if (IS_SPECIAL_STAGE2 || ramdisk_possible())
--		load_ramdisk(); /* we don't care about return code, we'll do it live if we failed */
-+	load_ramdisk(IMAGE_LOCATION LIVE_LOCATION); /* we don't care about return code, we'll do it live if we failed */
- 
- 	if (IS_RESCUE)
- 		umount(IMAGE_LOCATION);
-Index: mdk-stage1/config-stage1.h
-===================================================================
-RCS file: /cooker/gi/mdk-stage1/config-stage1.h,v
-retrieving revision 1.7
-diff -u -r1.7 config-stage1.h
---- mdk-stage1/config-stage1.h	2001/07/30 13:28:18	1.7
-+++ mdk-stage1/config-stage1.h	2002/03/20 22:12:43
-@@ -24,12 +24,12 @@
- /* If we have more than that amount of memory (in Mbytes), we assume we can load the rescue as a ramdisk */
- #define MEM_LIMIT_RESCUE 40
- 
--#define DISTRIB_NAME "Mandrake Linux"
-+#define DISTRIB_NAME "Frozen Bubble"
- 
- #define RAMDISK_COMPRESSION_RATIO 1.95
- 
--#define LIVE_LOCATION    "/Mandrake/mdkinst/"
--#define RAMDISK_LOCATION "/Mandrake/base/"
-+#define LIVE_LOCATION    "/fbimg.bz2"
-+#define RAMDISK_LOCATION "/"
- #define IMAGE_LOCATION   "/tmp/image"
- #define STAGE2_LOCATION  "/tmp/stage2"
- 
-Index: mdk-stage1/disk.c
-===================================================================
-RCS file: /cooker/gi/mdk-stage1/disk.c,v
-retrieving revision 1.24
-diff -u -r1.24 disk.c
---- mdk-stage1/disk.c	2001/09/24 22:39:09	1.24
-+++ mdk-stage1/disk.c	2002/03/20 22:12:43
-@@ -148,7 +148,7 @@
- 
- static enum return_type try_with_device(char *dev_name)
- {
--	char * questions_location[] = { "Directory or ISO image", NULL };
-+	char * questions_location[] = { "Location", NULL };
- 	char * questions_location_auto[] = { "directory", NULL };
- 	static char ** answers_location = NULL;
- 	char device_fullname[50];
-@@ -197,7 +197,7 @@
- 		return RETURN_ERROR;
- 	}
- 
--	results = ask_from_list_comments_auto("Please choose the partition where is copied the " DISTRIB_NAME " Distribution.",
-+	results = ask_from_list_comments_auto("Please choose the partition where is copied the " DISTRIB_NAME " Image File.",
- 					      parts, parts_comments, &choice, "partition", parts);
- 	if (results != RETURN_OK)
- 		return results;
-@@ -212,7 +212,7 @@
- 		return try_with_device(dev_name);
- 	}
- 
--	if (ask_from_entries_auto("Please enter the directory (or ISO image file) containing the " DISTRIB_NAME " Distribution.",
-+	if (ask_from_entries_auto("Please enter the full path of the " DISTRIB_NAME " Image File.",
- 				  questions_location, &answers_location, 24, questions_location_auto, NULL) != RETURN_OK) {
- 		umount(disk_own_mount);
- 		return try_with_device(dev_name);
-@@ -223,9 +223,9 @@
- 	strcat(location_full, answers_location[0]);
- 
- 	if (access(location_full, R_OK)) {
--		stg1_error_message("Directory or ISO image file could not be found on partition.\n"
--			      "Here's a short extract of the files in the root of the partition:\n"
--			      "%s", disk_extract_list_directory(disk_own_mount));
-+		stg1_error_message("No such file on partition.\n"
-+				   "Here's a short extract of the files in the root of the partition:\n"
-+				   "%s", disk_extract_list_directory(disk_own_mount));
- 		umount(disk_own_mount);
- 		return try_with_device(dev_name);
- 	}
-@@ -233,14 +233,18 @@
- 	unlink(IMAGE_LOCATION);
- 
- 	if (!stat(location_full, &statbuf) && !S_ISDIR(statbuf.st_mode)) {
--		log_message("%s exists and is not a directory, assuming this is an ISO image", location_full);
--		if (lomount(location_full, IMAGE_LOCATION)) {
--			stg1_error_message("Could not mount file %s as an ISO image of the " DISTRIB_NAME " Distribution.", answers_location[0]);
-+		log_message("found file ok");
-+		if (load_ramdisk(location_full) != RETURN_OK) {
-+			stg1_error_message("Could not load program into memory.");
- 			umount(disk_own_mount);
- 			return try_with_device(dev_name);
- 		}
--	} else
--		symlink(location_full, IMAGE_LOCATION);
-+		method_name = strdup("disk");
-+		return RETURN_OK;
-+	} else {
-+		stg1_error_message("It's a directory!");
-+		return try_with_device(dev_name);
-+	}
- 
- 	if (IS_SPECIAL_STAGE2 || ramdisk_possible()) {
- 		/* RAMDISK install */
-@@ -253,12 +257,6 @@
- 			umount(disk_own_mount);
- 			return try_with_device(dev_name);
- 		}
--		if (load_ramdisk() != RETURN_OK) {
--			stg1_error_message("Could not load program into memory.");
--			loumount();
--			umount(disk_own_mount);
--			return try_with_device(dev_name);
--		}
- 	} else {
- 		/* LIVE install */
- 		char p;
-@@ -326,7 +324,7 @@
- 		return disk_prepare();
- 	}
- 
--	results = ask_from_list_comments_auto("Please choose the DISK drive on which you copied the " DISTRIB_NAME " Distribution.",
-+	results = ask_from_list_comments_auto("Please choose the DISK drive on which you copied the " DISTRIB_NAME " Image File",
- 					      medias, medias_models, &choice, "disk", medias);
- 
- 	if (results != RETURN_OK)
-Index: mdk-stage1/network.c
-===================================================================
-RCS file: /cooker/gi/mdk-stage1/network.c,v
-retrieving revision 1.40
-diff -u -r1.40 network.c
---- mdk-stage1/network.c	2002/03/20 22:11:43	1.40
-+++ mdk-stage1/network.c	2002/03/20 22:12:44
-@@ -670,7 +670,7 @@
- 	log_message("found the " DISTRIB_NAME " Installation, good news!");
- 
- 	if (IS_SPECIAL_STAGE2) {
--		if (load_ramdisk() != RETURN_OK) {
-+		if (load_ramdisk(NULL) != RETURN_OK) {
- 			stg1_error_message("Could not load program into memory.");
- 			return nfs_prepare();
- 		}
-Index: mdk-stage1/stage1.c
-===================================================================
-RCS file: /cooker/gi/mdk-stage1/stage1.c,v
-retrieving revision 1.46
-diff -u -r1.46 stage1.c
---- mdk-stage1/stage1.c	2001/12/11 14:48:26	1.46
-+++ mdk-stage1/stage1.c	2002/03/20 22:12:44
-@@ -394,6 +394,9 @@
- 	init_modules_insmoding();
- 	init_frontend("Welcome to " DISTRIB_NAME " (" VERSION ") " __DATE__ " " __TIME__);
- 
-+	if (total_memory() < 66)
-+		stg1_error_message("It seems that you have 64 Mbytes or less of RAM. It will probably fail.");
-+
- 	if (IS_EXPERT)
- 		expert_third_party_modules();
- 
-Index: mdk-stage1/tools.c
-===================================================================
-RCS file: /cooker/gi/mdk-stage1/tools.c,v
-retrieving revision 1.29
-diff -u -r1.29 tools.c
---- mdk-stage1/tools.c	2001/08/24 19:11:07	1.29
-+++ mdk-stage1/tools.c	2002/03/20 22:12:44
-@@ -339,14 +339,10 @@
- }
- 
- 
--enum return_type load_ramdisk(void)
-+enum return_type load_ramdisk(char * img_name)
- {
- 	int st2_fd;
- 	struct stat statr;
--	char img_name[500];
--
--	strcpy(img_name, IMAGE_LOCATION);
--	strcat(img_name, get_ramdisk_realname());
- 
- 	log_message("trying to load %s as a ramdisk", img_name);
- 
-Index: mdk-stage1/tools.h
-===================================================================
-RCS file: /cooker/gi/mdk-stage1/tools.h,v
-retrieving revision 1.9
-diff -u -r1.9 tools.h
---- mdk-stage1/tools.h	2001/04/30 17:23:04	1.9
-+++ mdk-stage1/tools.h	2002/03/20 22:12:44
-@@ -32,7 +32,7 @@
- int total_memory(void);
- int ramdisk_possible(void);
- char * get_ramdisk_realname(void);
--enum return_type load_ramdisk(void);
-+enum return_type load_ramdisk(char * img_name);
- enum return_type load_ramdisk_fd(int ramdisk_fd, int size);
- void * memdup(void *src, size_t size);
- void add_to_env(char * name, char * value);
-Index: perl-install/Makefile
-===================================================================
-RCS file: /cooker/gi/perl-install/Makefile,v
-retrieving revision 1.225
-diff -u -r1.225 Makefile
---- perl-install/Makefile	2002/03/11 11:38:23	1.225
-+++ perl-install/Makefile	2002/03/20 22:12:44
-@@ -68,8 +68,7 @@
- 	chmod a+x $(DESTREP4PMS)/g_auto_install
- 	chmod a+x $(DESTREP4PMS)/live_install*
- 
--get_needed_files: $(DIRS) $(MOFILES)
--	$(MAKE) -C share
-+get_needed_files: $(DIRS)
- 
- #	export PERL_INSTALL_TEST=1 ; strace -f -e trace=file -o '| grep -v "(No such file or directory)" | sed -e "s/[^\"]*\"//" -e "s/\".*//" | grep "^/" | grep -v -e "^/tmp" -e "^/home" -e "^/proc" -e "^/var" -e "^/dev" -e "^/etc" -e "^/usr/lib/rpm" > /tmp/list ' $(PERL) -d install2 < /dev/null
- 	eval `perl -V:version`; \
-@@ -80,6 +79,19 @@
- 
- 	find auto -follow -name "*.so" >> /tmp/list
- 
-+	rpm -ql icewm-light | grep /usr/X11R6 >> /tmp/list
-+	rpm -ql libSDL_image1.2 libSDL1.2 libSDL_mixer1.2 | grep /usr/lib >> /tmp/list
-+	rpm -ql perl-SDL | grep site_perl >> /tmp/list
-+	rpm -ql frozen-bubble | grep -v /usr/lib/menu | grep -v /usr/share/doc >> /tmp/list
-+	echo /sbin/isapnp >> /tmp/list
-+	echo /sbin/pnpdump >> /tmp/list
-+	echo /usr/sbin/sndconfig >> /tmp/list
-+	echo /bin/vim-minimal >> /tmp/list
-+	echo /usr/bin/aumix >> /tmp/list
-+	echo /bin/bash >> /tmp/list
-+	echo /usr/X11R6/bin/rxvt.bin >> /tmp/list
-+	echo /usr/X11R6/lib/X11/rgb.txt >> /tmp/list
-+
- 	for i in $(LOCALFILES) `cat /tmp/list` ; do \
- 		ldd $$i 2>/dev/null | grep "=>" | sed -e 's/.*=> //' -e 's/ .*//' | uniq | sort >> /tmp/list; \
- 	done
-@@ -160,10 +172,20 @@
- 
- 	for i in ../all.modules/modules.cz*; do cp -f $$i $(DEST)/lib/; done
- 
--	$(MAKE) -C share/po install NAME=libDrakX LOCALEDIR=$(DEST)/usr/share/locale_special
-+#	$(MAKE) -C share/po install NAME=libDrakX LOCALEDIR=$(DEST)/usr/share/locale_special
- 
- #	echo -e '#!/bin/sh\n\nexec "/usr/bin/sh"' > $(DEST)/usr/bin/runinstall2
- #	chmod a+x $(DEST)/usr/bin/runinstall2
-+
-+	rm -f $(DEST)/usr/X11R6/lib/X11/fonts/{gb16st,k14,taipei16,baekmuk_gulim_12}.pcf.gz
-+	cp -f /usr/X11R6/lib/X11/fonts/75dpi/helv* $(DEST)/usr/X11R6/lib/X11/fonts/
-+	cp -f /usr/X11R6/lib/X11/fonts/misc/7x14* $(DEST)/usr/X11R6/lib/X11/fonts/
-+	mkfontdir $(DEST)/usr/X11R6/lib/X11/fonts 2>/dev/null
-+
-+	echo -e "prog frozen-bubble frozen-bubble frozen-bubble\nprog aumix aumix aumix\nprog rxvt rxvt rxvt.bin -sl 2000 -fn -*-fixed-medium-*-*-*-*-*-*-*-*-*-iso8859-15" > $(DEST)/usr/X11R6/lib/X11/icewm/toolbar
-+	cat $(DEST)/usr/X11R6/lib/X11/icewm/toolbar > $(DEST)/usr/X11R6/lib/X11/icewm/menu
-+	echo -e "Theme=bluePlastic/default.theme" > $(DEST)/usr/X11R6/lib/X11/icewm/preferences
-+
- 
- ifeq (i386,$(ARCH))
- 	cp -a /etc/pcmcia $(DEST)/etc
-Index: perl-install/install_steps_gtk.pm
-===================================================================
-RCS file: /cooker/gi/perl-install/install_steps_gtk.pm,v
-retrieving revision 1.263
-diff -u -r1.263 install_steps_gtk.pm
---- perl-install/install_steps_gtk.pm	2002/03/15 10:32:48	1.263
-+++ perl-install/install_steps_gtk.pm	2002/03/20 22:12:44
-@@ -57,7 +57,7 @@
- 		    sleep 1;
- 		    log::l("Server died"), return 0 if !$ok;
- 		    if (c::Xtest($ENV{DISPLAY})) {
--			fork || exec("aewm-drakx") || exec("true");
-+#			fork || exec("aewm-drakx") || exec("true");
- 			return 1;
- 		    }
- 		}
-@@ -105,6 +105,31 @@
- 	}
-     }
-   OK:
-+    require commands;
-+    commands::mknod("/dev/dsp", "c", 14, 3);
-+    commands::mknod("/dev/mixer", "c", 14, 0);
-+    eval { commands::mknod("/dev/ptyp0", "c", 2, 0); };
-+    eval { commands::mknod("/dev/ttyp0", "c", 3, 0); };
-+    eval { commands::mknod("/dev/ptmx", "c", 5, 2); };
-+    eval { commands::mknod("/dev/tty", "c", 5, 0); };
-+
-+    symlink "/usr/bin/bash", "/bin/bash";
-+    symlinkf("/usr/bin/bash", "/bin/sh");
-+
-+    if (!$::expert) {
-+	if (!modules::load_thiskind("sound")) {
-+	    eval {
-+		symlink "/usr/bin/pnpdump", "/sbin/pnpdump";
-+		run_program::run("sndconfig", "--quiet");
-+		run_program::run("isapnp", "/etc/isapnp.conf");
-+		my @l = cat_("/etc/modules.conf");
-+		my $module; /alias sound-slot-0 (\S+)/ and $module = $1 foreach @l;
-+		my @options; /options\s+$module\s+(.*)/ and @options = split ' ', $1 foreach @l;
-+		modules::load($module, 'sound', @options);
-+	    }
-+	}
-+    }
-+    exec "icewm-light" or die;
-     install_gtk::init_sizes();
-     install_gtk::default_theme($o);
-     install_gtk::create_logo_window($o);
-Index: tools/make_mdkinst_stage2
-===================================================================
-RCS file: /cooker/gi/tools/make_mdkinst_stage2,v
-retrieving revision 1.21
-diff -u -r1.21 make_mdkinst_stage2
---- tools/make_mdkinst_stage2	2002/02/21 14:54:28	1.21
-+++ tools/make_mdkinst_stage2	2002/03/20 22:12:44
-@@ -61,7 +61,7 @@
- mkdir -p $MNTPOINT 2>/dev/null
- for i in $MNTPOINT $STAGE2; do $SUDO umount $i 2>/dev/null ; done
- dd if=/dev/zero of=$STAGE2 bs=1k count=$[ `du -s $STAGE2TMP | cut -f1` + 1024 + 200 ]
--$MKE2FS -N 1000 $STAGE2
-+$MKE2FS -N 2000 $STAGE2
- $SUDO mount -t ext2 $STAGE2 $MNTPOINT -o loop
- 
- rmdir $MNTPOINT/lost+found
diff --git a/perl-install/unused/dns.pm b/perl-install/unused/dns.pm
deleted file mode 100644
index 5e6bb5f5b..000000000
--- a/perl-install/unused/dns.pm
+++ /dev/null
@@ -1,64 +0,0 @@
-use diagnostics;
-use strict;
-
-# This is dumb, but glibc doesn't like to do hostname lookups w/o libc.so
-
-
-#TODO TODO
-sub doQuery {
-#    my ($query, $queryType, $domainName, $ipNum) = @_;
-#
-#    _res.retry = 2;
-#
-#    len = res_search(query, C_IN, queryType, (void *) &response,
-#		     sizeof(response));
-#    if (len <= 0) return -1;
-#
-#    if (ntohs(response.hdr.rcode) != NOERROR) return -1;
-#    ancount = ntohs(response.hdr.ancount);
-#    if (ancount < 1) return -1;
-#
-#    data = response.buf + sizeof(HEADER);
-#    end = response.buf + len;
-#
-#    # skip the question
-#    data += dn_skipname(data, end) + QFIXEDSZ;
-#
-#    # parse the answer(s)
-#    while (--ancount >= 0 && data < end) {
-#
-#      # skip the domain name portion of the RR record
-#      data += dn_skipname(data, end);
-#
-#      # get RR information
-#      GETSHORT(type, data);
-#      data += INT16SZ; # skipp class
-#      data += INT32SZ; # skipp TTL
-#      GETSHORT(len,  data);
-#
-#      if (type == T_PTR) {
-#	 # we got a pointer
-#	 len = dn_expand(response.buf, end, data, name, sizeof(name));
-#	 if (len <= 0) return -1;
-#	 if (queryType == T_PTR && domainName) {
-#	   # we wanted a pointer
-#	   *domainName = malloc(strlen(name) + 1);
-#	   strcpy(*domainName, name);
-#	   return 0;
-#	 }
-#      } else if (type == T_A) {
-#	 # we got an address
-#	 if (queryType == T_A && ipNum) {
-#	   # we wanted an address
-#	   memcpy(ipNum, data, sizeof(*ipNum));
-#	   return 0;
-#	 }
-#      }
-#
-#      # move ahead to next RR
-#      data += len;
-#    }
-#
-#    return -1;
-}
-
diff --git a/perl-install/unused/otherinsmod.pm b/perl-install/unused/otherinsmod.pm
deleted file mode 100644
index 1a8eee9ff..000000000
--- a/perl-install/unused/otherinsmod.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-use diagnostics;
-use strict;
-
-sub insmod {
-
-    @_ or die "usage: insmod <module>.o [params]\n";
-
-    my $file = shift;
-    my $tmpname;
-
-    unless (-r $file) {
-	local *F;
-	open F, "/modules/modules.cgz" or die "error opening /modules/modules.cgz";
-
-	$tmpname = "/tmp/" . basename($file);
-
-	installCpioFile(\*F, $file, $tmpname, 0) or die "error extracting file";
-    }
-
-    my $rc = insmod_main($tmpname || $file, @_);
-
-    unlink($tmpname);
-
-    return $rc;
-}
-sub modprobe { &insmod }
diff --git a/perl-install/unused/scsi.pm b/perl-install/unused/scsi.pm
deleted file mode 100644
index 1755ee255..000000000
--- a/perl-install/unused/scsi.pm
+++ /dev/null
@@ -1,104 +0,0 @@
-use diagnostics;
-use strict;
-
-my $scsiDeviceAvailable;
-my $CSADeviceAvailable;
-
-1;
-
-sub scsiDeviceAvailable {
-    defined $scsiDeviceAvailable and return $scsiDeviceAvailable;
-    local *F;
-    open F, "/proc/scsi/scsi" or log::l("failed to open /proc/scsi/scsi: $!"), return 0;
-    foreach (<F>) {
-	/devices: none/ and log::l("no scsi devices are available"), return $scsiDeviceAvailable = 0;
-    }
-    log::l("scsi devices are available");
-    $scsiDeviceAvailable = 1;
-}
-
-sub CompaqSmartArrayDeviceAvailable {
-    defined $CSADeviceAvailable and return $CSADeviceAvailable;
-    -r "/proc/array/ida0" or log::l("failed to open /proc/array/ida0: $!"), return $CSADeviceAvailable = 0;
-    log::l("Compaq Smart Array controllers available");
-    $CSADeviceAvailable = 1;
-}
-
-sub scsiGetDevices {
-    my @drives;
-    my ($driveNum, $cdromNum, $tapeNum) = qw(0 0 0);
-    my $err = sub { chop; log::l("unexpected line in /proc/scsi/scsi: $_"); error() };
-    local $_;
-
-    local *F;
-    open F, "/proc/scsi/scsi" or return &$err();
-    $_ = <F>; /^Attached devices:/ or return &$err();
-    while ($_ = <F>) {
-	my ($id) = /^Host:.*?Id: (\d+)/ or return &$err();
-	$_ = <F>; my ($vendor, $model) = /^\s*Vendor:\s*(.*?)\s+Model:\s*(.*?)\s+Rev:/ or return &$err();
-	$_ = <F>; my ($type) = /^\s*Type:\s*(.*)/ or &$err();
-	my $device;
-	if ($type =~ /Direct-Access/) {
-	    $type = 'hd';
-	    $device = "sd" . chr($driveNum++ + ord('a'));
-	} elsif ($type =~ /Sequential-Access/) {
-	    $type = 'tape';
-	    $device = "st" . $tapeNum++;
-	} elsif ($type =~ /CD-ROM/) {
-	    $type = 'cdrom';
-	    $device = "scd" . $cdromNum++;
-	}
-	$device and push @drives, { device => $device, type => $type, info => "$vendor $model", id => $id, bus => 0 };
-    }
-    [ @drives ];
-}
-
-sub ideGetDevices {
-    my @idi;
-
-    -r "/proc/ide" or die "sorry, /proc/ide not available, seems like you have a pre-2.2 kernel\n => not handled yet :(";
-
-    #- Great. 2.2 kernel, things are much easier and less error prone.
-    foreach my $d (glob_('/proc/ide/hd*')) {
-	my ($t) = chomp_(cat_("$d/media"));
-	my $type = ${{ disk => 'hd', cdrom => 'cdrom', tape => 'tape', floppy => 'fd' }}{$t} or next;
-	my ($info) = chomp_(cat_("$d/model")); $info ||= "(none)";
-
-	my $num = ord(($d =~ /(.)$/)[0]) - ord 'a';
-	push @idi, { type => $type, device => basename($d), info => $info, bus => $num/2, id => $num%2 };
-    }
-    [ @idi ];
-}
-
-
-sub CompaqSmartArrayGetDevices {
-    my @idi;
-    my $f;
-
-    for (my $i = 0; -r ($f = "/proc/array/ida$i"); $i++) {
-	local *F;
-	open F, $f or die;
-	local $_ = <F>;
-	my ($name) = m|ida/(.*?):| or next;
-	push @idi, { device => $name, info => "Compaq RAID logical disk", type => 'hd' };
-    }
-    [ @idi ];
-}
-
-sub dac960GetDevices {
-    my @idi;
-    my $file = "/var/log/dmesg";
-    -r $file or $file = "/tmp/syslog";
-
-    local *F;
-    open F, $file or die "Failed to open $file: $!";
-
-    #- We are looking for lines of this format:DAC960#0:
-    #- /dev/rd/c0d0: RAID-7, Online, 17928192 blocks, Write Thru0123456790123456789012
-    foreach (<F>) {
-	my ($devicename, $info) = m|/dev/rd/(.*?): (.*?),| or next;
-	push @idi, { info => $info, type => 'hd', devicename => $devicename };
-	log::l("DAC960: $devicename: $info");
-    }
-    [ @idi ];
-}