summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2001-08-09 12:58:35 +0000
committerYves Duret <yduret@mandriva.com>2001-08-09 12:58:35 +0000
commit1a11bcea71c171356ca422e21a1b2dd3cbc9167b (patch)
tree20b85fbac1ee888beda3e77e93cbe7792a40d31d /perl-install
parent67ceeed237c5a060ba6a1bfb6946d312e696f52e (diff)
downloaddrakx-1a11bcea71c171356ca422e21a1b2dd3cbc9167b.tar
drakx-1a11bcea71c171356ca422e21a1b2dd3cbc9167b.tar.gz
drakx-1a11bcea71c171356ca422e21a1b2dd3cbc9167b.tar.bz2
drakx-1a11bcea71c171356ca422e21a1b2dd3cbc9167b.tar.xz
drakx-1a11bcea71c171356ca422e21a1b2dd3cbc9167b.zip
rewrite in a more drakx fashion
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm281
1 files changed, 84 insertions, 197 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 1cda66f6f..1ee78c7a7 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -20,6 +20,7 @@
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+use MDK::Common;
use Gtk;
use Config;
init Gtk;
@@ -27,11 +28,10 @@ use POSIX;
use lib qw(/usr/lib/libDrakX);
use interactive;
use standalone;
-use common;
-use my_gtk qw(:helpers :wrappers);
use any;
use bootloader;
use fs;
+use my_gtk qw(:helpers :wrappers :ask);
$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~/--embedded (\S*) (\S*)/;
if ($::isEmbedded) {
@@ -43,7 +43,7 @@ if ($::isEmbedded) {
my $in = interactive::vnew('su');
local $_ = join '', @ARGV;
-/-h/ and die _("no help implemented yet.\n");
+/-h/ and die _("bootlook.pm $Id$\nno help implemented yet.\n");
my @winm;
my @usernames;
@@ -60,7 +60,7 @@ my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel
$window->signal_connect(delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) });
$window->set_title(_("Boot Style Configuration") );
$window->border_width(2);
-$window->realize;
+#$window->realize;
# drakX mode
my ($t_pixmap, $t_mask) = gtkcreate_png("tradi.png");
@@ -70,181 +70,93 @@ my ($g_pixmap, $g_mask) = gtkcreate_png("gmon.png");
my ($c_pixmap, $c_mask) = gtkcreate_png("categ.png");
# a pixmap widget to contain the pixmap
-my $pixmap = new Gtk::Pixmap( $h_pixmap, $h_mask );
+my $pixmap = new Gtk::Pixmap($h_pixmap, $h_mask);
### menus definition
# the menus are not shown
# but they provides shiny shortcut like C-q
-my @menu_items = ( { path => _("/_File"),
- type => '<Branch>' },
- { path => _("/File/_New"),
- accelerator => _("<control>N"),
- callback => \&print_hello },
- { path => _("/File/_Open"),
- accelerator => _("<control>O"),
- callback => \&print_hello },
- { path => _("/File/_Save"),
- accelerator => _("<control>S"),
- callback => \&print_hello },
- { path => _("/File/Save _As") },
- { path => _("/File/-"),
- type => '<Separator>' },
- { path => _("/File/_Quit"),
- accelerator => _("<control>Q"),
- callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } },
- { path => _("/_Options"),
- type => '<Branch>' },
- { path => _("/Options/Test")},
- { path => _("/_Help"),
- type => '<LastBranch>' },
- { path => _("/Help/_About...")} );
-
+my @menu_items = ( { path => _("/_File"), type => '<Branch>' },
+ { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } },
+ );
my $menubar = get_main_menu( $window );
-
######### menus end
-my $global_vbox = new Gtk::VBox();
-
-########### lilo/grub
-my $lilo_dedans = new Gtk::HBox(0, 0);
-my $lilo_button = new Gtk::Button _("Configure");
-
-my $lilo_label = new Gtk::Label(
-_("You are currently using %s as Boot Manager.
-Click on Configure to launch the setup wizard.", $lilogrub));
-
-$lilo_dedans->pack_start($lilo_label,0,0,0);
-$lilo_dedans->pack_end($lilo_button,0,0,0);
-$lilo_button->signal_connect(clicked => sub { lilo_choice(); });
-
-my $lilo_frame = new Gtk::Frame _("Lilo/grub mode");
-$lilo_frame->add($lilo_dedans);
-$global_vbox->pack_start ($lilo_frame, 0, 0, 0);
-
-
-######## aurora part
-my $a_dedans = new Gtk::VBox(0, 5);
-$a_dedans->border_width(0);
-my $a_box = new Gtk::VBox(0, 0);
-
-my $a_c_button = new Gtk::RadioButton _("NewStyle Categorizing Monitor");
-$a_c_button->signal_connect(clicked => sub { $pixmap->set($c_pixmap, $c_mask) });
-$a_box->pack_start($a_c_button, 0, 0, 0);
-my $a_h_button = new Gtk::RadioButton _("NewStyle Monitor"), $a_c_button;
-$a_h_button->signal_connect(clicked => sub { $pixmap->set($h_pixmap, $h_mask) });
-$a_box->pack_start($a_h_button, 0, 0, 0);
-my $a_v_button = new Gtk::RadioButton _("Traditional Monitor"), $a_c_button;
-$a_v_button->signal_connect(clicked => sub { $pixmap->set($v_pixmap, $v_mask) });
-$a_box->pack_start($a_v_button, 0, 0, 0);
-my $a_g_button = new Gtk::RadioButton _("Traditional Gtk+ Monitor"), $a_c_button;
-$a_g_button->signal_connect(clicked => sub { $pixmap->set($g_pixmap, $g_mask) });
-$a_box->pack_start($a_g_button, 0, 0, 0);
-
-my $a_button = new Gtk::CheckButton(_("Launch Aurora at boot time") );
-$a_button->signal_connect(clicked => sub {
- if ($inmain) {
- $a_box->set_sensitive(!$a_mode);
- $a_mode = !$a_mode;
- if ($a_mode) {
- $pixmap->set($c_pixmap, $c_mask) if $a_c_button->get_active();
- $pixmap->set($h_pixmap, $h_mask) if $a_h_button->get_active();
- $pixmap->set($v_pixmap, $v_mask) if $a_v_button->get_active();
- $pixmap->set($g_pixmap, $g_mask) if $a_g_button->get_active();
- } else {
- $pixmap->set($t_pixmap, $t_mask);
- }
- }
- });
-$a_dedans->pack_start($a_button, 0, 0, 0);
-$a_dedans->pack_start ($a_box, 0, 0, 0);
-
-my $a_main_hbox = new Gtk::HBox;
-$a_main_hbox->pack_start ($a_dedans, 0, 0, 0);
-my $a_pix_hbox = new Gtk::HBox;
-$a_pix_hbox->border_width(0);
-$a_pix_hbox->pack_start ($pixmap, 0, 0, 0);
-$a_main_hbox->pack_end ($a_pix_hbox, 0, 0, 0);
-
-my $aurora_frame = new Gtk::Frame _("Boot mode");
-$aurora_frame->add($a_main_hbox);
-$global_vbox->pack_start ($aurora_frame, 0, 0, 0);
-
-### X mode
-my $x_dedans = new Gtk::VBox(0, 0);
-$x_dedans->border_width (0);
-my $x_box = new Gtk::VBox(0, 0);
-$x_box->border_width (0);
-
-my $x_button = new Gtk::CheckButton _("Launch the X-Window system at start");
-$x_button->set_active($x_mode);
-$x_button->signal_connect(clicked => sub {
- $x_box->set_sensitive(!$x_mode);
- $x_mode = !$x_mode;
- });
-$x_dedans->pack_start ($x_button, 0, 0, 0);
-
-my $x_no_button = new Gtk::RadioButton _("No, I don't want autologin");
-$x_no_button->set_active(!$l_mode);
-$x_box->pack_start($x_no_button, 0, 0, 0);
-
-my $user_dedans = new Gtk::HBox(0, 10);
-$user_dedans->border_width (0);
-my $x_yes_button = new Gtk::RadioButton _("Yes, I want autologin with this (user, desktop)"), $x_no_button;
-$x_yes_button->set_active($l_mode);
-my $x_combo_vbox = new Gtk::VBox(0, 10);
my $user_combo = new Gtk::Combo;
$user_combo->set_popdown_strings(@usernames);
$user_combo->entry->set_text($auto_mode{autologin}) if ($auto_mode{autologin});
-
my $desktop_combo =new Gtk::Combo;
$desktop_combo->set_popdown_strings(get_wm());
$desktop_combo->entry->set_text($auto_mode{desktop}) if ($auto_mode{desktop});
-$x_combo_vbox->pack_start($user_combo, 0, 0, 0);
-$x_combo_vbox->pack_start($desktop_combo, 0, 0, 0);
-$user_dedans->pack_start($x_yes_button, 0, 0, 0);
-$user_dedans->pack_start($x_combo_vbox, 0, 0, 0);
-$x_box->pack_start ($user_dedans, 0, 0, 0);
-$x_box->set_sensitive($x_mode);
-$x_dedans->pack_start ($x_box, 0, 0, 0);
-my $x_main_frame = new Gtk::Frame _("System mode");
-$x_main_frame->add($x_dedans);
-$global_vbox->pack_start ($x_main_frame, 1, 1, 0);
-
-#deush : hability to choose the runlevel.
-my $runl_hbox = new Gtk::HBox;
-my $runl_button5 = new Gtk::RadioButton ("level 5");
-my $runl_button1 = new Gtk::RadioButton ("level 1", $runl_button5);
-$runl_hbox->add($runl_button1);
-my $runl_button2 = new Gtk::RadioButton ("level 2", $runl_button5);
-$runl_hbox->add($runl_button2);
-my $runl_button3 = new Gtk::RadioButton ("level 3", $runl_button5);
-$runl_hbox->add($runl_button3);
-my $runl_button4 = new Gtk::RadioButton ("level 4", $runl_button5);
-$runl_hbox->add($runl_button4);
-
-$runl_hbox->add($runl_button5);
-#$runl_hbox->set_sensitive($x_mode);
-my $runlevel_frame = new Gtk::Frame _("Default Runlevel");
-$runlevel_frame->add($runl_hbox);
-$global_vbox->pack_start ($runlevel_frame, 0, 0, 0);
-
-### final buttons
-my $bbox = new Gtk::HButtonBox;
-$global_vbox->pack_start($bbox, 0, 0, 0);
-$bbox->set_layout(-end);
-my $build_button = new Gtk::Button _("OK");
-$bbox->add($build_button);
-my $cancel_button = new Gtk::Button $::isEmbedded ? _("Cancel") : _("Quit");
-$bbox->add($cancel_button);
-my $fin_hbox = new Gtk::HBox( 0, 0 );
-$cancel_button->signal_connect(clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)});
-$build_button->signal_connect(clicked=>sub{updateInit();updateAutologin();updateAurora();runlevel_choice();$::isEmbedded ? kill(USR1,$::CCPID) : Gtk->exit(0)});
-
-### back to window
-$window->add($global_vbox);
-$window->show_all();
+my $a_c_button = new Gtk::RadioButton (_("NewStyle Categorizing Monitor"));
+my $a_h_button = new Gtk::RadioButton _("NewStyle Monitor"), $a_c_button;
+my $a_v_button = new Gtk::RadioButton _("Traditional Monitor"), $a_c_button;
+my $a_g_button = new Gtk::RadioButton _("Traditional Gtk+ Monitor"),$a_c_button ;
+my $a_button = new Gtk::CheckButton(_("Launch Aurora at boot time"));
+my $a_box = new Gtk::VBox(0, 0);
+my $x_box = new Gtk::VBox(0, 0);
+gtkadd($window,
+ gtkpack__ (my $global_vbox = new Gtk::VBox(0,0),
+ gtkadd (new Gtk::Frame (_("Lilo/grub mode")),
+ gtkpack__(new Gtk::HBox(0, 0),
+ _("You are currently using %s as Boot Manager.
+Click on Configure to launch the setup wizard.", $lilogrub),
+ gtksignal_connect(new Gtk::Button (_("Configure")), clicked => \&lilo_choice)
+ )
+ ),
+ # aurora
+ gtkadd (new Gtk::Frame (_("Boot mode")),
+ gtkpack__ (new Gtk::HBox(0,0),
+ gtkpack__ (new Gtk::VBox(0, 5),
+ gtksignal_connect ($a_button, clicked => sub {
+ if ($inmain) {
+ $a_box->set_sensitive(!$a_mode);
+ $a_mode = !$a_mode;
+ if ($a_mode) {
+ $pixmap->set($c_pixmap, $c_mask) if $a_c_button->get_active();
+ $pixmap->set($h_pixmap, $h_mask) if $a_h_button->get_active();
+ $pixmap->set($v_pixmap, $v_mask) if $a_v_button->get_active();
+ $pixmap->set($g_pixmap, $g_mask) if $a_g_button->get_active();
+ } else {
+ $pixmap->set($t_pixmap, $t_mask);
+ }
+ }
+ }),
+ gtkpack__ ( gtkset_sensitive ($a_box, $a_mode),
+ gtksignal_connect ($a_c_button,clicked => sub{$pixmap->set($c_pixmap, $c_mask)}),
+ gtksignal_connect ($a_h_button,clicked => sub{$pixmap->set($h_pixmap, $h_mask)}),
+ gtksignal_connect ($a_v_button,clicked => sub{$pixmap->set($v_pixmap, $v_mask)}),
+ gtksignal_connect ($a_g_button,clicked => sub{$pixmap->set($g_pixmap, $g_mask)})
+ )
+ ),
+ gtkpack__ (new Gtk::HBox(0,0), $pixmap)
+ )
+ ),
+ # X
+ gtkadd (new Gtk::Frame (_("System mode")),
+ gtkpack__ (new Gtk::VBox(0, 5),
+ gtksignal_connect(gtkset_active(new Gtk::CheckButton (_("Launch the X-Window system at start")), $x_mode ), clicked => sub {
+ $x_box->set_sensitive(!$x_mode);
+ $x_mode = !$x_mode;
+ }),
+ gtkpack__ (gtkset_sensitive ($x_box, $x_mode),
+ gtkset_active($x_no_button = new Gtk::RadioButton (_("No, I don't want autologin")), !$l_mode),
+ gtkpack__ (new Gtk::HBox(0, 10),
+ gtkset_active($x_yes_button = new Gtk::RadioButton((_("Yes, I want autologin with this (user, desktop)")), $x_no_button), $l_mode),
+ gtkpack__ (new Gtk::VBox(0, 10),
+ $user_combo,
+ $desktop_combo
+ )
+ )
+ )
+ )
+ ),
+ gtkadd (gtkset_layout(new Gtk::HButtonBox,-end),
+ gtksignal_connect(new Gtk::Button (_("OK")), clicked=>sub{updateInit();updateAutologin();updateAurora();$::isEmbedded ? kill(USR1,$::CCPID) : Gtk->exit(0)}),
+ gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)})
+ )
+ )
+ );
-$a_box->set_sensitive($a_mode); # box grisée == false == "0"
$a_button->set_active($a_mode); # up == false == "0"
if ($a_mode) {
my $a = readlink "/etc/aurora/Monitor";
@@ -257,6 +169,7 @@ if ($a_mode) {
$pixmap->set($t_pixmap, $t_mask);
}
+$window->show_all();
Gtk->main_iteration while Gtk->events_pending;
$::isEmbedded and kill USR2, $::CCPID;
$inmain=1;
@@ -274,9 +187,7 @@ sub parse_etc_passwd
do {
@user_info = getpwent();
($uname, $uid) = @user_info[0,2];
- if ($uid > 500) {
- push (@usernames, $uname);
- }
+ push (@usernames, $uname) if ($uid > 500);
} while (@user_info);
}
@@ -310,7 +221,6 @@ sub get_main_menu {
sub isXlaunched
{
my $line;
-
open INITTAB, "/etc/inittab" or die _("can not open /etc/inittab for reading: $!");
while (<INITTAB>) {
if (/id:([1-6]):initdefault:/) { $line = $_; last; }
@@ -337,19 +247,19 @@ sub updateAurora
if ($a_mode) {
if ($a_c_button->get_active()) {
symlinkf("/lib/aurora/Monitors/NewStyle-Categorizing-WsLib", "/etc/aurora/Monitor");
- $in->do_pkgs->install(q(Aurora-Monitor-NewStyle-Categorizing-WsLib)) if !(-e "/lib/aurora/Monitors/NewStyle-Categorizing-WsLib");
+ $in->standalone::pkgs_install(q(Aurora-Monitor-NewStyle-Categorizing-WsLib)) if !(-e "/lib/aurora/Monitors/NewStyle-Categorizing-WsLib");
}
if ($a_h_button->get_active()) {
symlinkf("/lib/aurora/Monitors/NewStyle-WsLib", "/etc/aurora/Monitor");
- $in->do_pkgs->install(q(Aurora-Monitor-NewStyle-WsLib)) if !(-e "/lib/aurora/Monitors/NewStyle-WsLib");
+ $in->standalone::pkgs_install(q(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->do_pkgs->install(q(Aurora-Monitor-Traditional-WsLib)) if !(-e "/lib/aurora/Monitors/Traditional-WsLib");
+ $in->standalone::pkgs_install(q(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->do_pkgs->install(q(Aurora-Monitor-Traditional-Gtk+)) if !(-e "/lib/aurora/Monitors/Traditional-Gtk+");
+ $in->standalone::pkgs_install(q(Aurora-Monitor-Traditional-Gtk+)) if !(-e "/lib/aurora/Monitors/Traditional-Gtk+");
}
} else {
unlink "/etc/aurora/Monitor";
@@ -392,7 +302,7 @@ sub updateAutologin
my ($usern,$deskt)=($user_combo->entry->get_text(), $desktop_combo->entry->get_text());
if ($x_yes_button->get_active()) {
- $in->do_pkgs->install(q(autologin)) if $x_mode;
+ $in->standalone::pkgs_install(q(autologin)) if $x_mode;
set_autologin('',$usern,$deskt);
} else {
set_autologin('',undef) if ($x_no_button->get_active());
@@ -437,26 +347,3 @@ sub lilo_choice
goto ask;
}
}
-
-#---------------------------------------------------------------
-# Choose your runlevel: from 1 to 5
-#---------------------------------------------------------------
-sub runlevel_choice
-{
- if ($runl_button1->get_active()) {
- any::runlevel('',1);
- }
- if ($runl_button2->get_active()) {
- any::runlevel('',2);
- }
- if ($runl_button3->get_active()) {
- any::runlevel('',3);
- }
- if ($runl_button4->get_active()) {
- any::runlevel('',4);
- }
- if ($runl_button5->get_active()) {
- any::runlevel('',5);
- }
-}
-