summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-27 16:04:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-27 16:04:01 +0000
commit67dcf3a015d3dad98946b110ae9e60d711082a11 (patch)
tree40d7620ff54c5b4b4b6bb06fcd9bb4a6b939c94e /perl-install
parentf6b37f7b9f0d43a5824dd1222c8f017e90ab801b (diff)
downloaddrakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.tar
drakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.gz
drakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.bz2
drakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.xz
drakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog19
-rw-r--r--perl-install/Makefile2
-rw-r--r--perl-install/fsedit.pm4
-rw-r--r--perl-install/install2.pm1
-rw-r--r--perl-install/install_any.pm2
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/install_steps_interactive.pm108
-rw-r--r--perl-install/my_gtk.pm8
-rw-r--r--perl-install/pkgs.pm5
9 files changed, 134 insertions, 17 deletions
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 <pixel@mandrakesoft.com>
+
+ * 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 <gc@mandrakesoft.com>
* 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/#.*//;