summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakconnect25
1 files changed, 5 insertions, 20 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 9a42b52da..e844e3011 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -894,24 +894,13 @@ Please run \"Internet access\" in control center."));
my $param_vbox = Gtk2::VBox->new(0,0);
my $i = 0;
- my (@mask, $extra_netdevice);
- if ($netcnx->{type} eq 'lan') {
- @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);
- } elsif ($netcnx->{type} eq 'isdn_internal') {
- if (defined $cnx->{vendor} && defined $cnx->{id}) {
- @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);
- } else {
- @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)
- }
+ my $extra_netdevice;
+ if ($netcnx->{type} eq 'isdn_internal') {
$extra_netdevice = "ppp0";
} elsif ($netcnx->{type} eq 'modem' || $netcnx->{type} eq 'isdn_external') {
- @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);
$extra_netdevice = "ppp0" if $netcnx->{type} eq 'modem';
} elsif ($netcnx->{type} =~ /adsl/) {
- @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);
$extra_netdevice = "ppp0";
- } elsif ($netcnx->{type} eq 'cable') {
- @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);
}
$extra_netdevice = "ippp0" if $netcnx->{type} =~ /^isdn/;
@@ -929,10 +918,6 @@ Please run \"Internet access\" in control center."));
);
my @infos;
foreach (@conf_data) {
- if (!$mask[$i]) {
- $i++;
- next;
- }
$infos[2*$i] = Gtk2::HBox->new(0,0);
gtkpack($infos[2*$i], gtkset_justify(Gtk2::Label->new($_->[0]), 'left'));
gtkpack($param_vbox, $infos[2*$i]);
@@ -967,9 +952,9 @@ Please run \"Internet access\" in control center."));
0, gtkpack(create_hbox('edge'),
gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => $exit_dialogsub),
gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub {
- each_index {
- ${$conf_data[$::i][1]} = $infos[2*$::i+1]->get_text if $_;
- } @mask;
+ foreach my $i (0..$#conf_data) {
+ ${$conf_data[$::i][1]} = $infos[2*$::i+1]->get_text;
+ } @conf_data;
update();
$button_apply->set_sensitive(1);
$exit_dialogsub->();