summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect646
1 files changed, 0 insertions, 646 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
deleted file mode 100755
index f2bf3e368..000000000
--- a/perl-install/standalone/drakconnect
+++ /dev/null
@@ -1,646 +0,0 @@
-#!/usr/bin/perl
-
-# DrakConnect
-
-# Copyright (C) 1999-2002 MandrakeSoft (damien@mandrakesoft.com)
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
-use strict;
-use diagnostics;
-use lib qw(/usr/lib/libDrakX);
-
-use standalone; #- warning, standalone must be loaded very first, for 'explanations'
-
-use interactive;
-use common;
-use network::netconnect;
-use network::ethernet;
-use network::tools;
-use network::modem;
-use network;
-use c;
-use modules;
-use network::isdn;
-use network::adsl;
-use MDK::Common::Globals "network", qw($in $prefix $disconnect_file $connect_prog $connect_file);
-
-my $xpm_path = "/usr/share/libDrakX/pixmaps";
-local $_ = join '', @ARGV;
-
-my ($netcnx, $netc, $intf) = ({}, {}, {});
-my @conx_type = ('modem', 'isdn_internal', 'isdn_external', 'adsl', 'cable', 'lan');
-
-my $in = 'interactive'->vnew('su');
-!$::isEmbedded and $in->isa('interactive::gtk');
-$::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 => '',
- connect_file => "/etc/sysconfig/network-scripts/net_cnx_up",
- disconnect_file => "/etc/sysconfig/network-scripts/net_cnx_down",
- connect_prog => "/etc/sysconfig/network-scripts/net_cnx_pg"
- );
-
-$::isEmbedded && ref($in) =~ /gtk/ or goto dd;
-
-require ugtk2;
-ugtk2->import(qw(:helpers :wrappers :create));
-my $expert_mode = 0;
-network::netconnect::read_net_conf('', $netcnx, $netc);
-modules::load_category('net');
-my @all_cards = network::ethernet::conf_network_card_backend($netc, $intf);
-network::netconnect::load_conf($netcnx, $netc, $intf);
-network::network::probe_netcnx_type('', $netc, $intf, $netcnx);
-
-my $window1 = ugtk2->new('drakconnect');
-$window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
-unless ($::isEmbedded) {
- $window1->{rwindow}->set_position('center');
- $window1->{rwindow}->set_title(N("Network configuration (%d adapters)", @all_cards));
- $window1->{rwindow}->set_size_request(500, 400);
-}
-$window1->{rwindow}->set_border_width(10);
-
-my $combo1 = new Gtk2::Combo;
-$combo1->set_popdown_strings(network::netconnect::get_profiles());
-my $old_profile = $netcnx->{PROFILE};
-$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();
- });
-$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 $hostname = chomp_(`hostname`);
-my $type_label = new Gtk2::Label($netcnx->{type});
-my $int_label = new Gtk2::Label($netcnx->{type} eq 'lan' ? N("Gateway:") : N("Interface:"));
-my $interface_name = new Gtk2::Label($netcnx->{type} eq 'lan' ? $netc->{GATEWAY} : $netcnx->{NET_INTERFACE});
-my $isconnected = -1;
-my $warning_label1 = new Gtk2::Label("");
-my $int_connect = new Gtk2::Button(N("Wait please"));
-$int_connect->set_sensitive(0);
-$int_connect->signal_connect(clicked => sub {
- if (!$isconnected) {
- if (cat_($connect_prog) =~ m|/usr/bin/kppp| && -e '/usr/bin/kppp') {
- run_program::rooted($prefix, "/usr/bin/kppp &");
- } else {
- connect_backend();
- }
- } else {
- disconnect_backend();
- }
- update2();
-});
-
-my $button_internet = gtksignal_connect(Gtk2::Button->new(N("Configure Internet Access...")),
- clicked => sub { configure_net('', $netcnx, $netc, $intf) });
-
-my $tree_model = Gtk2::TreeStore->new(Gtk2::GType->OBJECT, map { Gtk2::GType->STRING } 2..6);
-my $list = Gtk2::TreeView->new_with_model($tree_model);
-$list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererPixbuf->new, 'pixbuf' => 0));
-each_index { $list->append_column(Gtk2::TreeViewColumn->new_with_attributes($_, Gtk2::CellRendererText->new, 'text' => $::i + 1)) } (N("Interface"), N("IP address"), N("Protocol"), N("Driver"), N("State"));
-
-my $ip_regexp = qr/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-
-build_list();
-
-my $button_lan = gtksignal_connect(Gtk2::Button->new(N("Configure Local Area Network...")),
- clicked => sub { configure_lan('', $netcnx, $netc, $intf) });
-
-my ($bbox0, $label_host, $int_state);
-
-$window1->{window}->add(
- gtkpack_(Gtk2::VBox->new(0,10),
- 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),
- ),
- 0, gtkadd(Gtk2::Frame->new(N("Internet access")),
- gtkpack_(gtkset_border_width(Gtk2::VBox->new(0,0), 5),
- 1, gtkset_border_width(create_packtable({ col_spacings => 5, row_spacings => 5 },
- [ new Gtk2::Label(N("Type:")), $type_label ],
- [ $int_label, $interface_name ],
- [ Gtk2::Label->new(N("Status:")),
- $int_state = Gtk2::Label->new(N("Testing your connection...")),
- $int_connect, ] # $button_internet ]
- ),
- 5),
- 0, $warning_label1,
- 0, gtkpack_(new Gtk2::HBox(0, 0),
- 0, $button_internet),
- )
- ),
- 1, gtkadd(Gtk2::Frame->new(N("LAN configuration")),
- gtkpack_(gtkset_border_width(Gtk2::VBox->new(0,0), 5),
- 0, $list,
- 0, new Gtk2::HBox(0,0),
- 0, gtkpack_(new Gtk2::HBox(0, 0),
- 0, $button_lan),
- )
- ),
- 0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'end'),
- Gtk2::Label->new(N("Click here to launch the wizard ->")),
- gtksignal_connect(Gtk2::Button->new(N("Wizard...")),
- clicked => sub {
- system("drakconnect");
- #- reload everything...
- $netcnx = {}; $netc = {}; $intf = {};
- network::netconnect::read_net_conf('', $netcnx, $netc);
- modules::load_category('net');
- @all_cards = network::ethernet::conf_network_card_backend($netc, $intf);
- network::netconnect::load_conf($netcnx, $netc, $intf);
- network::network::probe_netcnx_type('', $netc, $intf, $netcnx);
- $combo1->entry->set_text(-e "/etc/sysconfig/network-scripts/drakconnect_conf." . ($combo1->entry->get_text || "default"));
- update();
- }),
- ),
- 0, Gtk2::HSeparator->new,
- 0, gtkset_layout($bbox0 = new Gtk2::HButtonBox, 'end')
- ),
- );
-
-my $button_expert = new Gtk2::Button(N("Expert Mode"));
-$button_expert->signal_connect(clicked => sub {
- foreach ($button_internet, $button_lan) { $expert_mode ? $_->hide() : $_->show() }
- $button_expert->child->set($expert_mode ? N("Expert Mode") : N("Normal Mode"));
- $expert_mode = !$expert_mode;
- });
-$bbox0->add($button_expert);
-
-my $button_apply = new Gtk2::Button(N("Apply"));
-$button_apply->signal_connect(clicked => \&apply);
-$button_apply->set_sensitive(0);
-$bbox0->add($button_apply);
-
-my $button_cancel = new Gtk2::Button(N("Cancel"));
-$button_cancel->signal_connect(clicked => sub {
- $combo1->entry->set_text($old_profile);
- update();
- quit_global();
- });
-$bbox0->add($button_cancel);
-my $button_ok = new Gtk2::Button(N("OK"));
-$button_ok->signal_connect(clicked => sub {
- my $dialog = new_dialog();
- $dialog->vbox->pack_start(new Gtk2::Label(N("Please Wait... Applying the configuration")),1,1,20);
- $dialog->show_all;
- gtkflush();
- apply();
- $dialog->destroy;
- update();
- quit_global();
- });
-$bbox0->add($button_ok);
-$combo1->entry->signal_connect('changed', sub {
-# connected() and disconnect_backend();
- network::netconnect::set_profile($netcnx, $combo1->entry->get_text());
- network::netconnect::load_conf($netcnx, $netc, $intf);
- $netcnx->{$_} = $netc->{$_} foreach qw(NET_DEVICE NET_INTERFACE);
- update();
- $button_apply->set_sensitive(1);
- });
-
-$window1->{rwindow}->show_all();
-$_->hide foreach $button_internet, $button_lan;
-gtkflush();
-my $tag = Gtk2->timeout_add(4000, \&update2);
-$window1->main;
-ugtk2->exit(0);
-
-dd:
-$::isWizard = 1;
-network::netconnect::main('', $netcnx, $in);
-$in->exit(0);
-
-sub build_list() {
- foreach my $i (0..$#all_cards) {
- my ($ip, $state);
- if (-x "/sbin/ifconfig") {
- local $_ = `LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig "eth$i"`;
- /inet addr\:$ip_regexp/ or warn "Bad Ip\n";
- $ip = if_($1 && $2 && $3, "$1.$2.$3.$4");
- $_ = `LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig`;
- $state = /eth$i/ ? "up" : "down";
- } else {
- $ip = $intf->{"eth$i"}{IPADDR};
- $state = "n/a";
- }
- $tree_model->append_set(undef, [ map_index { $::i => $_ } (gtkcreate_pixbuf("eth_card_mini2.png"), "eth$i", $ip , $intf->{"eth$i"}{BOOTPROTO}, $all_cards[$i][1], $state) ])->free;
- }
-}
-
-sub apply() {
- $old_profile = $netcnx->{PROFILE} || "default";
- network::netconnect::save_conf($netcnx);
-
- $netcnx->{type} eq 'modem' and network::modem::ppp_configure($in, $netcnx->{$netcnx->{type}});
- $netcnx->{type} eq 'isdn_internal' and network::isdn::isdn_write_config_backend($netcnx->{$netcnx->{type}}, $netc, $netcnx); #$light
- $netcnx->{type} eq 'isdn_external' and network::modem::ppp_configure($in, $netcnx->{$netcnx->{type}});
- my $a = $netcnx->{type};
- $a =~ s/adsl_//;
- $netcnx->{type} =~ /adsl/ and network::adsl::adsl_conf_backend($netcnx->{$netcnx->{type}}, $netc, $a, $netcnx);
-
- $netcnx->{dhcp_client} and $netc->{dhcp_client} = $netcnx->{dhcp_client};
- network::configureNetwork2($in, $prefix, $netc, $intf);
- $netcnx->{type} =~ /adsl/ or system("/sbin/chkconfig --del adsl 2> /dev/null");
- $netcnx->{type} !~ /adsl_p/ and system("$prefix/etc/rc.d/init.d/network restart");
- $button_apply->set_sensitive(0);
-}
-
-sub ethisup { `LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig` =~ /eth$_[0]/ }
-
-my $to_update;
-sub update() {
- my $h = chomp_(`hostname`);
- $label_host->set($h);
- $type_label->set($netcnx->{type});
- $int_label->set($netcnx->{type} eq 'lan' ? N("Gateway:") : N("Interface:"));
- $interface_name->set($netcnx->{type} eq 'lan' ? $netc->{GATEWAY} : $netcnx->{NET_INTERFACE});
- $tree_model->clear;
- build_list();
- $button_del->set_sensitive(network::netconnect::get_profiles() > 1);
- return 1 if $isconnected == -1;
- $int_state->set($isconnected ? N("Connected") : N("Not connected"));
- $int_connect->child->set($isconnected ? N("Disconnect...") : N("Connect..."));
- $int_connect->set_sensitive(1);
- 1;
-}
-
-sub in_ifconfig {
- my ($intf) = @_;
- -e '/sbin/ifconfig' or return 1;
- $intf eq '' and return 1;
- `/sbin/ifconfig` =~ /$intf/;
-}
-
-sub update2() {
- undef $to_update;
- connected_bg(\$to_update);
- if (defined $to_update) {
- $isconnected = $to_update;
- if ($isconnected != -1) {
- if ($isconnected && !in_ifconfig($netcnx->{NET_INTERFACE})) {
- $warning_label1->set(N("Warning, another Internet connection has been detected, maybe using your network"));
- $isconnected = 0;
- } else { $warning_label1->set("") }
- $int_state->set($isconnected ? N("Connected") : N("Not connected"));
- $int_connect->child->set($isconnected ? N("Disconnect...") : N("Connect..."));
- $int_connect->set_sensitive(1);
- }
- }
- update();
- 1;
-}
-
-sub quit_global() {
- ugtk2->exit(0);
-}
-
-sub configure_lan {
- my ($prefix, $netcnx, undef, $intf) = @_;
- my $window = Gtk2::Window->new('toplevel');
-
- my @card_tab;
-
- if (@all_cards < 1) {
- my $dialog = new_dialog();
- $dialog->vbox->pack_start(new Gtk2::Label(N("You don't have any configured interface.
-Configure them first by clicking on 'Configure'")),1,1,0);
- $dialog->action_area->add(gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'end'),
- gtksignal_connect(new Gtk2::Button(N("OK")),
- clicked => sub { Gtk2->main_quit() })
- )
- );
- $dialog->show_all;
- $dialog->set_modal(1);
- Gtk2->main();
- $dialog->destroy;
- return;
- }
-
- $window->signal_connect(delete_event => sub { Gtk2->main_quit });
- $window->set_position('center');
- $window->set_title(N("LAN configuration"));
- $window->set_border_width(10);
- my $vbox0 = new Gtk2::VBox(0,0);
- $window->add($vbox0);
- $vbox0->pack_start(new Gtk2::Label(N("LAN Configuration")),0,1,0);
- my $notebook = new Gtk2::Notebook;
- $vbox0->pack_start($notebook,0,1,0);
- foreach (0..$#all_cards) {
- my @infos;
- my @conf_data;
- $card_tab[2*$_] = \@infos;
- $card_tab[2*$_+1] = \@conf_data;
- my $vbox_local = new Gtk2::VBox(0,0);
- $vbox_local->set_border_width(10);
- $vbox_local->pack_start(new Gtk2::Label(N("Adapter %s: %s", $_+1 , "eth$_")),1,1,0);
- # Eth${_}Hostname = $netc->{HOSTNAME}
- # Eth${_}HostAlias = " . do { $netc->{HOSTNAME} =~ /([^\.]*)\./; $1 } . "
- # Eth${_}Driver = $all_cards[$_]->[1]
- @conf_data = ([N("IP address"), \$intf->{"eth$_"}{IPADDR}],
- [N("Netmask"), \$intf->{"eth$_"}{NETMASK}],
- [N("Boot Protocol"), \$intf->{"eth$_"}{BOOTPROTO}, ["static", "dhcp", "bootp"]],
- [N("Started on boot"), \$intf->{"eth$_"}{ONBOOT} , ["yes", "no"]],
- [N("DHCP client"), \$netcnx->{dhcp_client}]
- );
- my $i = 0;
- foreach my $j (@conf_data) {
- $infos[2*$i] = new Gtk2::HBox(0,0);
- my $l = new Gtk2::Label($j->[0]);
- $l->set_justify('left');
- $infos[2*$i]->pack_start($l,1,1,0);
- $vbox_local->pack_start($infos[2*$i],0,0,0);
- if (defined $j->[2]) {
- my $c = new Gtk2::Combo();
- $c->set_popdown_strings(@{$j->[2]});
- $infos[2*$i+1] = $c->entry;
- $infos[2*$i+1]->set_editable(0);
- $infos[2*$i]->pack_start($c,0,0,0);
- } else {
- $infos[2*$i+1] = new Gtk2::Entry();
- $infos[2*$i]->pack_start($infos[2*$i+1],0,0,0);
- }
- $infos[2*$i+1]->set_text(${$j->[1]});
- $i++;
- }
- my $c = $_;
- my $widget_temp;
- if (-e "$prefix/etc/sysconfig/network-scripts/ifcfg-eth$c") {
- $widget_temp = gtksignal_connect(new Gtk2::Button(ethisup($c) ? N("deactivate now") : N("activate now")),
- clicked => sub {
- system("/sbin/if" . (ethisup($c) ? "down" : "up") . " eth$c");
- ugtk2::gtkbuttonset($_[0], ethisup($c) ? N("deactivate now") : N("activate now"));
- });
- } else {
- $widget_temp = N("This interface has not been configured yet.\nLaunch the configuration wizard in the main window");
- }
- $vbox_local->pack_start(gtkpack__(new Gtk2::HBox(0,0),
- $widget_temp
- ),0,0,0);
- # $list->append($_+1, "eth$_", $intf->{"eth$_"}{IPADDR}, $intf->{"eth$_"}{BOOTPROTO}, $all_cards[$_]->[1]);
- # $list->set_selectable($_, 0);
- my $hbox_local = new Gtk2::HBox(0,0);
- my $pix = gtkcreate_img("/usr/share/libDrakX/pixmaps/eth_card_mini.png");
- $hbox_local->pack_start($pix,0,0,0);
- $hbox_local->pack_start(new Gtk2::Label("eth$_"),0,0,0);
- $hbox_local->show_all;
- $notebook->append_page($vbox_local, $hbox_local);
- }
- my $bbox8 = new Gtk2::HButtonBox;
- $vbox0->pack_start($bbox8,0,0,10);
- $bbox8->set_layout('end');
- my $button_ok = new Gtk2::Button(N("OK"));
- $button_ok->signal_connect(clicked => sub {
- foreach (0..$#all_cards) {
- my @infos = @{$card_tab[2*$_]};
- each_index {
- ${$_->[1]} = $infos[2*$::i+1]->get_text();
- } @{$card_tab[2*$_+1]};
- if ($intf->{"eth$_"}{BOOTPROTO} eq "dhcp") {
- delete @{$intf->{"eth$_"}}{qw(IPADDR NETWORK NETMASK BROADCAST)};
- }
- }
- update();
- $button_apply->set_sensitive(1);
- $window->destroy(); Gtk2->main_quit;
- });
- $bbox8->add($button_ok);
-
- my $button_cancel = new Gtk2::Button(N("Cancel"));
- $button_cancel->signal_connect(clicked => sub { $window->destroy(); Gtk2->main_quit });
- $bbox8->add($button_cancel);
-
- $window->set_modal(1);
- $window->show_all();
- foreach (0..$#all_cards) {
- my @infos = @{$card_tab[2*$_]};
- $intf->{"eth$_"}{BOOTPROTO} eq "dhcp" or $infos[8]->hide;
- }
- $window->set_position('center_always');
- Gtk2->main;
-}
-
-
-sub configure_net {
- my ($_prefix, $netcnx, $netc, $_intf) = @_;
- if (!$netcnx->{type}) {
- my $dialog = new_dialog();
- $dialog->vbox->pack_start(new Gtk2::Label(N("You don't have an Internet connection.
-Create one first by clicking on 'Configure'")),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 {
- Gtk2->main_quit();
- });
- $bbox_dialog->add($button_ok);
- $dialog->show_all;
- $dialog->set_modal(1);
- Gtk2->main();
- $dialog->destroy;
- return;
- }
- my $cnx = {};
- $cnx = $netcnx->{$netcnx->{type}};
- my $window = Gtk2::Window->new('toplevel');
- $window->signal_connect(delete_event => sub { Gtk2->main_quit });
- $window->set_position('center');
- $window->set_title(N("Internet connection configuration"));
- $window->set_border_width(10);
- my $table1 = new Gtk2::Table(2, 4, 0);
- $table1->set_row_spacings(5);
- $table1->set_col_spacings(5);
- $table1->attach(new Gtk2::Label(N("Profile: ")), 0, 1, 0, 1, 'fill', 'fill',0,0);
- $table1->attach(new Gtk2::Label(translate($netcnx->{PROFILE})), 1, 2, 0, 1, 'fill', 'fill',0,0);
- $table1->attach(new Gtk2::Label(N("Connection type: ")), 0, 1, 1, 2, 'fill', 'fill',0,0);
- $table1->attach(new Gtk2::Label(translate($netcnx->{type})), 1, 2, 1, 2, 'fill', 'fill',0,0);
-# my $button_internet = new Gtk2::Button(N("Reconfigure using wizard..."));
-# $table1->attach($button_internet, 2, 4, 0, 2, 'fill', 'fill',0,0);
-
- my $vbox2 = new Gtk2::VBox(0,0);
- my $i = 0;
- my @mask;
-@mask = (0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0) if $netcnx->{type} eq 'lan';
-@mask = (0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1) if $netcnx->{type} eq 'isdn_internal' && defined $cnx->{vendor} && defined $cnx->{id};
-@mask = (1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1) if $netcnx->{type} eq 'isdn_internal' && (!defined $cnx->{vendor} || !defined $cnx->{id});
-@mask = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0) if $netcnx->{type} eq 'modem' || $netcnx->{type} eq 'isdn_external';
-@mask = (0,0,0,0,0,0,1,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0) if $netcnx->{type} =~ /adsl/;
-@mask = (0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0) if $netcnx->{type} eq 'cable';
-
- #- duplicated code (waiting for 9.1 to be out to merge everything correctly, avoid bug elsewhere).
- if ($netcnx->{type} =~ /adsl/) {
- require network::adsl;
- network::adsl::adsl_probe_info($cnx, $netc, $intf);
- }
- my @conf_data = ([ N("Card IRQ"), \$cnx->{irq} ],
- [ N("Card mem (DMA)"), \$cnx->{mem} ],
- [ N("Card IO"), \$cnx->{io} ],
- [ N("Card IO_0"), \$cnx->{io0} ],
- [ N("Card IO_1"), \$cnx->{io1} ],
- [ N("Your personal phone number"), \$cnx->{phone_in} ],
- [ N("Provider name (ex provider.net)"), \$netc->{DOMAINNAME2} ],
- [ N("Provider phone number"), \$cnx->{phone_out} ],
- [ N("Provider dns 1 (optional)"), \$netc->{dnsServer2} ],
- [ N("Provider dns 2 (optional)"), \$netc->{dnsServer3} ],
- [ N("Account Login (user name)"), \$cnx->{login} ],
- [ N("Account Password"), \$cnx->{passwd} ],
- [ N("Dialing mode"), \$cnx->{dialing_mode}, [ "auto", "manual" ] ],
- [ N("Gateway"), \$netc->{GATEWAY} ],
- [ N("Connection name"), \$cnx->{connection} ],
- [ N("Phone number"), \$cnx->{phone} ],
- [ N("Login ID"), \$cnx->{login} ],
- [ N("Password"), \$cnx->{passwd} ],
- [ N("Authentication"), \$cnx->{auth}, [ N("PAP"), N("Terminal-based"), N("Script-based"), N_("CHAP") ] ],
- [ N("Domain name"), \$cnx->{domain} ],
- [ N("First DNS Server (optional)"), \$cnx->{dns1} ],
- [ N("Second DNS Server (optional)"), \$cnx->{dns2} ],
- [ N("Ethernet Card"), \$netc->{NET_DEVICE}, [ 'eth0', 'eth1', 'eth2', 'eth3', 'eth4', 'eth5', 'eth6', 'eth7', 'eth8', 'eth9' ] ],
- [ N("DHCP Client"), \$netcnx->{dhcp_client}, ["dhcp-client", "dhcpcd", "dhcpxd"] ],
- [ N("Connection speed"), \$cnx->{speed}, ["64 Kb/s", "128 Kb/s"] ],
- [ N("Connection timeout (in sec)"), \$cnx->{huptimeout} ]
-);
- my @infos;
- foreach (@conf_data) {
- if (!$mask[$i]) {
- $i++;
- next;
- }
- $infos[2*$i] = new Gtk2::HBox(0,0);
- my $l = new Gtk2::Label($_->[0]);
- $l->set_justify('left');
- $infos[2*$i]->pack_start($l, 0, 0, 0);
- $vbox2->pack_start($infos[2*$i], 0, 0, 0);
- if (defined $_->[2]) {
- my $c = new Gtk2::Combo();
- $c->set_popdown_strings(@{$_->[2]});
- $infos[2*$i+1] = $c->entry;
- $infos[2*$i]->pack_start($c,0 , 0, 0);
- } else {
- $infos[2*$i+1] = new Gtk2::Entry();
- $infos[2*$i]->pack_start($infos[2*$i+1], 0, 0, 0);
- #hide password if Entry Password
- if ($_->[0] eq N("Account Password") || $_->[0] eq N("Password")) { $infos[2*$i+1]->set_visibility(0) };
- }
- $infos[2*$i+1]->set_text(${$_->[1]});
- $i++;
- }
-
- my $button_ok = new Gtk2::Button(N("OK"));
- $button_ok->signal_connect(clicked => sub {
- each_index {
- ${$conf_data[$::i][1]} = $infos[2*$::i+1]->get_text() if $_;
- } @mask;
- update();
- $button_apply->set_sensitive(1);
- $window->destroy(); Gtk2->main_quit;
- });
- my $button_cancel = new Gtk2::Button(N("Cancel"));
- $button_cancel->signal_connect(clicked => sub { $window->destroy(); Gtk2->main_quit });
-
- $window->set_modal(1);
-
- gtkadd($window,
- gtkpack__(new Gtk2::VBox(0, 0),
- new Gtk2::Label(N("Internet Connection Configuration")),
- new Gtk2::HSeparator,
- $table1,
- new Gtk2::HSeparator,
- gtkadd(Gtk2::Frame->new(N("Parameters")), $vbox2),
- new Gtk2::HSeparator,
- gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'end'),
- $button_ok,
- $button_cancel,
- ),
- ),
- );
-
- $window->show_all();
- Gtk2->main;
-}
-
-sub new_dialog() {
- my $dialog = new Gtk2::Dialog();
- $dialog->set_position('center-on-parent');
- $dialog->vbox->set_border_width(10);
- $dialog->signal_connect(delete_event => sub { Gtk2->main_quit() });
- $dialog;
-}
generated by cgit v1.2.1 (git 2.21.0) at 2024-08-01 03:20:30 +0000