diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-12 11:44:57 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-12 11:44:57 +0000 |
| commit | bf82b11e69dee16427bcd11c9a01ad66843b3484 (patch) | |
| tree | 49cfe8b0db1d4e9368140a4b4cc04a6aa07eb950 /perl-install | |
| parent | 66e6644a89788360516adf05561f43a2199ca3a7 (diff) | |
| download | drakx-backup-do-not-use-bf82b11e69dee16427bcd11c9a01ad66843b3484.tar drakx-backup-do-not-use-bf82b11e69dee16427bcd11c9a01ad66843b3484.tar.gz drakx-backup-do-not-use-bf82b11e69dee16427bcd11c9a01ad66843b3484.tar.bz2 drakx-backup-do-not-use-bf82b11e69dee16427bcd11c9a01ad66843b3484.tar.xz drakx-backup-do-not-use-bf82b11e69dee16427bcd11c9a01ad66843b3484.zip | |
list ppp interfaces too when offering to delete an interface
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index c7870c9a0..11d821bab 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -400,7 +400,7 @@ sub add_intf() { } sub del_intf() { - my ($intf, $faillure); + my ($intf2delete, $faillure); my $wiz = { defaultimage => "wiz_drakconnect.png", @@ -409,13 +409,13 @@ sub del_intf() { welcome => { no_back => 1, name => N("Select the network interface to remove:"), - data => [ { label => N("Net Device"), val => \$intf, list => [ detect_devices::getNet() ], allow_empty_list => 1 } ], + data => [ { label => N("Net Device"), val => \$intf2delete, list => [ uniq(detect_devices::getNet(), keys %$intf) ], allow_empty_list => 1 } ], post => sub { !$::testing and eval { modules::mergein_conf('/etc/modules.conf'); - modules::remove_alias($intf); + modules::remove_alias($intf2delete); modules::write_conf(); - rm_rf("/etc/sysconfig/network-scripts/ifcfg-$intf"); + rm_rf("/etc/sysconfig/network-scripts/ifcfg-$intf2delete"); }; $faillure = $@; }, @@ -425,8 +425,8 @@ sub del_intf() { name => sub { ($faillure ? N("An error occured while deleting the \"%s\" network interface:\n\n%s", - $intf, $faillure) : - N("Congratulations, the \"%s\" network interface has been succesfully deleted", $intf) + $intf2delete, $faillure) : + N("Congratulations, the \"%s\" network interface has been succesfully deleted", $intf2delete) ) }, }, |