summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-10-25 02:18:24 +0000
committerdamien <damien@mandriva.com>2001-10-25 02:18:24 +0000
commit4a42d2b779dcf8fe001c3f7d9daa90cc228f2676 (patch)
tree670bfbabbbcd4fbab3745a8b48d6b926fcd7c582 /perl-install
parent64c33263f2f13793befe537fb15b2e995e534743 (diff)
downloaddrakx-4a42d2b779dcf8fe001c3f7d9daa90cc228f2676.tar
drakx-4a42d2b779dcf8fe001c3f7d9daa90cc228f2676.tar.gz
drakx-4a42d2b779dcf8fe001c3f7d9daa90cc228f2676.tar.bz2
drakx-4a42d2b779dcf8fe001c3f7d9daa90cc228f2676.tar.xz
drakx-4a42d2b779dcf8fe001c3f7d9daa90cc228f2676.zip
The new drakautoinst is coming. P|-|34R
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakautoinst241
1 files changed, 237 insertions, 4 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 11bbbd150..56045e211 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -33,7 +33,7 @@ local $_ = join '', @ARGV;
/-h/ and die "usage: drakautoinst [--version]\n";
/-version/ and die 'version: $Id$ '."\n";
$::direct = /-direct/;
-
+$::direct = 1; #DEBUG
my $in = 'interactive'->vnew('su', 'default');
@@ -70,7 +70,7 @@ for (my $f = $st->{first}; $f; $f = $st->{$f}{next}) {
$in->ask_from(_("Automatic Steps Configuration"),
_("Please choose for each step whether it will replay like your install, or it will be manual"),
\@choices
- ) or quit_global($in, 0);
+ );# or quit_global($in, 0);
${$_->[1]} eq _('manual') and push @manual_steps, $_->[0] foreach @all_steps;
@@ -84,9 +84,139 @@ $in->ask_okcancel('', _("Insert a blank floppy in drive %s", $floppy), 1) or qui
common::sync();
}
fs::mount($dev, $mountdir, 'vfat', 0);
-
my $cfgfile = "$mountdir/auto_inst.cfg";
eval(cat_($cfgfile));
+my $o_old = $o;
+if (ref($in) =~ /gtk/) {
+ require Gtk;
+ init Gtk;
+ require my_gtk;
+ import my_gtk qw(:helpers :wrappers);
+
+ my %tree;
+ $struct_gui{$_} = 'General' foreach qw(lang isUpgrade autoExitInstall timezone default_packages mkbootdisk);
+ $struct_gui{$_} = 'Security' foreach qw(crypto security);
+ $struct_gui{$_} = 'Harddrive' foreach qw(partitions manualFstab useSupermount partitioning);
+ $struct_gui{$_} = 'Network' foreach qw(intf netc netcnx);
+ $struct_gui{$_} = 'Users' foreach qw(superuser users authentication);
+ $struct_gui{$_} = 'Hardware' foreach qw(keyboard mouse X printer wacom nomouseprobe);
+
+ %pixmap = ( lang => 'language',
+ isUpgrade => '',
+ security => 'security',
+ autoExitInstall => '',
+ timezone => '',
+ default_packages => '',
+ partitions => 'harddrive',
+ manualFstab => 'partition',
+ useSupermount => '',
+ partitioning => 'partition',
+ intf => 'network',
+ netc => 'network',
+ netcnx => 'network',
+ superuser => 'user',
+ users => 'user',
+ authentication => '',
+ keyboard => 'keyboard',
+ mouse => 'mouse',
+ X => 'X',
+ printer => 'printer',
+ wacom => '',
+ );
+
+ member($_, keys %struct_gui) and push @{$tree{$struct_gui{$_}}}, [$_ , $pixmap{$_}, h2widget($o->{$_}, "\$o->\{$_\}") ] foreach (keys %$o);
+
+
+ my $W = my_gtk->new(_('$o edition'));
+ my @box_to_hide;
+ my $nb_pages=0;
+ my $notebook = new Gtk::Notebook;
+ $notebook->set_show_border(0);
+ $notebook->set_show_tabs(0);
+ $notebook->append_page(gtkpack_(gtkset_border_width(new Gtk::VBox(0,0), 10),
+ 1, new Gtk::VBox(0,0),
+ 0, gtkpack_(new Gtk::HBox(0,0),
+ 1, new Gtk::VBox(0,0),
+ 0, gtkadd(gtkset_shadow_type(new Gtk::Frame, 'etched-in'),
+ new Gtk::Pixmap(gtkcreate_png('mdk_logo'))),
+ 1, new Gtk::VBox(0,0),
+ ),
+ 0, _("\nWelcome.\n\nThe parameters of the auto-install are available in the sections on the left"),
+ 1, new Gtk::VBox(0,0),
+ ), undef);
+ $notebook->show_all;
+ $notebook->set_page(0);
+
+ gtkadd($W->{window},
+ gtkpack_(new Gtk::VBox(0,5),
+ 1, gtkpack_(new Gtk::HBox(0,0),
+ 0, gtkadd(gtkset_usize(gtkset_shadow_type(new Gtk::Frame, 'in'), 130, 470),
+ gtkpack_(new Gtk::VBox(0,0),
+ map {
+ my $box = new Gtk::VBox(0,0);
+ push @box_to_hide, $box;
+ $box->{vis} = 0;
+ my @button_to_hide;
+ 0, gtksignal_connect(new Gtk::Button(_("$_")), clicked => sub {
+ if($box->{vis}) { $box->hide(); $box->{vis} = 0; $notebook->set_page(0); }
+ else {
+ $_->hide, $_->{vis}=0 foreach @box_to_hide;
+ $box->show; $box->{vis} = 1;
+ $box->{active_function} and $box->{active_function}->();
+ }
+ }), 1, gtkpack__($box,
+ map {
+ my $button = gtkset_relief(new Gtk::ToggleButton(), 'none');
+ push @button_to_hide, $button;
+ my $gru = $_->[0];
+ $notebook->append_page(gtkshow($_->[2]), undef);
+ $nb_pages++;
+ my $local_page = $nb_pages;
+ my $function = sub { $notebook->set_page($local_page) };
+ gtksignal_connect($button, toggled => sub {
+ $button->get_active() and $function->()
+ });
+ my $b;
+ if ($_->[1] ne "") { $b = new Gtk::Pixmap(gtkcreate_png($_->[1]))} else { $b = ()};
+ gtksignal_connect(gtkadd($button,
+ gtkpack__(new Gtk::VBox(0,3),
+ $b,
+ _($_->[0]),
+ )
+ ), released => sub {
+ $button->get_active() or $button->set_active(1),return;
+ $_->set_active(0) foreach @button_to_hide;
+ $button->set_active(1);
+ $box->{active_function} = $function;
+ $function->();
+ })
+ } @{$tree{$_}}
+ )
+ } keys(%tree)
+ )
+ ),
+ 1, $notebook,
+ ),
+ 0, gtkadd(gtkset_border_width(gtkset_layout(new Gtk::HButtonBox, 'end'), 5),
+ gtksignal_connect(new Gtk::Button(_("Accept")), clicked => sub { Gtk->main_quit; }),
+ gtksignal_connect(new Gtk::Button(_("Cancel")), clicked => sub { $o = $o_old; Gtk->main_quit; quit_global($in, 0) }),
+ )
+ )
+ );
+ $_->hide foreach @box_to_hide;
+# $W->{window}->show_all;
+# gtkadd($W->{window},
+# gtkpack_($W->create_box_with_title(_("Edit variables")),
+# 1, my $notebook = create_notebook( map { $_, h2widget($o->{$_}, "\$o->\{$_\}") } keys %$o ),
+# 0, gtkpack(gtkset_border_width(new Gtk::HBox(0,0),5), $W->create_okcancel),
+# ),
+# );
+# $notebook->set_tab_pos('left');
+# $::isEmbedded and Gtk->main_iteration while Gtk->events_pending;
+ $::isEmbedded and kill (12, $::CCPID);
+ $W->main;
+# $W->destroy();
+}
my $str = join('',
"#!/usr/bin/perl -cw
@@ -108,7 +238,6 @@ output($cfgfile, $str);
fs::umount($mountdir);
-
$in->ask_okcancel(_("Congratulations!"),
_("The floppy has been successfully generated.
You may now replay your installation."));
@@ -123,8 +252,112 @@ sub quit_global {
}
+sub h2widget {
+ my ($k, $label) = @_;
+ my $w;
+ if(ref($k) =~ /HASH/) {
+ my $vb;
+ my @widget_list;
+ my $i = -1;
+ my @list_keys = keys(%{$k});
+ if (ref(${$k}{$list_keys[0]}) =~ /HASH/) {
+ $i++;
+ my ($button_add, $button_remove);
+ $w = gtkpack_(new Gtk::VBox(0,0),
+ 1, createScrolledWindow(gtkpack__($vb = new Gtk::VBox(0,10),
+ $widget_list[$i] = create_packtable({ col_spacings => 10, row_spacings => 3 },
+ map {
+ my $e;
+ $e = h2widget(${$k}{$_}, "$label\{$_\}");
+ [ "$_ : ", $e ] } @list_keys
+ ),
+ )
+ ),
+ control_buttons(${$k}{$list_keys[0]},
+ sub { my ($vb, $widget_list2, $ref_local_k, $i) = @_;
+ my @widget_list = @{$widget_list2};
+ my $field = $in->ask_from_entry(_("Auto Install"), ("Enter the name of the new field you want to add")) or return undef;
+ $field eq '' and return undef;
+ gtkpack__($vb,
+ $widget_list[$i] = create_packtable({ col_spacings => 10, row_spacings => 3 },
+ [ "$field : ", h2widget($ref_local_k, "$label\{$field\}")])
+ );
+ @{$widget_list2} = @widget_list;
+ },
+ $vb, \$i, \@widget_list)
+ );
+ } else {
+ $w = gtkpack__(create_packtable({ col_spacings => 10, row_spacings => 3 },
+ map {
+ my $e;
+ my $t = ${$k}{$_}; $e = new Gtk::Entry;
+ $e->{value} = "$label\{$_\}";
+ my $tag = Gtk->timeout_add(1000, sub {
+ $e->set_text($t);
+ 0;
+ });
+ gtksignal_connect($e, changed => sub {
+ my $exe = $e->{value} . "='" . $e->get_text() . "'";
+# print "EXEC : $exe\n ";
+ eval "$exe";
+ });
+ [ "$_ : ", $e ] } @list_keys
+ ),
+ )
+ }
+ } elsif(ref($k) =~ /ARRAY/) {
+ my $vb;
+ my @widget_list;
+ my $i = -1;
+ $w = gtkpack_(new Gtk::VBox(0,0),
+ 1, createScrolledWindow(
+ gtkpack__($vb = new Gtk::VBox(0,5),
+ map { $i++; $widget_list[$i] = h2widget($_, "$label\[$i\]") } @{$k},
+ )
+ ),
+ control_buttons(@{$k}[0],
+ sub { my ($vb, $widget_list2, $ref_local_k, $i) = @_;
+ my @widget_list = @{$widget_list2};
+ gtkpack__($vb, $widget_list[$i] = h2widget($ref_local_k, "$label\[$i\]"));
+ @{$widget_list2} = @widget_list;
+ },
+ $vb, \$i, \@widget_list)
+ );
+ } else {
+ $w = new Gtk::Label($k);
+ }
+ return $w;
+}
+
+sub control_buttons {
+ my ($ref_local_k, $local_gui, $vb, $j, $widget_list2) = @_;
+ my @widget_list = @{$widget_list2};
+ my $i = ${$j};
+ my (%local_k) = %{$ref_local_k};
+ my ($button_add, $button_remove);
+ 0, gtkadd(gtkset_border_width(gtkset_layout(new Gtk::HButtonBox, 'spread'), 5),
+ gtksignal_connect($button_add = new Gtk::Button(_("Add an item")), clicked => sub {
+ $local_k{$_} = undef foreach keys %local_k;
+ $i++;
+ $local_gui->($vb, \@widget_list, \%local_k, $i) or $i--, return;
+ $i>=0 and $button_remove->set_sensitive(1);
+ }
+ ),
+ gtksignal_connect($button_remove = new Gtk::Button(_("Remove the last item")), clicked => sub {
+ $i>=0 or return;
+ $widget_list[$i]->destroy();
+ $i--;
+ $i>=0 or $button_remove->set_sensitive(0);
+ }
+ )
+ )
+}
+
#-------------------------------------------------
#- $Log$
+#- Revision 1.8 2001/10/25 02:18:24 damien
+#- The new drakautoinst is coming. P|-|34R
+#-
#- Revision 1.7 2001/09/18 17:35:50 gc
#- have "manual" and "replay" translated
#-