"See_The_Changelog"

1 files changed, 114 insertions, 0 deletions

diff --git a/perl-install/Makefile b/perl-install/Makefile
new file mode 100644
index 000000000..68fe70782
--- /dev/null
+++ b/perl-install/Makefile
@@ -0,0 +1,114 @@
+SO_FILES = c/blib/arch/auto/c/c.so
+PMS = *.pm resize_fat/*.pm commands diskdrake
+DEST = /tmp/t
+DESTREP4PMS = $(DEST)/usr/bin/perl-install
+PERL = ./perl
+BINS = /bin/ash /sbin/mke2fs $(PERL)
+
+.PHONY: all tags install clean verify_c
+
+all: $(SO_FILES)
+
+tags:
+	etags -o - $(PMS) | perl2etags > TAGS
+
+clean:
+	test ! -e c/Makefile || $(MAKE) -C c clean
+	find . -name "*~" -name "TAGS" -name "*.old" | xargs rm -f
+
+tar: clean
+	cd .. ; tar cfy perl-install.tar.bz2 --exclude perl-install/perl perl-install
+
+c/c.xs: c/c.xs.pm
+	chmod u+w $@
+	perl $< > $@
+	chmod a-w $@
+
+$(SO_FILES): c/c.xs
+	test -e c/Makefile || (cd c; perl Makefile.PL)
+	$(MAKE) -C c
+
+test_pms: verify_c
+	perl2fcalls -excludec install2.pm
+	(for i in $(PMS); do perl -cw -I. -Ic -Ic/blib/arch $$i || exit 1 ; done)
+
+verify_c:
+	./verify_c $(PMS)
+
+install_pms: $(SO_FILES)
+	for i in `perl -ne 's/sub (\w+?)_? {.*/$$1/ and print' commands.pm`; do ln -sf commands $(DEST)/usr/bin/$$i; done
+
+	install -d $(DESTREP4PMS)
+	for i in $(PMS); do \
+		dest=$(DESTREP4PMS)/`dirname $$i`; \
+		install -d $$dest; \
+		perl -ne 'print #unless /^use (diagnostics|vars|strict)/' $$i > $(DESTREP4PMS)/$$i; \
+	done
+	@#	cp -f $$i $$dest; \
+	cp diskdrake.rc $(DESTREP4PMS)
+	ln -sf perl-install/install2.pm $(DEST)/usr/bin/install2
+	ln -sf perl-install/commands $(DEST)/usr/bin/commands
+	chmod a+x $(DESTREP4PMS)/install2.pm
+	chmod a+x $(DESTREP4PMS)/commands
+
+	cp -af */blib/arch/auto $(DESTREP4PMS)
+	find $(DESTREP4PMS) -name "*.so" | xargs strip
+
+full_tar:
+	cp -af /usr/lib/perl5/site_perl/5.005/i386-linux/Gtk* $(DESTREP4PMS)
+	cp -af /usr/lib/perl5/site_perl/5.005/i386-linux/auto/Gtk $(DESTREP4PMS)/auto
+	find $(DESTREP4PMS) -name "*.so" | xargs strip
+	cd $(DESTREP4PMS)/.. ; tar cfz /tmp/perl-install.tgz perl-install
+
+get_needed_files: $(SO_FILES)
+	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.pm < /dev/null
+
+	install -d $(DEST)/bin
+	install -d $(DEST)/usr/bin
+	for i in $(BINS) `grep "\.so" /tmp/list`; do \
+		install -s $$i $(DEST)/usr/bin; \
+		ldd $$i | sed -e 's/.*=> //' -e 's/ .*//' >> /tmp/list; \
+	done
+	for i in `sort /tmp/list | uniq`; do \
+		install -d $(DEST)/`dirname $$i` && \
+		if (echo $$i | grep "\.pm"); then \
+		   perl -pe '$$_ eq "__END__" and exit(0);' $$i > $(DEST)/$$i; \
+		else \
+			cp -f $$i $(DEST)/$$i; \
+		fi && \
+		strip $(DEST)/$$i 2>/dev/null || true; \
+	done
+	mv $(DEST)/usr/lib/*.so* $(DEST)/lib
+
+	ln -sf ../usr/bin/sh $(DEST)/bin/sh
+	ln -sf ../usr/bin/tr $(DEST)/bin/tr
+	ln -sf sh $(DEST)/bin/bash
+	ln -sf ash $(DEST)/usr/bin/sh
+
+	echo -e "#!/usr/bin/perl\n\nsymlink '/tmp/rhimage/usr/lib/perl5', '/usr/lib/perl5';\nexec '/bin/sh'" > $(DEST)/usr/bin/runinstall2
+	chmod a+x $(DEST)/usr/bin/runinstall2
+
+as_root:
+	/bin/dd if=/dev/zero of=/tmp/initrd bs=1k count=4000
+	echo y | /sbin/mke2fs /tmp/initrd
+	losetup /dev/loop0 /tmp/initrd
+	mount /dev/loop0 /mnt/initrd
+	chmod a+w /mnt/initrd
+
+full_stage2:
+	rm -rf $(DEST)/[^M]*
+	@#mkdir -p $(DEST)/Mandrake/base
+	@#ln -s .. $(DEST)/Mandrake/instimage
+	$(MAKE) get_needed_files 
+	$(MAKE) stage2
+
+stage2:
+	$(MAKE) install_pms
+
+	@#rm -rf /mnt/initrd/*
+	@#cp -a $(DEST)/* /mnt/initrd
+	@#sync
+	@#dd if=/dev/loop0 | gzip -9 > /tmp/t/Mandrake/base/stage2.img
+
+
+# function f() { grep "$*" /usr/include/*.h /usr/include/*/*.h; }