From 747164a5dee114b0ef0f027e6ef3ecdc6671d297 Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Thu, 22 Mar 2001 15:26:30 +0000 Subject: added mapn fun to reduce code.. testing it --- perl-install/bootlook.pm | 33 +++++++++++++++++++++------------ 1 file changed, 21 insertions(+), 12 deletions(-) (limited to 'perl-install/bootlook.pm') diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 7929c4144..1a6b8e0c9 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -292,23 +292,32 @@ sub updateInit # aurora functions #------------------------------------------------------------- + + sub updateAurora { if ($a_mode) { - 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"); + mapn { if (_$_[0]->get_active()) { + symlinkf("/lib/aurora/Monitors/$_[1]", "/etc/aurora/Monitor"); + $in->standalone::pkgs_install($_[2]) if !(-e "/lib/aurora/Monitors/$_[1]"); } + }, + (["$a_h_button","NewStyle-WsLib",qw(Aurora-Monitor-NewStyle-WsLib)], + ["$a_v_button","Traditional-WsLib", qw(Aurora-Monitor-Traditional-WsLib)], + ["$a_g_button","Traditional-Gtk+", qw(Aurora-Monitor-Traditional-Gtk+)]); - 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+"); - } +# 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+"); +# } } else { unlink "/etc/aurora/Monitor"; } -- cgit v1.2.1