summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakgw
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-27 13:21:21 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-27 13:21:21 +0000
commit905ba461adf26de0a630035424d5a78054d73786 (patch)
treee1340d2c9109fb09b47d9918b4be7ddb4c4748a9 /perl-install/standalone/drakgw
parent7cdb17d17d6040a6ea25fbc376ffccd66ff49130 (diff)
downloaddrakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.tar
drakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.tar.gz
drakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.tar.bz2
drakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.tar.xz
drakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.zip
let drakgw embed (interface team request)
Diffstat (limited to 'perl-install/standalone/drakgw')
-rwxr-xr-xperl-install/standalone/drakgw52
1 files changed, 1 insertions, 51 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 682ea9909..2dc2fe8fd 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -56,9 +56,7 @@ my $shorewall = network::shorewall::read($in, 'silent');
$::Wizard_title = N("Internet Connection Sharing");
-!$::isEmbedded && $in->isa('interactive::gtk') and $::isWizard = 1;
-
-pur_gtk_mode() if $::isEmbedded && $in->isa('interactive::gtk');
+$in->isa('interactive::gtk') and $::isWizard = 1;
sub sys { system(@_) == 0 or log::l("[drakgw] Warning, sys failed for $_[0]") }
@@ -527,51 +525,3 @@ sub quit_global {
$in->exit($exitcode);
goto begin
}
-
-sub pur_gtk_mode() {
- require ugtk2;
- ugtk2->import(qw(:wrappers :helpers :create));
- my $setup_state = $shorewall && $shorewall->{masquerade} ?
- ($shorewall->{disabled} ?
- N("The setup has already been done, but it's currently disabled.") :
- N("The setup has already been done, and it's currently enabled.")) :
- N("No Internet Connection Sharing has ever been configured.");
-
- my $window1 = ugtk2->new('drakgw');
- $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
- unless ($::isEmbedded) {
- $window1->{rwindow}->set_position('center');
- $window1->{rwindow}->set_title(N("Internet Connection Sharing configuration"));
- }
- $window1->{rwindow}->set_border_width(10);
- my $vbox1 = new Gtk2::VBox(0,0);
- $window1->{window}->add($vbox1);
- my $hbox1 = new Gtk2::HBox(0,0);
- $vbox1->pack_start($hbox1,1,1,0);
- my $label1 = new Gtk2::Label(
-N("Welcome to the Internet Connection Sharing utility!
-
-%s
-
-Click on Configure to launch the setup wizard.", $setup_state));
- $hbox1->pack_start($label1,1,1,0);
- my $hbox2 = new Gtk2::HBox(0,0);
- $vbox1->pack_start($hbox2,1,1,0);
-
- my $bbox1 = new Gtk2::HButtonBox;
- $vbox1->pack_start($bbox1,0,0,0);
- $bbox1->set_layout('end');
- my $button_conf = Gtk2::Button->new(N("Configure"));
- $button_conf->signal_connect(clicked => sub {
- system("/usr/sbin/drakgw --wizard");
- ugtk2->exit(0);
- });
- $bbox1->add($button_conf);
- my $button_cancel = Gtk2::Button->new(N("Cancel"));
- $button_cancel->signal_connect(clicked => sub { ugtk2->exit(0) });
- $bbox1->add($button_cancel);
- $window1->{rwindow}->show_all;
- $window1->main;
- ugtk2->exit(0);
-
-}