summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-08-28 16:51:57 +0000
committerFrancois Pons <fpons@mandriva.com>2000-08-28 16:51:57 +0000
commitc047aee8e84b723f6910defab8b0de8063502490 (patch)
treeb12ebc2155d800c65755beee26ab7c8c4cbc9e4d /perl-install
parenta5be3a7fffa550e22e2a56ee40151b69c00afe8a (diff)
downloaddrakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.tar
drakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.tar.gz
drakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.tar.bz2
drakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.tar.xz
drakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm5
-rw-r--r--perl-install/install_interactive.pm2
-rw-r--r--perl-install/keyboard.pm2
-rw-r--r--perl-install/mouse.pm9
-rw-r--r--perl-install/pkgs.pm33
-rw-r--r--perl-install/printerdrake.pm5
6 files changed, 32 insertions, 24 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 38ca70d54..8485fc163 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -290,7 +290,7 @@ sub setPackages($) {
#- must be done after selecting base packages (to save memory)
pkgs::getProvides($o->{packages});
- $o->{compss} = pkgs::readCompss($o->{packages});
+ $o->{compss} = pkgs::readCompss($o->{prefix}, $o->{packages});
#- must be done after getProvides
$o->{compssListLevels} = pkgs::readCompssList($o->{packages});
($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{packages}, $o->{compss});
@@ -304,7 +304,8 @@ sub setPackages($) {
$_->{values} = [ map { $_ + 50 } @{$_->{values}} ] foreach grep {$_} map { pkgs::packageByName($o->{packages}, $_) } @l;
} else {
- #- this has to be done to make sure the hdlist files and depslist file are present.
+ #- this has to be done to make sure necessary files for urpmi are
+ #- present.
pkgs::psUpdateHdlistsDeps($o->{prefix}, $o->{method});
#- remove upgrade flag with selection one. TOCHECK
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 62cd9858c..83b6c0a16 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -182,7 +182,7 @@ sub setup_thiskind {
if ($allow_probe) {
@l = $o->load_thiskind($type);
- if (my @err = grep { $_->{error} } map { $_->{error} } @l) {
+ if (my @err = grep { $_ } map { $_->{error} } @l) {
$o->ask_warn('', join("\n", @err));
}
return @l if $auto && (@l || !$at_least_one);
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index be74d2375..f5c4dc5a7 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -263,7 +263,7 @@ sub setup($) {
load(cat_($f));
} else {
local *F;
- open F, "extract_archive $ENV{SHARE_PATH}/keymaps.cz2 '' $o->[1].kmap |";
+ open F, "packdrake -x $ENV{SHARE_PATH}/keymaps.cz2 '' $o->[1].kmap |";
local $/ = undef;
eval { load(<F>) };
}
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 30f3eaa31..af0a35a79 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -101,7 +101,7 @@ sub list { @mouses }
sub name2mouse {
my ($name) = @_;
foreach (@mouses) {
- return { %$_ } if $name eq $_->{FULLNAME};
+ $name eq $_->{FULLNAME} and return $_;
}
die "$name not found";
}
@@ -167,7 +167,7 @@ sub detect() {
return name2mouse("Apple ADB Mouse");
}
- detect_devices::hasMousePS2 and return { unsafe => 1, %{name2mouse("Generic Mouse (PS/2)")} };
+ detect_devices::hasMousePS2 and return { %{name2mouse("Generic Mouse (PS/2)")}, unsafe => 1 };
eval { commands::modprobe("serial") };
my ($r, $wacom) = mouseconfig(); return ($r, $wacom) if $r;
@@ -186,6 +186,7 @@ sub detect() {
modules::unload("usbmouse");
}
- #- defaults to generic ttyS0
- { device => "ttyS0", unsafe => 1, %{name2mouse("Generic Mouse (serial)")} };
+ #- defaults to generic serial mouse on ttyS0.
+ #- Oops? using return let return a hash ref, if not using it, it return a list directly :-)
+ return { %{name2mouse("Generic Mouse (serial)")}, device => "ttyS0", unsafe => 1 };
}
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 021d61657..4f300e226 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -399,16 +399,17 @@ sub psUpdateHdlistsDeps {
#- copy hdlist file directly to $prefix/var/lib/urpmi, this will be used
#- for getting header of package during installation or after by urpmi.
my $fakemedium = $method . $medium;
- my $newf = "$prefix/var/lib/urpmi/hdlist.$fakemedium.cz2";
+ my $newf = "$prefix/var/lib/urpmi/hdlist.$fakemedium.cz2" . ($hdlist =~ /\.cz2/ && "2");
-e $newf and do { unlink $newf or die "cannot remove $newf: $!"; };
install_any::getAndSaveFile($hdlist, $newf) or die "no $hdlist found";
symlinkf $newf, "/tmp/$hdlist";
++$medium;
}
- #- this is necessary for urpmi, but also as hdlist are copied here,
- #- we can make consistent the directory.
- install_any::getAndSaveFile("depslist", "$prefix/var/lib/urpmi/depslist");
+ #- this is necessary for urpmi.
+ install_any::getAndSaveFile("depslist.ordered", "$prefix/var/lib/urpmi/depslist.ordered");
+ install_any::getAndSaveFile("provides", "$prefix/var/lib/urpmi/provides");
+ install_any::getAndSaveFile("compss", "$prefix/var/lib/urpmi/compss");
}
sub psUsingHdlists {
@@ -461,7 +462,7 @@ sub psUsingHdlist {
#- copy hdlist file directly to $prefix/var/lib/urpmi, this will be used
#- for getting header of package during installation or after by urpmi.
- my $newf = "$prefix/var/lib/urpmi/hdlist.$fakemedium.cz2";
+ my $newf = "$prefix/var/lib/urpmi/hdlist.$fakemedium.cz" . ($hdlist =~ /\.cz2/ && "2");
-e $newf and do { unlink $newf or die "cannot remove $newf: $!"; };
install_any::getAndSaveFile($fhdlist || $hdlist, $newf) or die "no $hdlist found";
symlinkf $newf, "/tmp/$hdlist";
@@ -549,11 +550,9 @@ sub getOtherDeps($$) {
sub getDeps($) {
my ($prefix, $packages) = @_;
- #- this is necessary for urpmi, but also as hdlist are copied here,
- #- we can make consistent the directory.
- install_any::getAndSaveFile("depslist", "$prefix/var/lib/urpmi/depslist");
-
- my $f = install_any::getFile("depslist.ordered") or die "can't find dependencies list";
+ #- this is necessary for urpmi.
+ install_any::getAndSaveFile("depslist.ordered", "$prefix/var/lib/urpmi/depslist.ordered");
+ install_any::getAndSaveFile("provides", "$prefix/var/lib/urpmi/provides");
#- beware of heavily mismatching depslist.ordered file against hdlist files.
my $mismatch = 0;
@@ -562,7 +561,9 @@ sub getDeps($) {
#- cross reference to be resolved on id (think of loop requires)
#- provides should be updated after base flag has been set to save
#- memory.
- foreach (<$f>) {
+ local *F;
+ open F, "$prefix/var/lib/urpmi/depslist.ordered" or die "cann't find dependancies list";
+ foreach (<F>) {
my ($name, $version, $release, $sizeDeps) = /^(\S*)-([^-\s]+)-([^-\s]+)\s+(.*)/;
my $pkg = $packages->[0]{$name};
@@ -612,11 +613,15 @@ sub getProvides($) {
}
sub readCompss {
- my ($packages) = @_;
+ my ($prefix, $packages) = @_;
my ($p, @compss);
- my $f = install_any::getFile("compss") or die "can't find compss";
- foreach (<$f>) {
+ #- this is necessary for urpmi.
+ install_any::getAndSaveFile("compss", "$prefix/var/lib/urpmi/compss");
+
+ local *F;
+ open F, "$prefix/var/lib/urpmi/compss" or die "can't find compss";
+ foreach (<F>) {
/^\s*$/ || /^#/ and next;
s/#.*//;
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 1f041140d..7e023b74d 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -127,10 +127,11 @@ sub setup_gsdriver($$$;$) {
do {
$printer->{DBENTRY} ||= $printer::thedb_gsdriver{$printer->{GSDRIVER}}{ENTRY};
eval { $printer->{DBENTRY} = $printer::descr_to_db{
- $in->ask_from_list_with_help_(_("Configure Printer"),
+# $in->ask_from_list_with_help_(_("Configure Printer"), #- tempory sucks TODO
+ $in->ask_from_list_(_("Configure Printer"),
_("What type of printer do you have?"),
[ @printer::entry_db_description ],
- { %printer::descr_to_help },
+ # { %printer::descr_to_help },
$printer::db_to_descr{$printer->{DBENTRY}},
)
};