summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-10 02:00:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-10 02:00:46 +0000
commit4fe837d51fcc99ac6d1e80463b5e13520b250839 (patch)
treeb0c87fc4611a55f95d8812e1afbcef3475459740 /perl-install
parent88d708135221a9b0147c08169fc03e20db45c113 (diff)
downloaddrakx-backup-do-not-use-4fe837d51fcc99ac6d1e80463b5e13520b250839.tar
drakx-backup-do-not-use-4fe837d51fcc99ac6d1e80463b5e13520b250839.tar.gz
drakx-backup-do-not-use-4fe837d51fcc99ac6d1e80463b5e13520b250839.tar.bz2
drakx-backup-do-not-use-4fe837d51fcc99ac6d1e80463b5e13520b250839.tar.xz
drakx-backup-do-not-use-4fe837d51fcc99ac6d1e80463b5e13520b250839.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/crypto.pm2
-rw-r--r--perl-install/fs.pm2
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/pkgs.pm3
-rw-r--r--perl-install/share/compssList7
-rw-r--r--perl-install/share/compssUsers2
-rwxr-xr-xperl-install/standalone/printerdrake4
7 files changed, 15 insertions, 7 deletions
diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index dd86e24c6..884286c9a 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -8,10 +8,12 @@ use log;
use ftp;
my %mirrors = (
+ "ftp.ucr.ac.cr" => [ "Costa Rica", "/pub/Unix/linux/mandrake/Mandrake" ],
"ftp.nectec.or.th" => [ "Thailand", "/pub/mirrors/Mandrake-crypto" ],
"ftp.tvd.be" => [ "Belgium", "/packages/mandrake-crypto" ],
"sunsite.mff.cuni.cz" => [ "Czech Republic", "/OS/Linux/Dist/Mandrake-crypto" ],
"ftp.uni-kl.de" => [ "Germany", "/pub/linux/mandrake/Mandrake-crypto" ],
+ "ftp.duth.gr" => [ "Grece", "/pub/mandrake-crypto" ],
"ftp.leo.org" => [ "Germany", "/pub/comp/os/unix/linux/Mandrake/Mandrake-crypto" ],
"sunsite.uio.no" => [ "Norway", "/pub/unix/Linux/Mandrake-crypto" ],
"ftp.sunet.se" => [ "Sweden", "/pub/Linux/distributions/mandrake-crypto" ],
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 055347234..f2f3a48de 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -274,6 +274,8 @@ sub write_fstab($;$$) {
@new{($mntpoint, "/dev/$device")} = undef;
mkdir "$prefix/$mntpoint", 0755 or log::l("failed to mkdir $prefix/$mntpoint: $!");
+ eval { devices::make("$prefix/dev/$device") };
+
[ "/dev/$device", $mntpoint, "vfat", "user,exec,conv=auto", 0, 0 ];
} grep { isFat($_) &&
! exists $new{"/dev/$_->{device}"} } @$fstab;
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 18e5a5bcd..e111c9043 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -60,7 +60,7 @@ my (%installSteps, @orderedInstallSteps);
addUser => [ __("Add a user"), 1, 1, '', "doInstallStep" ],
createBootdisk => [ __("Create a bootdisk"), 1, 0, '', "doInstallStep" ],
setupBootloader => [ __("Install bootloader"), 1, 1, '', "doInstallStep" ],
- configureX => [ __("Configure X"), 1, 0, ''],#, ["formatPartitions", "setupBootloader"] ],
+ configureX => [ __("Configure X"), 1, 0, '', ["formatPartitions", "setupBootloader"] ],
exitInstall => [ __("Exit install"), 0, 0, 'beginner' ],
);
for (my $i = 0; $i < @installSteps; $i += 2) {
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 91d81921c..4285ec229 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -313,7 +313,8 @@ sub setSelectedFromCompssList {
map_index { $ind = $::i if $_ eq $install_class } @$compssListLevels;
defined $ind or log::l("unknown install class $install_class in compssList"), return;
- my @values = map { $_->{values}[$ind] + ($_->{unskip} ? 10 : 0) } @packages;
+ #- special case for /^k/ aka kde stuff
+ my @values = map { $_->{values}[$ind] + ($_->{unskip} && $_->{name} !~ /^k/ ? 10 : 0) } @packages;
sort { $values[$b] <=> $values[$a] } 0 .. $#packages;
};
foreach (@places) {
diff --git a/perl-install/share/compssList b/perl-install/share/compssList
index ea71aaa58..4a106ed16 100644
--- a/perl-install/share/compssList
+++ b/perl-install/share/compssList
@@ -46,9 +46,9 @@ XFree86-8514 -30 -30 -30
XFree86-AGX -30 -30 -30
XFree86-FBDev -30 -30 -30
XFree86-I128 -30 -30 -30
-XFree86-ISO8859-9-100dpi-fontsv 54 0 49
-XFree86-ISO8859-9 54 0 49
-XFree86-ISO8859-9-75dpi-fonts 75 0 70
+XFree86-ISO8859-9-100dpi-fonts -10 -20 -10
+XFree86-ISO8859-9 -10 -20 -10
+XFree86-ISO8859-9-75dpi-fonts -10 -20 -10
XFree86-Mach32 -30 -30 -30
XFree86-Mach64 -30 -30 -30
XFree86-Mach8 -30 -30 -30
@@ -884,6 +884,7 @@ transfig 16 0 14
tree 40 25 10
trn 46 0 41
trojka 54 0 48
+ttfonts 87 0 80
tunelp 24 15 28
ucd-snmp 0 70 45
ucd-snmp-devel 0 25 45
diff --git a/perl-install/share/compssUsers b/perl-install/share/compssUsers
index 827e3c0eb..d749c4ef7 100644
--- a/perl-install/share/compssUsers
+++ b/perl-install/share/compssUsers
@@ -1,5 +1,4 @@
Graphics Manipulation
- kde:multimedia:graphics
multimedia:graphic
KDE
@@ -45,7 +44,6 @@ Games
System configuration
configuration:system
- kde:administration:utilities
Web Server
+apache
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 76caa66c1..2e7ed085d 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -36,6 +36,10 @@ $::skiptest = /-skiptest/;
$::testing = /-testing/;
$::isStandalone = 1;
+my $f = "/usr/lib/rhs/rhs-printfilters";
+-e $f or system("urpmi --auto rhs-printfilters");
+-e $f or die "install rhs-printfilters first!\n";
+
my $in = vnew interactive('su');
printerdrake::main('', printerdrake::getinfo(''), $in, sub { `urpmi --auto $_[0]` });