summaryrefslogtreecommitdiffstats
path: root/perl-install/proxy.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/proxy.pm')
-rw-r--r--perl-install/proxy.pm12
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");
}