This commit was manufactured by cvs2svn to create tag 'V1_1_8_11mdk'.V1_1_8_11mdk

1 files changed, 0 insertions, 321 deletions

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
deleted file mode 100644
index 8747db249..000000000
--- a/perl-install/bootlook.pm
+++ /dev/null
@@ -1,321 +0,0 @@
-#!/usr/bin/perl -w
-
-# Control-center
-
-# Copyright (C) 2001 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 MDK::Common;
-use Gtk;
-use Config;
-init Gtk;
-use POSIX;
-use lib qw(/usr/lib/libDrakX);
-use interactive;
-use standalone;
-use any;
-use bootloader;
-use fs;
-use my_gtk qw(:helpers :wrappers :ask);
-
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~/--embedded (\S*) (\S*)/;
-if ($::isEmbedded) {
-  print "EMBED\n";
-  print "XID : $::XID\n";
-  print "CCPID :  $::CCPID\n";
-}
-
-my $in = 'interactive'->vnew('su', 'default');
-local $_ = join '', @ARGV;
-
-/-h/ and die _("no help implemented yet.\n");
-/-version/ and die 'version: $Id$'."\n";
-
-my @winm;
-my @usernames;
-parse_etc_passwd();
-
-my $x_mode = isXlaunched();
-my $a_mode = (-e "/etc/aurora/Monitor") ? 1 : 0;
-my $l_mode = isAutologin();
-my %auto_mode = get_autologin("");
-my $inmain = 0;
-my $lilogrub = chomp_(`detectloader -q`);
-
-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;
-
-# drakX mode
-my ($t_pixmap, $t_mask) = gtkcreate_png("tradi.png");
-my ($h_pixmap, $h_mask) = gtkcreate_png("hori.png");
-my ($v_pixmap, $v_mask) = gtkcreate_png("verti.png");
-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);
-
-### menus definition
-# the menus are not shown
-# but they provides shiny shortcut like C-q
-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 $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});
-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);
-my $disp_mode = arch() =~ /ppc/ ? _("Yaboot mode") : _("Lilo/grub mode");
-gtkadd($window,
-       gtkpack__ (my $global_vbox = new Gtk::VBox(0,0),
-		  gtkadd (new Gtk::Frame ("$disp_mode"),
-#			  gtkpack__(new Gtk::VBox(0,0),
-				    (gtkpack_(gtkset_border_width(new Gtk::HBox(0, 0),5),
-					      1,_("You are currently using %s as your boot manager.
-Click on Configure to launch the setup wizard.", $lilogrub),
-					      0,gtksignal_connect(new Gtk::Button (_("Configure")), clicked => $::lilo_choice),
-					     )),
-#				    "" #we need some place under the button -- replaced by gtkset_border_width( for the moment
-#				   )
-				     
-			 ),
-		  # 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 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($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 (_("Cancel")), clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->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();
-Gtk->main_iteration while Gtk->events_pending;
-$::isEmbedded and kill USR2, $::CCPID;
-$inmain=1;
-Gtk->main;
-Gtk->exit(0);
-
-#-------------------------------------------------------------
-# get user names to put in combo  
-#-------------------------------------------------------------
-
-sub parse_etc_passwd
-{
-    my ($uname, $uid);
-    setpwent();
-    do {
-	@user_info = getpwent();
-	($uname, $uid) = @user_info[0,2];
-	push (@usernames, $uname) if ($uid > 500) and !($uname eq "nobody");
-    } while (@user_info);
-}
-
-sub get_wm
-{
-    @winm = (split (' ', `/usr/sbin/chksession -l`));
-}
-
-#-------------------------------------------------------------
-# menu callback functions
-#-------------------------------------------------------------
-
-sub print_hello {
-  print( "mcdtg !\n" );
-}
-
-sub get_main_menu {
-  my ( $window ) = @_;
-
-  my $accel_group = new Gtk::AccelGroup();
-  my $item_factory = new Gtk::ItemFactory( 'Gtk::MenuBar', '<main>', $accel_group );
-  $item_factory->create_items( @menu_items );
-  $window->add_accel_group( $accel_group );
-  return ( $item_factory->get_widget( '<main>' ) );
-}
-
-#-------------------------------------------------------------
-# launch X functions
-#-------------------------------------------------------------
-
-sub isXlaunched {
-    my $line;
-    open INITTAB, "/etc/inittab" or die _("can not open /etc/inittab for reading: %s", $!);
-    while (<INITTAB>) {
-	if (/id:([1-6]):initdefault:/) { $line = $_; last; }
-    }
-    close INITTAB;
-    $line =~ s/id:([1-6]):initdefault:/$1/;
-    return ($line-3);
-}
-
-sub updateInit {
-    my $runlevel = ($x_mode) ? 5 : 3;
-    substInFile { s/^id:\d:initdefault:\s*$/id:$runlevel:initdefault:\n/ } "/etc/inittab";
-}
-
-#-------------------------------------------------------------
-# 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 isAutologin {
-    my $line;
-    open AUTOLOGIN, "/etc/sysconfig/autologin";
-    while (<AUTOLOGIN>) {
-	if (/AUTOLOGIN=(yes|no)/) { $line = $_; last; }
-    }
-    close AUTOLOGIN;
-    $line =~ s/AUTOLOGIN=(yes|no)/$1/;
-    chomp ($line);
-    $line =  ($line eq "yes");
-    my %au = get_autologin('');
-    return ($line && defined $au{autologin});
-}
-
-sub get_autologin {
-    my ($prefix) = @_;
-    my %o;
-    my %l = getVarsFromSh("$prefix/etc/sysconfig/autologin");
-
-    $o{autologin} = $l{USER};
-    %l = getVarsFromSh("$prefix/etc/sysconfig/desktop");
-    $o{desktop} = $l{DESKTOP};
-    %o;
-}
-
-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;
-	set_autologin('',$usern,$deskt);
-    } else {
-	set_autologin('',undef) if ($x_no_button->get_active());
-    }
-}
- 
-sub set_autologin {
-  my ($prefix, $user, $desktop) = @_;
-  output "$prefix/etc/sysconfig/desktop", uc($desktop), "\n" if $user;
-  setVarsInSh("$prefix/etc/sysconfig/autologin",
-	      { USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx" });
-  chmod 0600, "$prefix/etc/sysconfig/autologin";
-#  log::l("cat $prefix/etc/sysconfig/autologin: ", cat_("$prefix/etc/sysconfig/autologin"));
-}
-
-