Branch for updates

8 files changed, 949 insertions, 0 deletions

diff --git a/perl-install/unused/cdrom.pm b/perl-install/unused/cdrom.pm
new file mode 100644
index 000000000..e77c97a9f
--- /dev/null
+++ b/perl-install/unused/cdrom.pm
@@ -0,0 +1,41 @@
+package cdrom; # $Id: cdrom.pm 193259 2000-09-14 12:58:40Z prigaux $
+
+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
new file mode 100644
index 000000000..a700bc2c1
--- /dev/null
+++ b/perl-install/unused/christmas-karaoke.patch
@@ -0,0 +1,98 @@
+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
new file mode 100644
index 000000000..b2e38f29b
--- /dev/null
+++ b/perl-install/unused/demo-frozen-bubble.patch
@@ -0,0 +1,371 @@
+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
new file mode 100644
index 000000000..f64783e21
--- /dev/null
+++ b/perl-install/unused/dns.pm
@@ -0,0 +1,64 @@
+use diagnostics;
+use strict;
+
+# This is dumb, but glibc does not 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/migrate-ugtk2-to-mygtk2.el b/perl-install/unused/migrate-ugtk2-to-mygtk2.el
new file mode 100644
index 000000000..62612053d
--- /dev/null
+++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.el
@@ -0,0 +1,17 @@
+(defun my-close-children ()
+  (interactive)
+  (cperl-mode)
+  (end-of-buffer) 
+  (let ((p t))
+    (while (setq p (search-backward-regexp "\\<children\\(\\|_tight\\|_loose\\) => \\[" nil t))
+      (progn
+	(search-forward "[")
+	(backward-char)
+	(forward-sexp)
+	(backward-char)
+	(if (not (string-equal (buffer-substring (point) (1+ (point))) "]"))
+	    (insert "]"))
+	(goto-char p))))
+  (save-buffer)
+  (kill-emacs)
+  )
diff --git a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
new file mode 100644
index 000000000..ccd0faaee
--- /dev/null
+++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
@@ -0,0 +1,228 @@
+use MDK::Common;
+
+BEGIN {
+    @ARGV or warn(<<EOF), exit 1;
+usage: $0 -pi <file.pm>
+
+- an emacs is launched with a script fixing the closing "children => [ ...",
+  simply save the file and exit this emacs
+- you can replace -pi with -n to see the diff of changes without modifying the file
+EOF
+    @args = @ARGV;
+    $re = qr/(?:[^()\[\]]*(?:\([^()]*\))?(?:\[[^\[\]]*\])?)*/;
+    $assign = qr/(?:(?:my\s+)?\$\w+\s*=\s*)/;
+
+    %pack = (gtkadd => 'children_loose', gtkpack_ => 'children', gtkpack => 'children_loose', gtkpack__ => 'children_tight');
+}
+
+$z = $_;
+
+$once = 0;
+$b = 1;
+
+while ($b) {
+    $b = 0;
+
+    if (my ($before, $class, undef, $new, $arg, $after, $after2) = /(.*?)Gtk2::(\w+(::\w+)*)->(new\w*)(?:\(($re)\)(.*)|([^(].*))/s) {
+	$after ||= $after2;
+	my $s;
+
+	my $class_ = $class eq 'WrappedLabel' ? 'Label' : $class;
+	
+	if ($class_ eq 'Window') {
+	    if ($new eq 'new') {
+		$s = $arg && $arg !~ /^['"]toplevel['"]$/ ?
+		  "gtknew('$class', type => $arg)" :
+		    "gtknew('$class')";
+	    }
+	} elsif ($class_ eq 'Dialog') {
+	    if ($new eq 'new' && !$arg) {
+		$s = "gtknew('$class')";
+	    }
+	} elsif ($class_ eq 'Image') {
+	    if ($new eq 'new_from_file' && $arg) {
+		$s = "gtknew('$class', file => $arg)";
+	    }
+	} elsif ($class_ eq 'Gdk::Pixbuf') {
+	    if ($new eq 'new_from_file' && $arg) {
+		$s = "gtknew('Pixbuf', file => $arg)";
+	    }
+	} elsif ($class_ eq 'Frame' || $class_ eq 'Label') {
+	    if ($new eq 'new') {
+		$s = $arg ? "gtknew('$class', text => $arg)" : "gtknew('$class')";
+	    }
+	} elsif ($class_ eq 'WrappedLabel') {
+	    if ($new eq 'new') {
+		if ($arg =~ /($re),\s*($re)/) {
+		    $s = "gtknew('$class', alignment => [ $2, 0.5 ], text => $1)";
+		} elsif ($arg) {
+		    $s = "gtknew('$class', text => $arg)";
+		} else {
+		    $s = "gtknew('$class')";
+		}
+	    }
+	} elsif ($class_ eq 'HBox' || $class_ eq 'VBox') {
+	    if ($new eq 'new') {
+		if ($arg =~ /($re),\s*($re)/) {
+		    $s = "gtknew('$class'" . ($1 ? ", homogenous => $1" : '') . ($2 ? ", spacing => $2" : '') . ')';
+		} else {
+		    $s = "gtknew('$class')";
+		}
+		
+	    }
+	} elsif ($class_ eq 'ComboBox') {
+	    if ($new eq 'new_text') {
+		$s = "gtknew('$class')";
+	    } elsif ($new eq 'new_with_strings' && $arg) {
+		if (my ($l, $t) = $arg =~ /($re),\s*($re)/) {
+		    if ($t !~ /\]/) {
+			$s = "gtknew('$class', text => $t, list => $l)";
+		    }
+		} else {
+		    $s = "gtknew('$class', list => $arg)";
+		}
+	    }
+	} elsif ($class_ eq 'Button' || $class_ eq 'ToggleButton' || $class_ eq 'CheckButton') {
+	    if ($new eq 'new') {
+		$s = $arg ? "gtknew('$class', text => $arg)" : "gtknew('$class')";
+	    } elsif ($new eq 'new_with_mnemonic' && $arg) {
+		$s = "gtknew('$class', text => $arg)";
+	    } elsif ($new eq 'new_with_label' && $arg) {
+		$s = "gtknew('$class', mnemonic => 0, text => $arg)";
+	    }
+	} elsif ($class =~ /^(HSeparator|VSeparator|Notebook|HButtonBox|VButtonBox|TextView|Entry|Calendar)$/) {
+	    if ($new eq 'new') {
+		$s = "gtknew('$class')";
+	    }
+	}
+
+	if ($s) {
+	    $_ = "$before$s$after";
+	    $b = 1;
+	}
+    }
+
+    $b = 1 if s/create_hbox\((['"].*?['"])\)/gtknew('HButtonBox', layout => $1)/ ||
+              s/create_hbox\(\)/gtknew('HButtonBox')/;
+
+    if (my ($arg) = /create_scrolled_window\(($re)\)/) {
+	my $val;
+	if (my ($child, $policy) = $arg =~ /^($re)\s*,\s*($re)$/) {
+	    if (my ($h, $v) = $policy =~ /^\[\s*($re)\s*,\s*($re)\s*\]$/) {
+		foreach ($h, $v) {
+		    $_ = /never/i ? 'never' : /always/ ? 'always' : '';
+		}
+		$val = join(', ', if_($h, "h_policy => '$h'"), if_($v, "v_policy => '$v'"), "child => $child");
+	    } else {
+		#- ???
+	    }
+	} else {
+	    $val = "child => $arg";
+	}
+	$b = 1 if $val && s/create_scrolled_window\($re\)/gtknew('ScrolledWindow', $val)/;
+    }
+
+    $b = 1 if s/create_packtable\(\{($re)\},/my $s = prepost_chomp($1); "gtknew('Table', " . ($s ? "$s, " : '') . "children => ["/e;
+
+    $b = 1 if s/gtkcreate_img\(($re)\)/gtknew('Image', file => $1)/;
+    $b = 1 if s/gtkcreate_pixbuf\(($re)\)/gtknew('Pixbuf', file => $1)/;
+
+    $b = 1 if s/(gtkadd|gtkpack_{0,2})\(($assign?gtknew\('[HV](?:Button)?Box'$re)\),/"$2, " . $pack{$1} . " => ["/e;
+
+    $b = 1 if s/(\$\w+)->set_label\(($re)\)/gtkset($1, text => $2)/;
+
+    while (dorepl_new()) {
+	$b = 1;
+    }
+    while (dorepl()) {
+	$b = 1;
+    }
+    $once ||= $b;
+}
+
+sub dorepl_new {
+    if (my ($before, $f, $gtk, $arg, $after) = /(.*?)(gtk\w+)\(($assign?gtk(?:new|set))\(($re)\)\s*,[ \t]*(.*)/s) {
+	my $s;
+	my $class;
+	if ($gtk =~ /gtknew$/) {
+	    ($class) = $arg =~ /^'(.*?)'/ or return;
+	}
+	my $class_ = $class eq 'WrappedLabel' ? 'Label' : $class;
+	my $pre = "$gtk($arg";
+
+	if ($f eq 'gtksignal_connect') {
+	    if ($class_ eq 'Button' || !$class) {
+		$s = "$pre, ";
+	    }
+	} elsif ($f eq 'gtkadd') {
+	    if ($class_ eq 'Frame' || !$class) {
+		$s = "$pre, child => ";
+	    }
+	} elsif ($f eq 'gtkset_justify') {
+	    if ($class_ eq 'Label' || !$class) {
+		$s = "$pre, justify => ";
+	    }
+	} elsif ($f eq 'gtkset_markup') {
+	    if ($class_ eq 'Label' || !$class) {
+		$s = "$pre, text_markup => ";
+	    }
+	} elsif ($f eq 'gtkmodify_font') {
+	    if ($class_ eq 'Label' || !$class) {
+		$s = "$pre, font => ";
+	    }
+	} elsif ($f eq 'gtktext_insert') {
+	    if ($class_ eq 'TextView' || !$class) {
+		$s = "$pre, text => ";
+	    }
+	} elsif ($f eq 'gtkset_text') {
+	    if ($class_ eq 'Entry' || !$class) {
+		$s = "$pre, text => ";
+	    }
+	}
+
+	if (!$s) {
+	    if ($f =~ /^gtkset_(relief|sensitive|shadow_type|modal|border_width|layout|editable)$/) {
+		$s = "$pre, $1 => ";
+	    } elsif ($f eq 'gtkset_name') {
+		$s = "$pre, widget_name => ";
+	    } elsif ($f eq 'gtkset_size_request') {
+		if ($after =~ /($re)\s*,\s*($re)\)(.*)/s) {
+		    $s = $pre . ($1 && $1 ne '-1' ? ", width => $1" : '') . ($2 && $2 ne '-1' ? ", height => $2" : '') . ')';
+		    $after = $3;
+		}
+	    }
+	}
+	if ($s) {
+	    $_ = "$before$s$after";
+	}
+	$s;
+    }
+}
+
+sub dorepl {
+    s/gtkdestroy\(/mygtk2::may_destroy(/ ||
+    s/gtkset_background\(/mygtk2::set_root_window_background(/ ||
+    s/gtkset_tip\($re,\s*($re),\s*($re)\)/gtkset($1, tip => $2)/ ||
+    s/gtkset_size_request\(($re),\s*($re), ($re)\)/"gtkset($1" . ($2 && $2 ne '-1' ? ", width => $2" : '') . ($3 && $3 ne '-1'  ? ", height => $3" : '') . ')'/e ||
+    s/gtkset_(modal)\(($re),\s*($re)\)/gtkset($2, $1 => $3)/ ||
+      0;
+}
+
+sub prepost_chomp {
+    my ($s) = @_;
+    $s =~ s/^\s*//;
+    $s =~ s/\s*$//;
+    $s;
+}
+
+print STDERR "-$z+$_" if $once;
+
+END {
+    if (defined $^I) {
+	foreach (@args) {
+	    warn "$_: closing children using emacs\n";
+	    (my $el = $0) =~ s/\.pl$/.el/ or die ".el missing";
+	    system('emacs', '-q', '-l', $el, $_, '-f', 'my-close-children') 
+	}
+    }
+}
diff --git a/perl-install/unused/otherinsmod.pm b/perl-install/unused/otherinsmod.pm
new file mode 100644
index 000000000..1a8eee9ff
--- /dev/null
+++ b/perl-install/unused/otherinsmod.pm
@@ -0,0 +1,26 @@
+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
new file mode 100644
index 000000000..1755ee255
--- /dev/null
+++ b/perl-install/unused/scsi.pm
@@ -0,0 +1,104 @@
+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 ];
+}