From 30db14621a97a66eb3bf6660621e558ecaf41e85 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 19 Nov 1999 23:04:41 +0000 Subject: no_comment --- perl-install/Makefile.drakxtools | 30 +++++++++++++++++ perl-install/c/stuff.xs.pm | 4 +++ perl-install/install2.pm | 9 +----- perl-install/install_steps_interactive.pm | 3 +- perl-install/interactive_newt.pm | 4 +-- perl-install/pkgs.pm | 2 +- perl-install/share/compssList | 54 ++++++++++++++++++++++++++++++- 7 files changed, 92 insertions(+), 14 deletions(-) create mode 100644 perl-install/Makefile.drakxtools (limited to 'perl-install') diff --git a/perl-install/Makefile.drakxtools b/perl-install/Makefile.drakxtools new file mode 100644 index 000000000..5e4eff121 --- /dev/null +++ b/perl-install/Makefile.drakxtools @@ -0,0 +1,30 @@ +DIRS = ddcprobe po Newt c pci_probing resize_fat +PREFIX = +SBINDEST = $(PREFIX)/usr/sbin +ETCDEST = $(PREFIX)/etc/gtk +BINDEST = $(PREFIX)/usr/bin +LIBDEST = $(PREFIX)/usr/lib/libDrakX +X11DEST = $(PREFIX)/usr/X11R6/lib/X11 + +.PHONY: $(DIRS) + +all: $(DIRS) + +$(DIRS): + install -d auto + $(MAKE) -C $@ + +install: + install -d $(BINDEST) $(ETCDEST) $(SBINDEST) $(LIBDEST) $(X11DEST) $(DIRS:%=$(LIBDEST)/%) + install diskdrake XFdrake ddcprobe/ddcxinfos $(SBINDEST) + + for i in *.pm ; do perl -pe '$$_ = "\n" if /\s*use\s+(diagnostics|vars|strict)/' $$i > $(LIBDEST)/$$i ; done + install -m 644 MonitorsDB $(X11DEST) + install -m 644 diskdrake.rc $(ETCDEST) + install -m 644 po/*.po $(LIBDEST)/po + install -m 644 $(patsubst %,Newt/%.pm,Newt) $(LIBDEST)/Newt + install -m 644 $(patsubst %,c/%.pm,stuff) $(LIBDEST)/c + install -m 644 $(patsubst %,pci_probing/%.pm,main pcitable pci_class) $(LIBDEST)/pci_probing + install -m 644 $(patsubst %,resize_fat/%.pm,main any boot_sector c_rewritten dir_entry directory fat info_sector io) $(LIBDEST)/resize_fat + cp -rf auto $(LIBDEST) + diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm index 784afa807..94610be77 100644 --- a/perl-install/c/stuff.xs.pm +++ b/perl-install/c/stuff.xs.pm @@ -576,6 +576,10 @@ headerRead(fd, magicp) OUTPUT: RETVAL +void +headerFree(header) + void *header + char * headerGetEntry_string(h, query) void *h diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 980277321..609a2b720 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -227,14 +227,7 @@ sub selectMouse { add2hash($o->{mouse} ||= {}, { mouse::read($o->{prefix}) }) if $o->{isUpgrade} && !$clicked; $o->selectMouse($clicked); - addToBeDone { - mouse::write($o->{prefix}, $o->{mouse}); - my $t = "modprobe usbmouse\n"; - substInFile { - s/$t//; - $_ .= $t if eof; - } "$o->{prefix}/etc/rc.d/rc.local" if $o->{mouse}{FULLNAME} =~ /USB/i; - } 'doInstallStep'; + addToBeDone { mouse::write($o->{prefix}, $o->{mouse}) } 'doInstallStep'; } #------------------------------------------------------------------------------ diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 1e50b75a3..f6b5a9f9e 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -138,8 +138,7 @@ sub selectMouse { $name = $o->ask_from_list_('', _("What is the type of your mouse?"), [ mouse::names() ], $name); $o->{mouse} = mouse::name2mouse($name); } - my $b = $o->{mouse}{nbuttons} < 3; - $o->{mouse}{XEMU3} = 'yes' if $::expert && $o->ask_yesorno('', _("Emulate third button?"), $b) || $b; + $o->{mouse}{XEMU3} = 'yes' if $o->{mouse}{nbuttons} < 3 && (!$::expert || $o->ask_yesorno('', _("Emulate third button?"), 1)); $o->{mouse}{device} = mouse::serial_ports_names2dev( $o->ask_from_list(_("Mouse Port"), diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm index 3325dfb28..729453c60 100644 --- a/perl-install/interactive_newt.pm +++ b/perl-install/interactive_newt.pm @@ -23,7 +23,7 @@ sub new() { bless {}, $_[0]; } -sub end { Newt::Finished } +sub end() { Newt::Finished } END { end() } sub myTextbox { @@ -62,7 +62,7 @@ sub ask_from_listW { } my $i; map_index { $i = $::i if $def eq $_ } @$l; my ($r, $e) = Newt::WinMenu($title, $mesg, 40, 5, 5, 8, $l, $i, @okcancel); - return if $r > 1; + $r > 1 and die "ask_from_list cancel"; if ($special) { $r ? $okcancel[0] : $l->[$e]; } else { diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index ac8717f42..3800e3979 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -18,7 +18,7 @@ XFree86-P9000 XFree86-S3 XFree86-S3V XFree86-SVGA XFree86-W32 XFree86-I128 XFree86-Sun XFree86-SunMono XFree86-Sun24 XFree86-3DLabs kernel-BOOT MySQL MySQL_GPL mod_php3 midgard postfix metroess metrotmpl hackkernel hackkernel-BOOT hackkernel-fb hackkernel-headers -hackkernel-pcmcia-cs hackkernel-smp hackkernel-smp-fb autoirpm +hackkernel-pcmcia-cs hackkernel-smp hackkernel-smp-fb autoirpm autoirpm-icons ); my @preferred = qw( diff --git a/perl-install/share/compssList b/perl-install/share/compssList index 7b4a67e52..70677a13a 100644 --- a/perl-install/share/compssList +++ b/perl-install/share/compssList @@ -22,7 +22,7 @@ aumix 15 0 2 authconfig 90 99 90 autoconf 5 0 94 autofs 22 0 50 -autoirpm-icons 85 0 70 +autoirpm-icons 85 0 80 automake 5 0 94 awesfx 15 0 13 bash1 15 0 13 @@ -83,6 +83,7 @@ dip 15 0 13 dosemu 55 0 49 dosemu-freedos 55 0 49 dosfstools 25 0 22 +drakxtools 89 0 83 dump 9 0 87 e2fsprogs-devel 1 0 25 ed 45 0 5 @@ -379,6 +380,57 @@ libxml-devel 3 0 71 linuxconf 82 0 96 linuxconf-devel 1 0 70 linux_logo 1 0 0 +locales 96 96 96 +locales-ar 22 22 22 +locales-bg 22 22 22 +locales-br 22 22 22 +locales-ca 22 22 22 +locales-cs 22 22 22 +locales-cy 22 22 22 +locales-da 22 22 22 +locales-de 22 22 22 +locales-el 22 22 22 +locales-en 22 22 22 +locales-eo 22 22 22 +locales-es 22 22 22 +locales-et 22 22 22 +locales-eu 22 22 22 +locales-fi 22 22 22 +locales-fo 22 22 22 +locales-fr 22 22 22 +locales-ga 22 22 22 +locales-gl 22 22 22 +locales-he 22 22 22 +locales-hr 22 22 22 +locales-hu 22 22 22 +locales-hy 22 22 22 +locales-id 22 22 22 +locales-is 22 22 22 +locales-it 22 22 22 +locales-ja 22 22 22 +locales-ka 22 22 22 +locales-kl 22 22 22 +locales-ko 22 22 22 +locales-lo 22 22 22 +locales-lt 22 22 22 +locales-lv 22 22 22 +locales-nl 22 22 22 +locales-no 22 22 22 +locales-oc 22 22 22 +locales-pl 22 22 22 +locales-pt 22 22 22 +locales-ro 22 22 22 +locales-ru 22 22 22 +locales-sk 22 22 22 +locales-sl 22 22 22 +locales-sr 22 22 22 +locales-sv 22 22 22 +locales-th 22 22 22 +locales-tr 22 22 22 +locales-uk 22 22 22 +locales-vi 22 22 22 +locales-wa 22 22 22 +locales-zh 22 22 22 lout 15 0 10 lout-doc 15 0 10 lpg 60 0 80 -- cgit v1.2.1