summaryrefslogtreecommitdiffstats
path: root/perl-install/proxy.pm
diff options
context:
space:
mode:
authorDavid Odin <odin@mandriva.org>2001-06-13 16:12:48 +0000
committerDavid Odin <odin@mandriva.org>2001-06-13 16:12:48 +0000
commite0a2c01dea7bd9026f38f7557ec5187d630b3640 (patch)
tree708e2f3b4173a6ca212a370f257becaec97bbeda /perl-install/proxy.pm
parent1d6a74491f39666d11bd25c3ac890a50daf38205 (diff)
downloaddrakx-backup-do-not-use-e0a2c01dea7bd9026f38f7557ec5187d630b3640.tar
drakx-backup-do-not-use-e0a2c01dea7bd9026f38f7557ec5187d630b3640.tar.gz
drakx-backup-do-not-use-e0a2c01dea7bd9026f38f7557ec5187d630b3640.tar.bz2
drakx-backup-do-not-use-e0a2c01dea7bd9026f38f7557ec5187d630b3640.tar.xz
drakx-backup-do-not-use-e0a2c01dea7bd9026f38f7557ec5187d630b3640.zip
small fixes
Diffstat (limited to 'perl-install/proxy.pm')
-rw-r--r--perl-install/proxy.pm19
1 files changed, 11 insertions, 8 deletions
diff --git a/perl-install/proxy.pm b/perl-install/proxy.pm
index 652388a83..9d423fd1e 100644
--- a/perl-install/proxy.pm
+++ b/perl-install/proxy.pm
@@ -15,11 +15,13 @@ sub main {
# grab current config
foreach (cat_($config_file)) {
- ($proxy_cfg->{http_url}, $proxy_cfg->{http_port}) = /http_proxy = (http:.*):(.*)/;
- ($proxy_cfg->{ftp_url}, $proxy_cfg->{ftp_port}) = /ftp_proxy = (ftp:.*):(.*)/;
- ($proxy_cfg->{login}) = /http_user = (.*)/;
- ($proxy_cfg->{passwd}) = /http_passwd = (.*)/;
- ($proxy_cfg->{passwd2}) = /http_passwd = (.*)/;
+ /http_proxy = (http:.*):(\d+)/ and ($proxy_cfg->{http_url}, $proxy_cfg->{http_port}) = ($1, $2);
+ /ftp_proxy = (ftp:.*):(\d+)/ and ($proxy_cfg->{ftp_url}, $proxy_cfg->{ftp_port}) = ($1, $2);
+ /http_user = (.*)/ and ($proxy_cfg->{login}) = $1;
+ if (/http_passwd = (.*)/) {
+ ($proxy_cfg->{passwd}) = $1;
+ ($proxy_cfg->{passwd2}) = $1;
+ }
}
begin:
$::isWizard = 1;
@@ -31,9 +33,9 @@ sub main {
# http proxy
step_http_proxy:
undef $::Wizard_no_previous;
- $proxy_cfg->{http_url} ||= "http:";
+ $proxy_cfg->{http_url} ||= "http://www.proxy.com/";
$in->ask_from_entries_refH(_("Proxy configuration"),
- _("Please fill in the http proxy informations"),
+ _("Please fill in the http proxy informations\nLeave it blank if you don't want an http proxy"),
[ { label => _("URL"), val => \$proxy_cfg->{http_url} },
{ label => _("port"), val => \$proxy_cfg->{http_port} }
],
@@ -52,8 +54,9 @@ sub main {
# ftp proxy
step_ftp_proxy:
+ $proxy_cfg->{ftp_url} ||= "ftp://ftp.proxy.com/";
$in->ask_from_entries_refH(_("Proxy configuration"),
- _("Please fill in the ftp proxy informations"),
+ _("Please fill in the ftp proxy informations\nLeave it blank if you don't want an ftp proxy"),
[ { label => _("URL"), val => \$proxy_cfg->{ftp_url} },
{ label => _("port"), val => \$proxy_cfg->{ftp_port} }
],