diff options
| author | damien <damien@mandriva.com> | 2000-09-26 16:11:04 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2000-09-26 16:11:04 +0000 |
| commit | 5088bd44d2469cbcd9e58ee8f6cae74bc9e43cfd (patch) | |
| tree | 40d7cbe552667982960cb77a93b101f6c82d3558 | |
| parent | d6c00adf084ea92e1db0735ea8f0a19157882391 (diff) | |
| download | drakx-backup-do-not-use-5088bd44d2469cbcd9e58ee8f6cae74bc9e43cfd.tar drakx-backup-do-not-use-5088bd44d2469cbcd9e58ee8f6cae74bc9e43cfd.tar.gz drakx-backup-do-not-use-5088bd44d2469cbcd9e58ee8f6cae74bc9e43cfd.tar.bz2 drakx-backup-do-not-use-5088bd44d2469cbcd9e58ee8f6cae74bc9e43cfd.tar.xz drakx-backup-do-not-use-5088bd44d2469cbcd9e58ee8f6cae74bc9e43cfd.zip | |
set help.
| -rw-r--r-- | perl-install/help.pm | 5 | ||||
| -rw-r--r-- | perl-install/network.pm | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/help.pm b/perl-install/help.pm index e6ff5342b..294765557 100644 --- a/perl-install/help.pm +++ b/perl-install/help.pm @@ -347,7 +347,10 @@ you select the option \"Automatic IP\" below. \"IP address\". If you don't know or are not sure if you need to select this option, ask your network administrator."), configureNetworkHost => __("You may now enter your host name if needed. If you -don't know or are not sure what to enter, ask yout network administrator."), +don't know or are not sure what to enter, ask your network administrator."), + +configureNetworkHostDHCP => __("You may now enter your host name if needed. If you +don't know or are not sure what to enter, leave blank."), configureNetworkISP => __("You may now enter dialup options. If you're not sure what to enter, the diff --git a/perl-install/network.pm b/perl-install/network.pm index bfc94ed96..75d29537f 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -267,6 +267,7 @@ sub configureNetwork { #- } if ($last->{BOOTPROTO} =~ /^(dhcp|bootp)$/) { my $dhcp_hostname = $netc->{HOSTNAME}; + $::isInstall and $in->set_help('configureNetworkHostDHCP'); $in->ask_from_entries_ref(_("Configuring network"), _("Please enter your host name if you know it. Some DHCP servers require the hostname to work. @@ -328,6 +329,7 @@ sub configureNetworkNet { $netc->{dnsServer} ||= dns($intf->{IPADDR}); $netc->{GATEWAY} ||= gateway($intf->{IPADDR}); + $::isInstall and $in->set_help('configureNetworkHost'); $in->ask_from_entries_refH(_("Configuring network"), _("Please enter your host name. Your host name should be a fully-qualified host name, @@ -344,7 +346,7 @@ You may also enter the IP address of the gateway if you have one"), sub miscellaneousNetwork { my ($in, $clicked) = @_; my $u = $::o->{miscellaneous} ||= {}; - $::isStandalone or $in->set_help('configureNetworkProxy'); + $::isInstall and $in->set_help('configureNetworkProxy'); !$::beginner || $clicked and $in->ask_from_entries_ref('', _("Proxies configuration"), [ _("HTTP proxy"), |