summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/any.pm1
-rw-r--r--perl-install/install/steps_interactive.pm6
-rw-r--r--perl-install/messages.pm32
3 files changed, 0 insertions, 39 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 7b7839889..b5e97310b 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -480,7 +480,6 @@ sub rpmsrate_always_flags {
$rpmsrate_flags_chosen->{HIGH_SECURITY} = 1 if $o->{security} > 3;
$rpmsrate_flags_chosen->{BIGMEM} = 1 if detect_devices::BIGMEM();
$rpmsrate_flags_chosen->{SMP} = 1 if $o->{match_all_hardware} || detect_devices::hasSMP();
- $rpmsrate_flags_chosen->{CDCOM} = 1 if any { $_->{name} =~ /commercial/i } install::media::allMediums($o->{packages});
$rpmsrate_flags_chosen->{'3D'} = 1 if
$o->{match_all_hardware} ||
detect_devices::matching_desc__regexp('Matrox.* G[245][05]0') ||
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 18e204f2f..67c786a2c 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -374,12 +374,6 @@ sub ask_change_cd_ {
local $| = 1; print "\a";
- if ($phys_m->{name} =~ /commercial/i) {
- $o->{useless_thing_accepted2} ||=
- $o->ask_from_list_('', formatAlaTeX(messages::com_license()),
- [ N_("Accept"), N_("Refuse") ], "Accept") eq "Accept" or return;
- }
-
foreach (1 .. 32) {
install::media::umount_phys_medium($phys_m);
install::media::openCdromTray($phys_m->{device});
diff --git a/perl-install/messages.pm b/perl-install/messages.pm
index 354ebea19..87a558913 100644
--- a/perl-install/messages.pm
+++ b/perl-install/messages.pm
@@ -93,38 +93,6 @@ MP3 decoders included may require a licence for further usage (see
http://www.mp3licensing.com for more details). If you are unsure if a patent
may be applicable to you, check your local laws.");
}
-sub com_license() {
-#-PO: keep the double empty lines between sections, this is formatted a la LaTeX
-N("
-Warning
-
-Please read carefully the terms below. If you disagree with any
-portion, you are not allowed to install the next CD media. Press 'Refuse'
-to continue the installation without using these media.
-
-
-Some components contained in the next CD media 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 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.
-
-
-All rights to the components of the next CD media belong to their
-respective authors and are protected by intellectual property and
-copyright laws applicable to software programs.
-");
-}
sub install_completed() {
#-PO: keep the double empty lines between sections, this is formatted a la LaTeX