summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2001-03-22 15:26:30 +0000
committerYves Duret <yduret@mandriva.com>2001-03-22 15:26:30 +0000
commit747164a5dee114b0ef0f027e6ef3ecdc6671d297 (patch)
tree7f0f900edf3f3efe4f4c9eed344467023761e54f /perl-install
parentd6bec3867691ef49416b84ee3ec4daf78bdb855f (diff)
downloaddrakx-747164a5dee114b0ef0f027e6ef3ecdc6671d297.tar
drakx-747164a5dee114b0ef0f027e6ef3ecdc6671d297.tar.gz
drakx-747164a5dee114b0ef0f027e6ef3ecdc6671d297.tar.bz2
drakx-747164a5dee114b0ef0f027e6ef3ecdc6671d297.tar.xz
drakx-747164a5dee114b0ef0f027e6ef3ecdc6671d297.zip
added mapn fun to reduce code.. testing it
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm33
1 files changed, 21 insertions, 12 deletions
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";
}