summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm408
1 files changed, 0 insertions, 408 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
deleted file mode 100644
index 4292a2b87..000000000
--- a/perl-install/bootlook.pm
+++ /dev/null
@@ -1,408 +0,0 @@
-package bootlook;
-
-# Control-center
-
-# Copyright (C) 2001-2002 MandrakeSoft
-# Yves Duret <yduret at mandrakesoft.com>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
-
-use common;
-use Config;
-use POSIX;
-use interactive;
-use standalone;
-use Xconfig::various;
-use any;
-use log;
-use bootloader;
-use fs;
-use ugtk2 qw(:helpers :wrappers :create);
-
-my $in = 'interactive'->vnew('su', 'default');
-
-my @winm;
-my @usernames = list_users();
-
-my $no_bootsplash;
-my $x_mode = Xconfig::various::runlevel() == 5;
-my $a_mode = -e "/etc/aurora/Monitor" ? 1 : 0;
-my $auto_mode = any::get_autologin();
-my $inmain = 0;
-my $lilogrub = chomp_(`detectloader -q`);
-
-my $window = $::isEmbedded ? new Gtk2::Plug($::XID) : new Gtk2::Window("toplevel");
-$window->signal_connect(delete_event => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk2->exit(0) });
-$window->set_title(N("Boot Style Configuration"));
-$window->border_width(2);
-#$window->realize;
-
-# drakX mode
-#my ($t_pixmap, $t_mask) = gtkcreate_img("tradi.png");
-#my ($h_pixmap, $h_mask) = gtkcreate_img("hori.png");
-#my ($v_pixmap, $v_mask) = gtkcreate_img("verti.png");
-#my ($g_pixmap, $g_mask) = gtkcreate_img("gmon.png");
-#my ($c_pixmap, $c_mask) = gtkcreate_img("categ.png");
-
-# a pixmap widget to contain the pixmap
-#my $pixmap = new Gtk2::Pixmap($h_pixmap, $h_mask);
-
-### menus definition
-# the menus are not shown
-# but they provides shiny shortcut like C-q
-my @menu_items = ({ path => N("/_File"), type => '<Branch>' },
- { path => N("/File/_Quit"), accelerator => N("<control>Q"), callback => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk2->exit(0) } },
- );
-my $menubar = create_factory_menu($window, @menu_items);
-######### menus end
-
-my $user_combo = new Gtk2::Combo;
-$user_combo->set_popdown_strings(@usernames);
-$user_combo->entry->set_text($auto_mode->{autologin}) if $auto_mode->{autologin};
-my $desktop_combo = new Gtk2::Combo;
-$desktop_combo->set_popdown_strings(get_wm());
-$desktop_combo->entry->set_text($auto_mode->{desktop}) if $auto_mode->{desktop};
-my $a_c_button = new Gtk2::RadioButton(N("NewStyle Categorizing Monitor"));
-my $a_h_button = new Gtk2::RadioButton(N("NewStyle Monitor"), $a_c_button);
-my $a_v_button = new Gtk2::RadioButton(N("Traditional Monitor"), $a_c_button);
-my $a_g_button = new Gtk2::RadioButton(N("Traditional Gtk+ Monitor"),$a_c_button);
-my $a_button = new Gtk2::CheckButton(N("Launch Aurora at boot time"));
-my $a_box = new Gtk2::VBox(0, 0);
-my $x_box = new Gtk2::VBox(0, 0);
-my $disp_mode = arch() =~ /ppc/ ? N("Yaboot mode") : N("Lilo/grub mode");
-
-my %themes = ('path' => '/usr/share/bootsplash/themes/',
- 'default' => 'Mandrake',
- 'def_thmb' => '/usr/share/libDrakX/pixmaps/nosplash_thumb.png',
- 'lilo' => {'file' => '/lilo/message',
- 'thumb' => '/lilo/thumb.png' },
- 'boot' => {'path' => '/images/',
- #'thumb'=>'/images/thumb.png',
- },
- );
-my ($cur_res) = cat_('/etc/lilo.conf') =~ /vga=(.*)/;
-#- verify that current resolution is ok
-if (member( $cur_res, qw( 785 788 791 794))) {
- ($cur_res) = $bootloader::vga_modes{$cur_res} =~ /^([0-9x]+).*?$/;
-} else {
- $no_bootsplash = 1; #- we can't select any theme we're not in Framebuffer mode :-/
-}
-
-#- and check that lilo is the correct loader
-$no_bootsplash ||= chomp_(`detectloader -q`) ne 'LILO';
-my @thms;
-my @lilo_thms = if_(!$themes{default}, qw(default));
-my @boot_thms = if_(!$themes{default}, qw(default));
-chdir($themes{path}); #- we must change directory for correct @thms assignement
-foreach (all('.')) {
- if (-d $themes{path} . $_ && m/^[^.]/) {
- push @thms, $_;
- -f $themes{path} . $_ . $themes{lilo}{file} and push @lilo_thms, $_;
- -f $themes{path} . $_ . $themes{boot}{path} . "bootsplash-$cur_res.jpg" and push @boot_thms, $_;
- }
-# $_ eq $themes{'defaut'} and $default = $themes{'defaut'};
-}
-my %combo = ('thms' => '', 'lilo' => '', 'boot' => '');
-foreach (keys(%combo)) {
- $combo{$_} = new Gtk2::Combo;
- $combo{$_}->set_value_in_list(1, 0);
-}
-
-$combo{thms}->set_popdown_strings(@thms);
-$combo{lilo}->set_popdown_strings(@lilo_thms);
-$combo{boot}->set_popdown_strings(@boot_thms) if !$no_bootsplash;
-
-my ($lilo_pixbuf, $boot_pixmap);
-my $lilo_pic = gtkcreate_img($themes{def_thmb});
-
-my $boot_pixbuf;
-my $boot_pic = gtkcreate_img($themes{def_thmb});
-
-my $thm_button = new Gtk2::Button(N("Install themes"));
-my $logo_thm = new Gtk2::CheckButton(N("Display theme\nunder console"));
-my $B_create = new Gtk2::Button(N("Create new theme"));
-my $keep_logo = 1;
-$logo_thm->set_active(1);
-$logo_thm->signal_connect(clicked => sub { invbool(\$keep_logo) });
-$B_create->signal_connect(clicked => sub {
- $::isEmbedded ? (kill('USR1', $::CCPID) and system('/usr/sbin/draksplash ')) : system('/usr/sbin/draksplash ');
- });
-#- ******** action to take on changing combos values
-
-$combo{thms}->entry->signal_connect(changed => sub {
- my $thm_txt = $combo{thms}->entry->get_text();
- $combo{lilo}->entry->set_text(member($thm_txt, @lilo_thms) ? $thm_txt : $themes{default} || 'default');
- $combo{boot}->entry->set_text(member($thm_txt, @boot_thms) ? $thm_txt : $themes{default} || 'default');
-
-});
-
-$combo{lilo}->entry->signal_connect(changed => sub {
- my $new_file = $themes{path} . $combo{lilo}->entry->get_text() . $themes{lilo}{thumb};
- undef($lilo_pixbuf);
- $lilo_pixbuf = gtkcreate_pixbuf(-r $new_file ? $new_file : $themes{def_thmb});
- $lilo_pixbuf = $lilo_pixbuf->scale_simple(155, 116, 'nearest');
- $lilo_pic->set_from_pixbuf($lilo_pixbuf);
-});
-
-$no_bootsplash == 0
- and $combo{boot}->entry->signal_connect( changed => sub {
- my $img_file = $themes{path}.$combo{boot}->entry->get_text().$themes{boot}{path}."bootsplash-$cur_res.jpg";
- undef($boot_pixmap);
- $boot_pixmap = gtkcreate_pixbuf( $img_file);
- $boot_pixmap = $boot_pixmap->scale_simple(155,116,0);
- $boot_pic->set($boot_pixmap->render_pixmap_and_mask(0), '');
-});
-
-$combo{thms}->entry->set_text($themes{default});
-
-$thm_button->signal_connect('clicked',
-
-sub {
- my $error = 0;
- my $boot_conf_file = '/etc/sysconfig/bootsplash';
- my $lilomsg = '/boot/message-graphic';
- #lilo installation
- if (-f $themes{path}.$combo{lilo}->entry->get_text() . $themes{lilo}{file}) {
- use MDK::Common::File;
- log::explanations(N("Backup %s to %s.old",$lilomsg,$lilomsg));
- cp_af($lilomsg, "/boot/message-graphic.old");
- #can't use this anymore or $in->ask_warn(N("Error"), N("unable to backup lilo message"));
- log::explanations(N("Copy %s to %s", $themes{path} . $combo{lilo}->entry->get_text() . $themes{lilo}{file},$lilomsg));
- cp_af($themes{path} . $combo{lilo}->entry->get_text() . $themes{lilo}{file}, $lilomsg);
- #can't use this anymore or $in->ask_warn(N("Error"), N("can't change lilo message"));
- } else {
- $error = 1;
- $in->ask_warn(N("Error"), N("Lilo message not found"));
- }
- #bootsplash install
- if (-f $themes{path} . $combo{boot}->entry->get_text() . $themes{boot}{path} . "bootsplash-$cur_res.jpg") {
- my $bootsplash_cont = "# -*- Mode: shell-script -*-
-# Specify here if you want add the splash logo to initrd when
-# generating an initrd. You can specify :
-#
-# SPLASH=no to don't have a splash screen
-#
-# SPLASH=auto to make autodetect the splash screen
-#
-# SPLASH=INT When Integer could be 800x600 1024x768 1280x1024
-#
-SPLASH=$cur_res
-# Choose the themes. The should be based in
-# /usr/share/bootsplash/themes/
-THEME=" . $combo{boot}->entry->get_text() . "
-# Say yes here if you want to leave the logo on the console.
-# Three options :
-#
-# LOGO_CONSOLE=no don't display logo under console.
-#
-# LOGO_CONSOLE=yes display logo under console.
-#
-# LOGO_CONSOLE=theme leave the theme to decide.
-#
-LOGO_CONSOLE=" . ($keep_logo ? 'yes' : 'no') . "\n";
- if (-f $boot_conf_file) {
- eval { output($boot_conf_file, $bootsplash_cont) };
- $@ and $in->ask_warn(N("Error"), N("Can't write /etc/sysconfig/bootsplash.")) or log::explanations(N("Write %s",$boot_conf_file));
- } else {
- $in->ask_warn(N("Error"), N("Can't write /etc/sysconfig/bootsplash\nFile not found."));
- $error = 1;
- }
- } else {
- $in->ask_warn("Error", "BootSplash screen not found");
- }
- #here is mkinitrd time
- if (!$error) {
- foreach (map { if_(m|^initrd-(.*)\.img|, $1) } all('/boot')) {
- if (system("mkinitrd -f /boot/initrd-$_.img $_")) {
- $in->ask_warn(N("Error"),
- N("Can't launch mkinitrd -f /boot/initrd-%s.img %s.", $_,$_));
- $error = 1;
- } else {
- log::explanations(N("Make initrd 'mkinitrd -f /boot/initrd-%s.img %s'.", $_,$_));
- }
- }
- }
- if (system('lilo')) {
- $in->ask_warn(N("Error"),
-N("Can't relaunch LiLo!
-Launch \"lilo\" as root in command line to complete LiLo theme installation."));
- $error = 1;
- } else {
- log::explanations(N("Relaunch 'lilo'"));
- }
- $in->ask_warn($error ? N("Error") : N("Notice"),
- $error ? N("Theme installation failed!") : N("LiLo and Bootsplash themes installation successfull"));
-});
-
-gtkadd($window,
- gtkpack__(my $global_vbox = new Gtk2::VBox(0,0),
- gtkadd(new Gtk2::Frame($disp_mode),
-# gtkpack__(new Gtk2::VBox(0,0),
- (gtkpack_(gtkset_border_width(new Gtk2::HBox(0, 0),5),
- 1, N("You are currently using %s as your boot manager.
-Click on Configure to launch the setup wizard.", $lilogrub),
- 0, gtksignal_connect(new Gtk2::Button(N("Configure")), clicked => $::lilo_choice),
- )),
-# "" #we need some place under the button -- replaced by gtkset_border_width( for the moment
-# )
-
- ),
- #Splash Selector
- gtkadd(my $thm_frame = new Gtk2::Frame( N("Splash selection")),
- gtkpack__(gtkset_border_width(new Gtk2::HBox(0,5),5),
- gtkpack__(new Gtk2::VBox(0,5),
- N("Themes"),
- $combo{thms},
- N("\nSelect the theme for\nlilo and bootsplash,\nyou can choose\nthem separately"),
- $logo_thm),
- gtkpack__(new Gtk2::VBox(0,5),
- N("Lilo screen"),
- $combo{lilo},
- $lilo_pic,
- $B_create),
- gtkpack__(new Gtk2::VBox(0,5),
- N("Bootsplash"),
- $combo{boot},
- $boot_pic,
- $thm_button))
- ),
-
- # aurora
-# gtkadd (new Gtk2::Frame (N("Boot mode")),
-# gtkpack__ (new Gtk2::HBox(0,0),
-# gtkpack__ (new Gtk2::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 Gtk2::HBox(0,0), $pixmap)
-# )
-# ),
- # X
- gtkadd(new Gtk2::Frame(N("System mode")),
- gtkpack__(new Gtk2::VBox(0, 5),
- gtksignal_connect(gtkset_active(new Gtk2::CheckButton(N("Launch the graphical environment when your system starts")), $x_mode), clicked => sub {
- $x_box->set_sensitive(!$x_mode);
- $x_mode = !$x_mode;
- }),
- gtkpack__(gtkset_sensitive($x_box, $x_mode),
- gtkset_active(my $x_no_button = new Gtk2::RadioButton(N("No, I don't want autologin")), !$auto_mode->{autologin}),
- gtkpack__(new Gtk2::HBox(0, 10),
- gtkset_active(my $x_yes_button = new Gtk2::RadioButton((N("Yes, I want autologin with this (user, desktop)")), $x_no_button), $auto_mode->{autologin}),
- gtkpack__(new Gtk2::VBox(0, 10),
- $user_combo,
- $desktop_combo
- )
- )
- )
- )
- ),
- gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'end'),
- gtksignal_connect(new Gtk2::Button(N("OK")), clicked => sub { Xconfig::various::runlevel($x_mode ? 5 : 3); updateAutologin(); updateAurora(); $::isEmbedded ? kill('USR1',$::CCPID) : Gtk2->exit(0) }),
- gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk2->exit(0) })
- )
- )
- );
-
-#$a_button->set_active($a_mode); # up == false == "0"
-#if ($a_mode) {
-# my $a = readlink "/etc/aurora/Monitor";
-# $a =~ s#/lib/aurora/Monitors/##;
-# if ($a eq "NewStyle-Categorizing-WsLib") { $a_c_button->set_active(1); $pixmap->set($c_pixmap, $c_mask) }
-# if ($a eq "NewStyle-WsLib") { $a_h_button->set_active(1); $pixmap->set($h_pixmap, $h_mask) }
-# if ($a eq "Traditional-WsLib") { $a_v_button->set_active(1); $pixmap->set($v_pixmap, $v_mask) }
-# if ($a eq "Traditional-Gtk+") { $a_g_button->set_active(1); $pixmap->set($g_pixmap, $g_mask) }
-#} else {
-## $pixmap->set($t_pixmap, $t_mask);
-#}
-
-$window->show_all();
-$no_bootsplash and $thm_frame->hide();
-gtkflush();
-$::isEmbedded and kill 'USR2', $::CCPID;
-$inmain = 1;
-Gtk2->main;
-Gtk2->exit(0);
-
-#-------------------------------------------------------------
-# get user names to put in combo
-#-------------------------------------------------------------
-
-
-sub get_wm {
- @winm = split(' ', `/usr/sbin/chksession -l`);
-}
-
-#-------------------------------------------------------------
-# aurora functions
-#-------------------------------------------------------------
-
-
-
-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");
- }
- 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");
- }
- 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");
- }
- 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+");
- }
- } else {
- unlink "/etc/aurora/Monitor";
- }
-
-}
-
-#-------------------------------------------------------------
-# launch autologin functions
-#-------------------------------------------------------------
-
-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('autologin') if $x_mode;
- any::set_autologin($usern, $deskt);
- } else {
- any::set_autologin(undef) if $x_no_button->get_active();
- }
-}
generated by cgit v1.2.1 (git 2.21.0) at 2025-10-25 05:16:40 +0000