diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-06-25 05:32:39 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-06-25 05:32:39 +0000 |
| commit | bf36d20ac5f6d5c8d4bc586296fc3cf989646629 (patch) | |
| tree | fcd7f070f2761b359988341582d4993d028534d0 /perl-install | |
| parent | ce17d3a6903a20969719dcab8fbb7b22ccd2d8e6 (diff) | |
| download | drakx-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-x | perl-install/standalone/drakTermServ | 6 |
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"; |