diff options
| author | damien <damien@mandriva.com> | 2001-06-11 15:44:18 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-06-11 15:44:18 +0000 |
| commit | d6f47e29221b0fb0c2248d47f0cc21031d5e330b (patch) | |
| tree | 4ab6e53df5588af8525acb98e13d8d18f163635f /perl-install/proxy.pm | |
| parent | 5c2593e870f59314c3d36572ff11669e6d9bfedc (diff) | |
| download | drakx-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.tar drakx-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.tar.gz drakx-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.tar.bz2 drakx-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.tar.xz drakx-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.zip | |
proxy
Diffstat (limited to 'perl-install/proxy.pm')
| -rw-r--r-- | perl-install/proxy.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/proxy.pm b/perl-install/proxy.pm new file mode 100644 index 000000000..e9d65bc80 --- /dev/null +++ b/perl-install/proxy.pm @@ -0,0 +1,12 @@ +package proxy; + +sub main { + my ($prefix, $in, $install) = @_; + begin: + $::Wizard_no_previous = 1; + $in->ask_okcancel(_("Proxy configuration"), _("blabla proxy"), 1) or quit_global($in, 0); + my $url = $in->ask_from_entry($url, _("foo"), _("url")); + print STDERR $url, "\n"; + undef $::Wizard_no_previous; + log::l("[drakproxy] Installation complete, exiting\n"); +} |