From 67dcf3a015d3dad98946b110ae9e60d711082a11 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 27 Sep 2000 16:04:01 +0000 Subject: no_comment --- Makefile | 2 +- perl-install/ChangeLog | 19 ++++++ perl-install/Makefile | 2 +- perl-install/fsedit.pm | 4 +- perl-install/install2.pm | 1 - perl-install/install_any.pm | 2 +- perl-install/install_steps_gtk.pm | 2 +- perl-install/install_steps_interactive.pm | 108 ++++++++++++++++++++++++++++-- perl-install/my_gtk.pm | 8 +-- perl-install/pkgs.pm | 5 +- 10 files changed, 135 insertions(+), 18 deletions(-) diff --git a/Makefile b/Makefile index 91fd28866..fa6c29683 100644 --- a/Makefile +++ b/Makefile @@ -105,7 +105,7 @@ upload_sparc: cp -a $(ROOTDEST)/misc/* $(UPLOAD_SPARC_DEST)/misc; true rm -rf $(UPLOAD_SPARC_DEST)/Mandrake/mdkinst cp -a $(ROOTDEST)/Mandrake/mdkinst $(UPLOAD_SPARC_DEST)/Mandrake/mdkinst; true - ( cd $(ROOTDEST)/Mandrake/base; cp mdkinst_stage2.gz rescue_stage2.gz compss compssList compssUsers $(UPLOAD_SPARC_DEST)/Mandrake/base ); true + ( cd $(ROOTDEST)/Mandrake/base; cp mdkinst_stage2.gz rescue_stage2.gz compss compssList compssUsers compssUsers.desktop $(UPLOAD_SPARC_DEST)/Mandrake/base ); true rm -f /tmp/mdkinst_done # mkisofs -r -J -b images/cdrom.img -c images/boot.cat /tmp/r /mnt/disk/ | cdrecord -v -eject speed=6 dev=1,0 - diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 0627d354b..8d0915c01 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,3 +1,22 @@ +2000-09-27 Pixel + + * install_steps_interactive.pm (selectLanguage): intregrate + license again + + * pkgs.pm (readCompssUsers): reads compssUsers.meta_class + + * diskdrake.pm (Create): replace ``ne "i386"'' by ``!~ /i.86/'' + (as should be) + + * install_steps_gtk.pm (selectInstallClass1): if @$l (list of + install classes) contains only one element, call + install_steps_interactive::selectInstallClass1 + + * install_steps_interactive.pm (choosePartitionsToFormat): fix for + "no partitions selected to format" + + * my_gtk.pm (_create_window): alt-e now *toggles* expert/newbie + 2000-09-27 Guillaume Cottenceau * share/compssList: more for gnupg, -11 for sucking things, diff --git a/perl-install/Makefile b/perl-install/Makefile index 98a4d3021..bb27b54f4 100644 --- a/perl-install/Makefile +++ b/perl-install/Makefile @@ -123,7 +123,7 @@ endif cd share ; cp isdndb.net $(DEST)/usr/share/isdn_db.txt cd share ; cp adsldb.net $(DEST)/usr/share/adsl_db.txt cd share ; cp -a themes $(DEST)/usr/share/gtk - cd share ; cp compssUsers compssList $(ROOTDEST)/Mandrake/base + cd share ; cp compssUsers compssUsers.desktop compssList $(ROOTDEST)/Mandrake/base if [ -f ../modules/modules.cz* ]; then \ cp -f ../modules/modules.cz* $(DEST)/lib/; \ diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index af1882186..0e6d2a049 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -168,7 +168,7 @@ sub suggest_part { grep { !$part->{type} || $part->{type} == $_->{type} || isTrueFS($part) && isTrueFS($_) } @$suggestions or return; -#- if (arch() =~ /^i386/) { +#- if (arch() =~ /i.86/) { #- $best = $second if #- $best->{mntpoint} eq '/boot' && #- $part->{start} + $best->{size} > 1024 * $hd->cylinder_size(); #- if the empty slot is beyond the 1024th cylinder, no use having /boot @@ -257,7 +257,7 @@ sub check_mntpoint { die "raid / with no /boot" if $mntpoint eq "/" && isMDRAID($part) && !has_mntpoint("/boot", $hds); die _("This directory should remain within the root filesystem") if member($mntpoint, qw(/bin /dev /etc /lib /sbin)); die _("You need a true filesystem (ext2, reiserfs) for this mount point\n") if !isTrueFS($part) && member($mntpoint, qw(/ /home /tmp /usr /var)); -#- if ($part->{start} + $part->{size} > 1024 * $hd->cylinder_size() && arch() =~ /i386/) { +#- if ($part->{start} + $part->{size} > 1024 * $hd->cylinder_size() && arch() =~ /i.86/) { #- die "/boot ending on cylinder > 1024" if $mntpoint eq "/boot"; #- die "/ ending on cylinder > 1024" if $mntpoint eq "/" && !has_mntpoint("/boot", $hds); #- } diff --git a/perl-install/install2.pm b/perl-install/install2.pm index cd2c92d4c..015d1bc37 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -605,7 +605,6 @@ sub main { $o->{meta_class} = 'desktop' if $VERSION =~ /desktop/i; if ($o->{meta_class} eq 'desktop') { $o->{installClass} = 'normal'; - push @auto, 'selectInstallClass'; } if ($oem) { $o->{partitioning}{auto_allocate} = 1; diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index fed856326..2b5703711 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -304,7 +304,7 @@ sub setPackages($) { #- must be done after getProvides $o->{compssListLevels} = pkgs::readCompssList($o->{packages}, lang::get_langs()); ($o->{compssUsers}, $o->{compssUsersSorted}, $o->{compssUsersIcons}) = - pkgs::readCompssUsers($o->{packages}, $o->{compss}); + pkgs::readCompssUsers($o->{packages}, $o->{compss}, $o->{meta_class}); my @l = (); push @l, 'xawtv', 'kwintv' if grep { $_->{driver} eq 'bttv' } detect_devices::probeall(); diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 31d1acc28..1281e3a47 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -142,7 +142,7 @@ press `F1' when booting on CDROM, then enter `text'.")) if $first_time && availa #------------------------------------------------------------------------------ sub selectInstallClass1 { my ($o, $verif, $l, $def, $l2, $def2) = @_; - $::live and return $o->SUPER::selectInstallClass1($verif, $l, $def, $l2, $def2); + $::live || @$l == 1 and return $o->SUPER::selectInstallClass1($verif, $l, $def, $l2, $def2); my $w = my_gtk->new(''); my ($radio, $focused); diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index d8c73efb6..6af11f58b 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -67,9 +67,105 @@ translated etc. that varies from language to language).") if $o->{lang} !~ /^en/ unless ($o->{useless_thing_accepted}) { $o->set_help('license'); - $o->{useless_thing_accepted} = $o->ask_from_list_('', - "License - no warranty", - [ __("Accept"), __("Refuse") ], "Accept") eq "Accept" or $o->exit; + $o->{useless_thing_accepted} = $o->ask_from_list_('', formatAlaTeX( +_(" Introduction +------------ +The operating system and the different components available in the Linux-Mandrake distribution +shall be called the \"Software Products\" hereafter. The Software Products include, but are not +restricted to, the set of programs, methods, rules and documentation related to the operating +system and the different components of the Linux-Mandrake distribution. + +1. License Agreement +-------------------- +Please read carefully this document. This document is a license agreement between you and +MandrakeSoft S.A., 42, rue d'Aboukir, 75002 Paris - France, which applies to the Software Products. +By installing, duplicating or using the Software Products in any manner, you explicitly +accept and fully agree to conform to the terms and conditions of this License. +If you disagree with any portion of the License, you are not allowed to install, duplicate or use +the Software Products. +Any attempt to install, duplicate or use the Software Products in a manner which does not comply +with the terms and conditions of this License is void and will terminate your rights under this +License. Upon termination of the License, you must immediately destroy all copies of the +Software Products. + +2. The GPL License and Related Licenses +--------------------------------------- +The Software Products consist of components created by different persons or entities. Most +of these components are governed under the terms and conditions of the GNU General Public +Licence, hereafter called \"GPL\", or of similar licenses. Most of these licenses allow you to use, +duplicate, adapt or redistribute the components which they cover. Please read carefully the terms +and conditions of the license agreement for each component before using any component. Any question +on a component license should be addressed to the component author and not to MandrakeSoft. +The programs developed by MandrakeSoft S.A. are governed by the GPL License. Documentation written +by MandrakeSoft S.A. is governed by a specific license. Please refer to the documentation for +further details. +Some versions of the Software Products may contain components which are not governed by the GPL +License or similar agreements. Each such component is then governed by the terms and conditions +of its own specific license. Please read carefully and comply with such specific licenses before +you install, use or redistribute the said components. Such licenses will in general prevent the +transfer, duplication (except for backup purposes), redistribution, reverse engineering, +de-assembly, +de-compilation or modification of the component. Any breach of agreement will immediately terminate +your rights under the specific license. Unless the specific license terms grant you such rights, +you usually cannot install the programs on more than one system, or adapt it to be used on a +network. +In doubt, please contact directly the distributor or editor of the component. Transfer to third +parties or copying of such components including the documentation is usually forbidden. + +3. Intellectual Property Rights +------------------------------- +All rights to the components of the Software Products belong to their respective authors and are +protected by intellectual property and copyright laws applicable to software programs. +MandrakeSoft S.A. reserves its rights to modify or adapt the Software Products, as a whole or in +parts, +by all means and for all purposes. +\"Mandrake\", \"Linux-Mandrake\" and associated logos are trademarks of MandrakeSoft S.A. All rights +are +reserved. The duplication is forbidden without prior written consent by MandrakeSoft S.A. + +4. Limited Warranty +------------------- +The Software Products and attached documentation are provided \"as is\", with no warranty, to the +extent permitted by law. Should the Software Products be defective, MandrakeSoft S.A. will at its +own will either replace the Software Products, or reimburse the paid fee. +This limited warranty is void if you fail to comply to the recommendations, instructions and +conditions +of use listed in the documentation or license agreements of the Software Products. +To the extent permitted by law, MandrakeSoft S.A. will in no circumstances be liable for any +special, +incidental, direct or indirect damages whatsoever (including without limitation damages for loss of +business, interruption of business, financial loss, legal fees and penalties resulting from a court +judgement, or any other consequential loss) arising out of the use or inability to use the +Software +Products, even if MandrakeSoft S.A. has been advised of the possibility or occurance of such +damages. + +LIMITED LIABILITY LINKED TO POSSESSING OR USING PROHIBITED SOFTWARE IN SOME COUNTRIES + +To the extent permitted by law, MandrakeSoft S.A. or its distributors will, in no circumstances, be +liable for any special, incidental, direct or indirect damages whatsoever (including without +limitation +damages for loss of business, interruption of business, financial loss, legal fees and penalties +resulting from a court judgement, or any other consequential loss) arising out of the possession +and +use of software components or arising out of downloading software components from one of +Linux-Mandrake +sites which are prohibited or restricted in some countries by local laws. This limited liability +applies to, but is not restricted to, the strong cryptography components included in the Software +Products. + +5. Governing Laws +----------------- +If any portion of this agreement is held void, illegal or inapplicable by a court judgement, this +portion is excluded from this contract. You remain bound by the other applicable sections of the +agreement. +The terms and conditions of this License are governed by the Laws of France. +All disputes on the terms of this license will preferably be settled out of court. As a last +resort, +the dispute will be referred to the appropriate Courts of Law of Paris - France. +For any question on this document, please contact MandrakeSoft S.A., +42, rue d'Aboukir, 75002 Paris - France +")), [ __("Accept"), __("Refuse") ], "Accept") eq "Accept" or $o->exit; } } #------------------------------------------------------------------------------ @@ -116,9 +212,11 @@ sub selectInstallClass($@) { $::corporate ? () : ( _("Recommended") => "beginner", ), + $o->{meta_class} eq 'desktop' ? () : ( _("Customized") => "specific", _("Expert") => "expert", - ); + ), + ); $o->set_help('selectInstallClassCorpo') if $::corporate; @@ -306,7 +404,7 @@ sub choosePartitionsToFormat($$) { $_->{toFormat} = 1 foreach @$toFormat; my @m = grep { $_->{toFormat} && !isLoopback($_) && !isReiserfs($_) } @l; - @m && $o->ask_many_from_list('', _("Check bad blocks?"), + !@m || $o->ask_many_from_list('', _("Check bad blocks?"), { list => \@m, label => $name2label, diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 3cff91009..be66c9ca6 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -371,10 +371,10 @@ sub _create_window($$) { if ($d eq "help") { require install_gtk; install_gtk::create_big_help($::o); - } elsif ($_[1]{keyval} eq ord('e') && $_[1]{state} & 8) { - log::l("Switching to expert"); - $::expert = 1; - $::beginner = 0; + } elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) { + log::l("Switching to " . ($::beginner ? "expert" : "beginner")); + $::expert = $::beginner; + $::beginner = !$::expert; } elsif ($d) { #- previous field is created here :( my $s; foreach (reverse @{$::o->{orderedSteps}}) { diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index f489db953..d0d4954da 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -663,7 +663,7 @@ sub readCompssList { } sub readCompssUsers { - my ($packages, $compss) = @_; + my ($packages, $compss, $meta_class) = @_; my (%compssUsers, %compssUsersIcons, @sorted, $l); my (%compss); foreach (@$compss) { @@ -675,7 +675,8 @@ sub readCompssUsers { $l or return; $_ = $packages->[0]{$_} or log::l("unknown package $_ (in compssUsers)") foreach @$l; }; - my $f = install_any::getFile('Mandrake/base/compssUsers') or die "can't find compssUsers"; + my $file = 'Mandrake/base/compssUsers'; + my $f = install_any::getFile("$file.$meta_class") || install_any::getFile($file) or die "can't find $file"; foreach (<$f>) { /^\s*$/ || /^#/ and next; s/#.*//; -- cgit v1.2.1