1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
package proxy;
use diagnostics;
use strict;
use run_program;
use common qw(:common :system :file);
use log;
use c;
my $config_file = "/usr/lib/wgetrc";
sub main {
my ($prefix, $in, $install) = @_;
my $proxy_cfg = {};
# grab current config
open F, $config_file;
while (<F>)
{
if (/http_proxy = (http:.*):(.*)/)
{
$proxy_cfg->{http_url} = $1;
$proxy_cfg->{http_port} = $2;
}
if (/ftp_proxy = (ftp:.*):(.*)/)
{
$proxy_cfg->{ftp_url} = $1;
$proxy_cfg->{ftp_port} = $2;
}
/http_user = (.*)/ and $proxy_cfg->{login} = $1;
/http_passwd = (.*)/ and $proxy_cfg->{passwd} = $1;
/http_passwd = (.*)/ and $proxy_cfg->{passwd2} = $1;
}
begin:
$::isWizard = 1;
$::Wizard_no_previous = 1;
$in->ask_okcancel(_("Proxy configuration"),
_("Welcome to the proxy configuration utility.\n\nHere, you'll be able to set up your http and ftp proxies\nwith or without login and password\n"
), 1) or quit_global($in, 0);
# http proxy
step_http_proxy:
undef $::Wizard_no_previous;
$in->ask_from_entries_refH(_("Proxy configuration"),
_("Please fill in the http proxy informations"),
[
{ label => _("URL"), val => \$proxy_cfg->{http_url} },
{ label => _("port"), val => \$proxy_cfg->{http_port} }
]
) or goto begin;
if ($proxy_cfg->{http_url} && $proxy_cfg->{http_url} !~ /^http:/)
{
$in->ask_warn('', _("Url should begin with 'http:'"));
goto step_http_proxy;
}
if ($proxy_cfg->{http_port} && $proxy_cfg->{http_port} !~ /^\d+$/)
{
$in->ask_warn('', _("The port part should be numeric"));
goto step_http_proxy;
}
# ftp proxy
step_ftp_proxy:
$in->ask_from_entries_refH(_("Proxy configuration"),
_("Please fill in the ftp proxy informations"),
[
{ label => _("URL"), val => \$proxy_cfg->{ftp_url} },
{ label => _("port"), val => \$proxy_cfg->{ftp_port} }
]
) or goto step_http_proxy;
if ($proxy_cfg->{ftp_url} && $proxy_cfg->{ftp_url} !~ /^ftp:/)
{
$in->ask_warn('', _("Url should begin with 'ftp:'"));
goto step_ftp_proxy;
}
if ($proxy_cfg->{ftp_port} && $proxy_cfg->{ftp_port} !~ /^\d+$/)
{
$in->ask_warn('', _("The port part should be numeric"));
goto step_ftp_proxy;
}
# proxy login/passwd
step_login:
$in->ask_from_entries_refH(_("Proxy configuration"),
_("Please enter proxy login and password, if any.\nLeave it blank if you don't want login/passwd"),
[
{ label => _("login"), val => \$proxy_cfg->{login} },
{ label => _("password"), val => \$proxy_cfg->{passwd}, hidden => 1 },
{ label => _("re-type password"), val => \$proxy_cfg->{passwd2}, hidden => 1 }
]
) or goto step_ftp_proxy;
if ($proxy_cfg->{passwd} ne $proxy_cfg->{passwd2})
{
$in->ask_warn('', _("The passwords don't match. Try again!"));
goto step_login;
}
# save config
substInFile { s/^http_proxy.*\n//; $_ .= "http_proxy = $proxy_cfg->{http_url}:$proxy_cfg->{http_port}\n" if eof } $config_file;
substInFile { s/^ftp_proxy.*\n//; $_ .= "ftp_proxy = $proxy_cfg->{ftp_url}:$proxy_cfg->{ftp_port}\n" if eof } $config_file;
if ($proxy_cfg->{login})
{
substInFile { s/^http_user.*\n//; $_ .= "http_user = $proxy_cfg->{login}\n" if eof } $config_file;
substInFile { s/^http_passwd.*\n//; $_ .= "http_passwd = $proxy_cfg->{passwd}\n" if eof } $config_file;
}
log::l("[drakproxy] Installation complete, exiting\n");
}
#---------------------------------------------
# WONDERFULL pad
#---------------------------------------------
1;
|
