diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-19 16:39:30 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-19 16:39:30 +0000 |
| commit | f78a3a291053772fb86953c8bb879c817b1cf99a (patch) | |
| tree | a026948222f25c5155cc8b9d5de57840f80b408f /perl-install | |
| parent | c3b1997c49e96ce1e11a1b030ef92e7494db2373 (diff) | |
| download | drakx-f78a3a291053772fb86953c8bb879c817b1cf99a.tar drakx-f78a3a291053772fb86953c8bb879c817b1cf99a.tar.gz drakx-f78a3a291053772fb86953c8bb879c817b1cf99a.tar.bz2 drakx-f78a3a291053772fb86953c8bb879c817b1cf99a.tar.xz drakx-f78a3a291053772fb86953c8bb879c817b1cf99a.zip | |
add proper window title
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index b9d51d6cc..f641e1dcb 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -614,10 +614,10 @@ notation (for example, 1.2.3.4).")), $netc->{DHCP} = $auto_ip; return 0 if $auto_ip; if (my @bad = map_index { if_(!is_ip($ethntf->{$_}), $::i) } @fields) { - $in->ask_warn('', N("IP address should be in format 1.2.3.4")); + $in->ask_warn(N("Error"), N("IP address should be in format 1.2.3.4")); return 1, $bad[0]; } - $in->ask_warn('', N("Warning : IP address %s is usually reserved !", $ethntf->{IPADDR})) if is_ip_forbidden($ethntf->{IPADDR}); + $in->ask_warn(N("Error"), N("Warning : IP address %s is usually reserved !", $ethntf->{IPADDR})) if is_ip_forbidden($ethntf->{IPADDR}); }, focus_out => sub { $ethntf->{NETMASK} ||= netmask($ethntf->{IPADDR}) unless $_[0] @@ -695,11 +695,11 @@ See iwpriv(8) man page for further information."), ], complete => sub { if ($ethntf->{WIRELESS_FREQ} !~ /[0-9.]*[kGM]/) { - $in->ask_warn('', N("Freq should have the suffix k, M or G (for example, \"2.46G\" for 2.46 GHz frequency), or add enough '0' (zeroes).")); + $in->ask_warn(N("Error"), N("Freq should have the suffix k, M or G (for example, \"2.46G\" for 2.46 GHz frequency), or add enough '0' (zeroes).")); return 1, 6; } if ($ethntf->{WIRELESS_RATE} !~ /[0-9.]*[kGM]/) { - $in->ask_warn('', N("Rate should have the suffix k, M or G (for example, \"11M\" for 11M), or add enough '0' (zeroes).")); + $in->ask_warn(N("Error"), N("Rate should have the suffix k, M or G (for example, \"11M\" for 11M), or add enough '0' (zeroes).")); return 1, 8; } }, @@ -717,7 +717,7 @@ See iwpriv(8) man page for further information."), modules::interactive::load_category($in, 'network/main|gigabit|usb', !$::expert, 1); @all_cards = conf_network_card_backend($netc, $intf, $type, undef, $ipadr, $netadr) or # FIXME: fix this - $in->ask_warn('', N("No ethernet network adapter has been detected on your system. + $in->ask_warn(N("Error"), N("No ethernet network adapter has been detected on your system. I cannot set up this connection type.")), return; }, @@ -767,7 +767,7 @@ You may also enter the IP address of the gateway if you have one."), } } if ($netc->{GATEWAY} && !is_ip($netc->{GATEWAY})) { - $in->ask_warn('', N("Gateway address should be in format 1.2.3.4")); + $in->ask_warn(N("Error"), N("Gateway address should be in format 1.2.3.4")); return 1; } }, @@ -784,7 +784,7 @@ You may also enter the IP address of the gateway if you have one."), data => [ { label => N("Zeroconf Host name"), val => \$netc->{ZEROCONF_HOSTNAME} } ], complete => sub { if ($netc->{ZEROCONF_HOSTNAME} =~ /\./) { - $in->ask_warn('', N("Zeroconf host name must not contain a .")); + $in->ask_warn(N("Error"), N("Zeroconf host name must not contain a .")); return 1; } }, |