diff options
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"); } |