summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-06-25 05:32:39 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-06-25 05:32:39 +0000
commitbf36d20ac5f6d5c8d4bc586296fc3cf989646629 (patch)
treefcd7f070f2761b359988341582d4993d028534d0 /perl-install
parentce17d3a6903a20969719dcab8fbb7b22ccd2d8e6 (diff)
downloaddrakx-bf36d20ac5f6d5c8d4bc586296fc3cf989646629.tar
drakx-bf36d20ac5f6d5c8d4bc586296fc3cf989646629.tar.gz
drakx-bf36d20ac5f6d5c8d4bc586296fc3cf989646629.tar.bz2
drakx-bf36d20ac5f6d5c8d4bc586296fc3cf989646629.tar.xz
drakx-bf36d20ac5f6d5c8d4bc586296fc3cf989646629.zip
simplify using new bootloader.pm
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakTermServ6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 52d87fa29..2eebdc7e4 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -34,6 +34,7 @@ BEGIN {
}
use common;
use run_program;
+use bootloader;
use MDK::Common::File qw(:all);
use Config;
@@ -68,7 +69,7 @@ my $server_ip = get_ip_from_sys();
my $changes_made = 0;
my $client_cfg = "/etc/dhcpd.conf.etherboot.clients";
my $tftpboot = "/var/lib/tftpboot";
-my @kernels = grep { /vmlinuz-/ && ! -l "/boot/$_" } all("/boot");
+my @kernels = bootloader::installed_vmlinuz();
#- make sure terminal server and friends are installed
my $ts = system("rpm -q terminal-server > /dev/null");
@@ -724,7 +725,7 @@ sub make_nbi() {
update_list($list_model);
my $combo_default_kernel = Gtk2::ComboBox->new_text;
- $combo_default_kernel->set_popdown_strings(N("Default kernel version"), @kernels);
+ $combo_default_kernel->set_popdown_strings(N("Default kernel version"), map { bootloader::vmlinuz2version($_) } @kernels);
$combo_default_kernel->set_active(0);
$combo_default_kernel->entry->signal_connect('changed', sub {
my $default_kernel = $combo_default_kernel->entry->get_text;
@@ -732,7 +733,6 @@ sub make_nbi() {
if ($default_kernel eq translate("Default kernel version")) {
$config = "";
} else {
- $default_kernel =~ s/vmlinuz-//gi;
$config = 'option bootfile-name = pick-first-value ( concat ( "boot-",' . "\n";
$config .= ' config-option etherboot.kmod, ".' . $default_kernel . '", ".nbi" ), concat' . "\n";
$config .= ' ( "boot-", config-option etherboot.kmod, ".nbi") ,"boot.nbi" );' . "\n";