diff options
author | Pablo Saratxaga <pablo@mandriva.com> | 2001-03-31 14:21:10 +0000 |
---|---|---|
committer | Pablo Saratxaga <pablo@mandriva.com> | 2001-03-31 14:21:10 +0000 |
commit | bfb09e371ed27cb0ea3979ef989129d369a205d0 (patch) | |
tree | 9f44e567f4c3107f9a6e9676c59b25add7f37b03 /perl-install/bootlook.pm | |
parent | ea592dba10cebc36c270038a6efd338973c9de4e (diff) | |
download | drakx-bfb09e371ed27cb0ea3979ef989129d369a205d0.tar drakx-bfb09e371ed27cb0ea3979ef989129d369a205d0.tar.gz drakx-bfb09e371ed27cb0ea3979ef989129d369a205d0.tar.bz2 drakx-bfb09e371ed27cb0ea3979ef989129d369a205d0.tar.xz drakx-bfb09e371ed27cb0ea3979ef989129d369a205d0.zip |
Updated po files and help messages (patch from Pixel)
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r-- | perl-install/bootlook.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 3a7aeb2d5..51e8b3aab 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -41,8 +41,14 @@ import Locale::GetText I_; $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~/--embedded (\S*) (\S*)/; if ($::isEmbedded) { print "EMBED\n"; +<<<<<<< bootlook.pm + print "XID: $::XID\n"; + print "CCPID: $::CCPID\n"; +# $path_to_pixmaps = "./pixmaps/"; +======= print "XID : $::XID\n"; print "CCPID : $::CCPID\n"; +>>>>>>> 1.18 } my $in = interactive->vnew('su'); @@ -176,7 +182,7 @@ $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; +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; @@ -283,7 +289,7 @@ sub isXlaunched { my $line; - open INITTAB, "/etc/inittab" or die _("can not open /etc/inittab for reading : $!"); + open INITTAB, "/etc/inittab" or die _("can not open /etc/inittab for reading: $!"); while (<INITTAB>) { if (/id:([1-6]):initdefault:/) { $line = $_; last; } } @@ -345,7 +351,7 @@ sub isAutologin { my $line; - open AUTOLOGIN, "/etc/sysconfig/autologin" or die _("can not open /etc/sysconfig/autologin for reading : $!"); + open AUTOLOGIN, "/etc/sysconfig/autologin" or die _("can not open /etc/sysconfig/autologin for reading: $!"); while (<AUTOLOGIN>) { if (/AUTOLOGIN=(yes|no)/) { $line = $_; last; } } |