diff options
| -rw-r--r-- | perl-install/network/network.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index abd0cf486..dbe536810 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -313,6 +313,23 @@ sub gateway { join(".", @masked); } +sub miscellaneous_choose { + my ($in, $u) = @_; + + $in->ask_from('', + N("Proxies configuration"), + [ { label => N("HTTP proxy"), val => \$u->{http_proxy} }, + { label => N("FTP proxy"), val => \$u->{ftp_proxy} }, + ], + complete => sub { + $u->{http_proxy} =~ m,^($|http://), or $in->ask_warn('', N("Proxy should be http://...")), return 1,0; + $u->{ftp_proxy} =~ m,^($|ftp://|http://), or $in->ask_warn('', N("URL should begin with 'ftp:' or 'http:'")), return 1,1; + 0; + } + ) or return; + 1; +} + sub proxy_configure { my ($u) = @_; setExportedVarsInSh("$::prefix/etc/profile.d/proxy.sh", $u, qw(http_proxy ftp_proxy)); |