summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-02-11 15:01:56 +0000
committerdamien <damien@mandriva.com>2002-02-11 15:01:56 +0000
commit22987769065039b776833c1d5db466f50f3ab4de (patch)
tree77078fdcadf44fa5d5023509d0d2a6cb18add76a /perl-install
parentc702b1453e64c19cf0125975434050f8ffbc3737 (diff)
downloaddrakx-backup-do-not-use-22987769065039b776833c1d5db466f50f3ab4de.tar
drakx-backup-do-not-use-22987769065039b776833c1d5db466f50f3ab4de.tar.gz
drakx-backup-do-not-use-22987769065039b776833c1d5db466f50f3ab4de.tar.bz2
drakx-backup-do-not-use-22987769065039b776833c1d5db466f50f3ab4de.tar.xz
drakx-backup-do-not-use-22987769065039b776833c1d5db466f50f3ab4de.zip
added cancel for first step
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 57597a9fb..836901f16 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -38,12 +38,14 @@ sub intro {
$connected=0;
}
my @l=(
- !$connected && -e $connect_file ? { description => _("Connect to Internet"),
+ !$connected && -e $connect_file ? { description => _("Connect"),
c => 1} : (),
- $connected && -e $disconnect_file ? { description => _("Disconnect from Internet"),
+ $connected && -e $disconnect_file ? { description => _("Disconnect"),
c => 2} : (),
- { description => _("Configure network connection (LAN or Internet)"),
+ { description => _("Configure the connection"),
c => 3},
+ { description => _("Cancel"),
+ c => 4},
);
my $e = $in->ask_from_listf(_("Internet connection & configuration"),
_($text),
@@ -52,6 +54,7 @@ sub intro {
run_program::rooted($prefix, $connect_prog) if ($e->{c}==1);
run_program::rooted($prefix, $disconnect_file) if ($e->{c}==2);
main($prefix, $netcnx, $netc, $mouse, $in, $intf, 0, 0) if ($e->{c}==3);
+ $in->exit(0) if ($e->{c}==4);
} else {
main($prefix, $netcnx, $netc, $mouse, $in, $intf, 0, 0);
}