From c00134994c26efbe14fc6f9b39ed1b68dd4206d9 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 28 Feb 2003 14:50:30 +0000 Subject: removed profile management entry point. --- perl-install/standalone/drakconnect | 118 +++++++++++++++++++----------------- 1 file changed, 61 insertions(+), 57 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 038a4951e..34649444b 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -54,6 +54,8 @@ my $in = 'interactive'->vnew('su', 'network'); $::Wizard_pix_up = "wiz_drakconnect.png"; $::Wizard_title = "Network & Internet Configuration"; +my $activate_profile = 0; #- deactivated by default (in order to keep code) + MDK::Common::Globals::init( in => $in, prefix => '', @@ -88,60 +90,60 @@ $combo1->entry->set_text($netcnx->{PROFILE} || "default"); $combo1->entry->set_editable(0); my $button_del = new Gtk2::Button(N("Del profile...")); $button_del->signal_connect(clicked => sub { - my $dialog = new_dialog(); - $dialog->vbox->pack_start(new Gtk2::Label(N("Profile to delete:")),1,1,0); - my $combo_dialog = new Gtk2::Combo; - $combo_dialog->set_popdown_strings(grep { ! /default/ } network::netconnect::get_profiles()); - $combo_dialog->entry->set_editable(0); - $dialog->vbox->pack_start($combo_dialog,1,1,0); - my $bbox_dialog = new Gtk2::HButtonBox; - $dialog->action_area->add($bbox_dialog); - $bbox_dialog->set_layout('end'); - my $button_ok = new Gtk2::Button(N("OK")); - $button_ok->signal_connect(clicked => sub { - network::netconnect::del_profile($netcnx, $combo_dialog->entry->get_text()); - $netcnx->{PROFILE} eq $combo_dialog->entry->get_text() and $netcnx->{PROFILE} = "default"; - Gtk2->main_quit(); - }); - $bbox_dialog->add($button_ok); - my $button_cancel = new Gtk2::Button(N("Cancel")); - $button_cancel->signal_connect(clicked => sub { Gtk2->main_quit() }); - $bbox_dialog->add($button_cancel); - $dialog->show_all; - $dialog->set_modal(1); - Gtk2->main(); - $dialog->destroy; - $combo1->entry->set_text(-e "/etc/sysconfig/network-scripts/drakconnect_conf." . $combo1->entry->get_text ? $combo1->entry->get_text : "default"); - $combo1->set_popdown_strings(network::netconnect::get_profiles()); - apply(); - }); + my $dialog = new_dialog(); + $dialog->vbox->pack_start(new Gtk2::Label(N("Profile to delete:")),1,1,0); + my $combo_dialog = new Gtk2::Combo; + $combo_dialog->set_popdown_strings(grep { ! /default/ } network::netconnect::get_profiles()); + $combo_dialog->entry->set_editable(0); + $dialog->vbox->pack_start($combo_dialog,1,1,0); + my $bbox_dialog = new Gtk2::HButtonBox; + $dialog->action_area->add($bbox_dialog); + $bbox_dialog->set_layout('end'); + my $button_ok = new Gtk2::Button(N("OK")); + $button_ok->signal_connect(clicked => sub { + network::netconnect::del_profile($netcnx, $combo_dialog->entry->get_text()); + $netcnx->{PROFILE} eq $combo_dialog->entry->get_text() and $netcnx->{PROFILE} = "default"; + Gtk2->main_quit(); + }); + $bbox_dialog->add($button_ok); + my $button_cancel = new Gtk2::Button(N("Cancel")); + $button_cancel->signal_connect(clicked => sub { Gtk2->main_quit() }); + $bbox_dialog->add($button_cancel); + $dialog->show_all; + $dialog->set_modal(1); + Gtk2->main(); + $dialog->destroy; + $combo1->entry->set_text(-e "/etc/sysconfig/network-scripts/drakconnect_conf." . $combo1->entry->get_text ? $combo1->entry->get_text : "default"); + $combo1->set_popdown_strings(network::netconnect::get_profiles()); + apply(); + }); $button_del->set_sensitive(network::netconnect::get_profiles() > 1); my $button_new = new Gtk2::Button(N("New profile...")); $button_new->signal_connect(clicked => sub { - my $dialog = new_dialog(); - $dialog->vbox->pack_start(new Gtk2::Label(N("Name of the profile to create (the new profile is created as a copy of the current one) :")),1,1,0); - my $entry_dialog = new Gtk2::Entry; - $dialog->vbox->pack_start($entry_dialog,1,1,0); - my $bbox_dialog = new Gtk2::HButtonBox; - $dialog->action_area->add($bbox_dialog); - $bbox_dialog->set_layout('end'); - my $button_ok = new Gtk2::Button(N("OK")); - $button_ok->signal_connect(clicked => sub { - network::netconnect::add_profile($netcnx, $entry_dialog->get_text()); - $netcnx->{PROFILE} = $entry_dialog->get_text(); - Gtk2->main_quit(); - }); - $bbox_dialog->add($button_ok); - my $button_cancel = new Gtk2::Button(N("Cancel")); - $button_cancel->signal_connect(clicked => sub { Gtk2->main_quit() }); - $bbox_dialog->add($button_cancel); - $dialog->show_all; - $dialog->set_modal(1); - Gtk2->main(); - $dialog->destroy; - $combo1->entry->set_text(-e "/etc/sysconfig/network-scripts/drakconnect_conf." . $netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default"); - $combo1->set_popdown_strings(network::netconnect::get_profiles()); -}); + my $dialog = new_dialog(); + $dialog->vbox->pack_start(new Gtk2::Label(N("Name of the profile to create (the new profile is created as a copy of the current one) :")),1,1,0); + my $entry_dialog = new Gtk2::Entry; + $dialog->vbox->pack_start($entry_dialog,1,1,0); + my $bbox_dialog = new Gtk2::HButtonBox; + $dialog->action_area->add($bbox_dialog); + $bbox_dialog->set_layout('end'); + my $button_ok = new Gtk2::Button(N("OK")); + $button_ok->signal_connect(clicked => sub { + network::netconnect::add_profile($netcnx, $entry_dialog->get_text()); + $netcnx->{PROFILE} = $entry_dialog->get_text(); + Gtk2->main_quit(); + }); + $bbox_dialog->add($button_ok); + my $button_cancel = new Gtk2::Button(N("Cancel")); + $button_cancel->signal_connect(clicked => sub { Gtk2->main_quit() }); + $bbox_dialog->add($button_cancel); + $dialog->show_all; + $dialog->set_modal(1); + Gtk2->main(); + $dialog->destroy; + $combo1->entry->set_text(-e "/etc/sysconfig/network-scripts/drakconnect_conf." . $netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default"); + $combo1->set_popdown_strings(network::netconnect::get_profiles()); + }); my $hostname = chomp_(`hostname`); #attach(table, child, left_attach, right_attach, top_attach, bottom_attach, xoptions, yoptions, xpadding, ypadding) @@ -199,12 +201,14 @@ my ($bbox0, $label_host, $int_state); $window1->{window}->add( gtkpack_(Gtk2::VBox->new(0,10), - 0, gtkpack_(Gtk2::HBox->new(0,0), - 0, new Gtk2::Label(N("Profile: ")), - 0, $combo1, - 0, $button_del, - 0, $button_new, - ), + if_($activate_profile, + 0, gtkpack_(Gtk2::HBox->new(0,0), + 0, new Gtk2::Label(N("Profile: ")), + 0, $combo1, + 0, $button_del, + 0, $button_new, + ), + ), 0, gtkpack_(Gtk2::HBox->new(0,0), 0, new Gtk2::Label(N("Hostname: ")), 0, $label_host = new Gtk2::Label($hostname), -- cgit v1.2.1