From 38436eeea4bb04da5630757af5c3ce09ad60e10b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 16 Mar 2004 09:43:25 +0000 Subject: for ADSL Bewan and ISDN modem, warn that only 2.4.x kernels are supported --- perl-install/network/netconnect.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 289169977..066e64529 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -320,7 +320,7 @@ sub real_main { detect($netc->{autodetect}, 'isdn'); %isdn_cards = map { $_->{description} => $_ } @{$netc->{autodetect}{isdn}}; }, - name => N("Select the network interface to configure:"), + name => N("Select the network interface to configure:") . "\n\n" . N("Sorry, we support only 2.4 and above kernels."), data => sub { [ { label => N("Net Device"), type => "list", val => \$isdn_name, allow_empty_list => 1, list => [ $my_isdn, N("External ISDN modem"), keys %isdn_cards ] } ] @@ -627,6 +627,10 @@ killall pppd name => N("ADSL configuration") . "\n\n" . N("Select the network interface to configure:"), data => [ { label => N("Net Device"), type => "list", val => \$ntf_name, allow_empty_list => 1, list => \@adsl_devices, format => sub { $eth_intf{$_[0]} || $adsl_devices{$_[0]} } } ], + complete => sub { + $in->ask_warn(N("Warning"), N("Sorry, we support only 2.4 and above kernels.")); + return 0; + }, post => sub { my %packages = ( 'eci' => [ 'eciadsl', 'missing' ], -- cgit v1.2.1