diff options
| author | damien <damien@mandriva.com> | 2001-06-11 16:17:21 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-06-11 16:17:21 +0000 |
| commit | 4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93 (patch) | |
| tree | 732c0932018dd3161cf989e7579e93653aa807cd /perl-install/proxy.pm | |
| parent | d332035481b7bc08edbd192e5c6c3d67dafcd19d (diff) | |
| download | drakx-4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93.tar drakx-4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93.tar.gz drakx-4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93.tar.bz2 drakx-4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93.tar.xz drakx-4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93.zip | |
updated
Diffstat (limited to 'perl-install/proxy.pm')
| -rw-r--r-- | perl-install/proxy.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/proxy.pm b/perl-install/proxy.pm index 04d5c0f68..f19ed4d82 100644 --- a/perl-install/proxy.pm +++ b/perl-install/proxy.pm @@ -1,12 +1,20 @@ package proxy; +use diagnostics; +use strict; +use run_program; +use common qw(:common :system :file); +use log; +use c; + 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"; + my $url; + my $e = $in->ask_from_entry($url, _("foo"), _("url")); + print "$url / $e \n"; undef $::Wizard_no_previous; log::l("[drakproxy] Installation complete, exiting\n"); } |