drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

path: root/perl-install/standalone/service_harddrake_confirm

diff options

author	Thierry Vignaud <thierry.vignaud@gmail.com>	2016-03-21 09:30:27 +0100
committer	Thierry Vignaud <thierry.vignaud@gmail.com>	2016-03-21 10:31:37 +0100
commit	7860d3a5722447a5c3ce2b5fceb6812221a58517 (patch)
tree	d8d6c5a0aa98cb81279e6e91f311a7dcaa6d04f0 /perl-install/standalone/service_harddrake_confirm
parent	dd184c7d5b7e8380b7fdc951ba5209ea96f1ed47 (diff)
download	drakx-7860d3a5722447a5c3ce2b5fceb6812221a58517.tar drakx-7860d3a5722447a5c3ce2b5fceb6812221a58517.tar.gz drakx-7860d3a5722447a5c3ce2b5fceb6812221a58517.tar.bz2 drakx-7860d3a5722447a5c3ce2b5fceb6812221a58517.tar.xz drakx-7860d3a5722447a5c3ce2b5fceb6812221a58517.zip

we need to 'use' not just 'require' Gtk3::WebKit2

Diffstat (limited to 'perl-install/standalone/service_harddrake_confirm')

0 files changed, 0 insertions, 0 deletions

lass="hl kwb">$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; $::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); # http proxy step_http_proxy: undef $::Wizard_no_previous; $proxy_cfg->{http_url} ||= "http://www.proxy.com/"; $in->ask_from(_("Proxy configuration"), _("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} } ], complete => sub { if ($proxy_cfg->{http_url} && $proxy_cfg->{http_url} !~ /^http:/) { $in->ask_warn('', _("Url should begin with 'http:'")); return (1,0); } if ($proxy_cfg->{http_port} && $proxy_cfg->{http_port} !~ /^\d+$/) { $in->ask_warn('', _("The port part should be numeric")); return (1,1); } 0; } ) or goto begin; # ftp proxy step_ftp_proxy: $proxy_cfg->{ftp_url} ||= "ftp://ftp.proxy.com/"; $in->ask_from(_("Proxy configuration"), _("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} } ], complete => sub { if ($proxy_cfg->{ftp_url} && $proxy_cfg->{ftp_url} !~ /^ftp:/) { $in->ask_warn('', _("Url should begin with 'ftp:'")); return (1,0); } if ($proxy_cfg->{ftp_port} && $proxy_cfg->{ftp_port} !~ /^\d+$/) { $in->ask_warn('', _("The port part should be numeric")); return (1,1); } 0; } ) or goto step_http_proxy; # proxy login/passwd step_login: $in->ask_from(_("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 } ], complete => sub { if ($proxy_cfg->{passwd} ne $proxy_cfg->{passwd2}) { $in->ask_warn('', _("The passwords don't match. Try again!")); return(1,1); } 0; } ) or goto step_ftp_proxy; # save config substInFile { s/^(http|ftp)_proxy.*\n//; eof and $_ .= "http_proxy = $proxy_cfg->{http_url}:$proxy_cfg->{http_port} ftp_proxy = $proxy_cfg->{ftp_url}:$proxy_cfg->{ftp_port}\n"; } $config_file; $proxy_cfg->{login} and substInFile { s/^http_(user|passwd).*\n//; eof and $_ .= "http_user = $proxy_cfg->{login} http_passwd = $proxy_cfg->{passwd}\n" } $config_file; log::l("[drakproxy] Installation complete, exiting\n"); } #--------------------------------------------- # WONDERFULL pad #--------------------------------------------- 1;


context:
space:
mode: