diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-09-06 15:04:26 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-09-06 15:04:26 +0000 |
| commit | 97139f6583a88bf6a9badff59deb732f38f087d2 (patch) | |
| tree | 079d4aa89843a4c7b676a33d0a51b6cc09993014 /perl-install/standalone | |
| parent | b645cf261a8f4324b997701814ca8ed4320ac48c (diff) | |
| download | drakx-backup-do-not-use-97139f6583a88bf6a9badff59deb732f38f087d2.tar drakx-backup-do-not-use-97139f6583a88bf6a9badff59deb732f38f087d2.tar.gz drakx-backup-do-not-use-97139f6583a88bf6a9badff59deb732f38f087d2.tar.bz2 drakx-backup-do-not-use-97139f6583a88bf6a9badff59deb732f38f087d2.tar.xz drakx-backup-do-not-use-97139f6583a88bf6a9badff59deb732f38f087d2.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index be25be801..51f1a8ab5 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -135,7 +135,7 @@ $window1->{window}->add( clicked => sub { local ($::isWizard, $::Wizard_finished) = (1, 1); eval { # For wizcancel - configureNetworkNet($in, $netc, $intf, map { $_->[0] } @all_cards); + network::netconnect::main('', $netcnx, $in, $modules_conf, $netc, undef, $intf); $button_apply->set_sensitive(1); update(); }; @@ -168,7 +168,7 @@ $window1->{window}->add( Gtk2::Label->new(N("Please Wait... Applying the configuration"))); $dialog->show_all; gtkflush(); - apply(); + apply($netc, $intf); $dialog->destroy; } update(); @@ -267,7 +267,7 @@ sub build_tree { $intf->{save} = sub { $netc->{internet_cnx_choice} = 'adsl'; $netc->{at_boot} = $intf->{ONBOOT} eq 'yes' ? 1 : 0; - network::adsl::adsl_conf_backend($in, $modules_conf, $intf, $netc, $interface_kind, $protocol) + network::adsl::adsl_conf_backend($in, $modules_conf, $netcnx, $netc, $intf, $interface_kind, $protocol) }; } elsif ($interface eq 'modem') { @@ -660,7 +660,7 @@ sub del_intf() { list => [ keys %$intf, grep { -f "/etc/ppp/peers/$_" } qw(adsl isdn) ], } ], post => sub { !$::testing and eval { - if (member($intf2delete, qw(adsl modem)) { + if (member($intf2delete, qw(adsl modem))) { rm_rf("/etc/ppp/peers/ppp0"); rm_rf("/etc/sysconfig/network-scripts/ifcfg-ppp0"); } @@ -755,7 +755,7 @@ sub update() { $label_host->set_label($h); $int_label->set($netcnx->{type} eq 'lan' ? N("Gateway:") : N("Interface:")); $interface_name->set($netcnx->{type} eq 'lan' ? $netc->{GATEWAY} : $netcnx->{NET_INTERFACE}); - update_list(); + update_list($modules_conf); update_intbutt() if $isconnected != -1; 1; } |