From 8698bb2835a880e499dc984569827fd7c371ad57 Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Fri, 30 Mar 2001 11:32:26 +0000 Subject: remove nmap (buggy) --- perl-install/bootlook.pm | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to 'perl-install') diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index a15c9089f..ce1dfed4a 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -302,15 +302,20 @@ sub updateInit sub updateAurora { if ($a_mode) { - mapn { - if ($_[0]) { - symlinkf("/lib/aurora/Monitors/$_[1]", "/etc/aurora/Monitor"); - $in->standalone::pkgs_install($_[2]) if !(-e "/lib/aurora/Monitors/$_[1]"); - } + if ($a_h_button->get_active()) { + symlinkf("/lib/aurora/Monitors/NewStyle-WsLib", "/etc/aurora/Monitor"); + $in->standalone::pkgs_install(qw(Aurora-Monitor-NewStyle-WsLib)) if !(-e "/lib/aurora/Monitors/NewStyle-WsLib"); + } + + if ($a_v_button->get_active()) { + symlinkf("/lib/aurora/Monitors/Traditional-WsLib", "/etc/aurora/Monitor"); + $in->standalone::pkgs_install(qw(Aurora-Monitor-Traditional-WsLib)) if !(-e "/lib/aurora/Monitors/Traditional-WsLib"); + } + + if ($a_g_button->get_active()) { + symlinkf("/lib/aurora/Monitors/Traditional-Gtk+", "/etc/aurora/Monitor"); + $in->standalone::pkgs_install(qw(Aurora-Monitor-Traditional-Gtk+)) if !(-e "/lib/aurora/Monitors/Traditional-Gtk+"); } - [$a_h_button->get_active(), "NewStyle-WsLib", q(Aurora-Monitor-NewStyle-WsLib)], - [$a_v_button->get_active(), "Traditional-WsLib", q(Aurora-Monitor-Traditional-WsLib)], - [$a_g_button->get_active(), "Traditional-Gtk+", q(Aurora-Monitor-Traditional-Gtk+)]; } else { unlink "/etc/aurora/Monitor"; } -- cgit v1.2.1