summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-30 18:50:40 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-30 18:50:40 +0000
commit1defcba73b989b6a28826c563417a7c0fc251052 (patch)
tree1d5bff21637dc8fb4f21fb9846ef6175c045d3f5 /perl-install/install_any.pm
parentfb80b8a8984779543f0f0c50d7f6dcb995e0ce96 (diff)
downloaddrakx-1defcba73b989b6a28826c563417a7c0fc251052.tar
drakx-1defcba73b989b6a28826c563417a7c0fc251052.tar.gz
drakx-1defcba73b989b6a28826c563417a7c0fc251052.tar.bz2
drakx-1defcba73b989b6a28826c563417a7c0fc251052.tar.xz
drakx-1defcba73b989b6a28826c563417a7c0fc251052.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm15
1 files changed, 10 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 5dfea7d79..70568a512 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -29,11 +29,8 @@ sub getFile($) {
}
sub versionString {
- my $kernel = $::o->{packages}{kernel};
- $kernel && $kernel->{header} or die "I couldn't find the kernel package!";
-
- c::headerGetEntry($kernel->{header}, 'version') . "-" .
- c::headerGetEntry($kernel->{header}, 'release');
+ local $_ = readlink("$::o->{prefix}/boot/vmlinuz") or die "I couldn't find the kernel package!";
+ first(/vmlinuz-(.*)/);
}
@@ -107,6 +104,14 @@ sub addToBeDone(&$) {
push @{$::o->{steps}{$step}{toBeDone}}, $f;
}
+sub getTimeZones {
+ local *F;
+ open F, "cd /usr/share/zoneinfo && find [A-Z]* -type f |";
+ my @l = sort map { chop; $_ } <F>;
+ close F or die "cannot list the available zoneinfos";
+ @l;
+}
+
sub upgrFindInstall {
# int rc;
#