summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2001-08-28 13:35:47 +0000
committerDaouda Lo <daouda@mandriva.com>2001-08-28 13:35:47 +0000
commitee31ecd75df417c84f13234ac15223eb042f67a2 (patch)
treee7f6f93c12bc85671dc5532dc6dfa8a24d845230
parent4114dd7fcce48881e34c44b36d2f1689000c79a4 (diff)
downloadmgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.tar
mgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.tar.gz
mgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.tar.bz2
mgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.tar.xz
mgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.zip
suid root
-rwxr-xr-xmdkonline21
1 files changed, 19 insertions, 2 deletions
diff --git a/mdkonline b/mdkonline
index d22eed2c..0c0cc346 100755
--- a/mdkonline
+++ b/mdkonline
@@ -29,6 +29,9 @@ setlocale (LC_ALL, "");
Locale::GetText::textdomain ("MdkOnline");
import Locale::GetText I_;
+use lib qw(/usr/lib/libDrakX);
+use interactive;
+my $in = 'interactive'->vnew('su', 'default');
sub _ {
my $s = shift @_; my $t = I_($s);
@@ -117,7 +120,11 @@ sub step_wizard {
write_on_pixmaps($vbox_priv,"$x/privacy.png",_("Mandrake Privacy"),540,100);
get_on_privacy($vbox_priv);
$notebook_global->append_page($vbox_priv,new Gtk::Label("club"));
-# my $vbox_ident= new Gtk::Vbox(0,0);
+ my $vbox_ident= new Gtk::VBox(0,0);
+ map {
+ pack_box_identity($vbox_ident,$_->[0],$_->[1],$_->[2]);
+ } ([_("Login:"),$login_user], [_("Password"),$passwd_user]);
+ $notebook_global->append_page($vbox_ident,new Gtk::Label("login"));
}
@@ -127,7 +134,7 @@ sub confirm_quit {
my $bbox1 = new Gtk::HButtonBox;
$window_about->action_area->pack_start($bbox1,0,0,0);
-
+
my $button_cancel = new Gtk::Button(_("Cancel"));
$button_cancel->signal_connect_object("clicked",$window_about => 'destroy');
$bbox1->add($button_cancel);
@@ -146,6 +153,16 @@ sub confirm_quit {
$window_about->set_modal(1);
}
+sub pack_box_identity {
+ my ($vbox,$label,$entry)=@_;
+ my $table = new Gtk::Table( 1, 2, $true );
+ my $Label_wg=new Gtk::Label($label);
+ $Label_wg->set_justify(left);
+ $table->attach_defaults( $Label_wg, 0, 1, 0, 1);
+ $table->attach_defaults( $entry, 1, 2, 0, 1 );
+ $vbox->pack_start($table,$true,$true,1);
+}
+
sub load_text {
my ($text,$file)=@_;
open( FILE, $file );