summaryrefslogtreecommitdiffstats
path: root/perl-install/proxy.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-06-11 16:17:21 +0000
committerdamien <damien@mandriva.com>2001-06-11 16:17:21 +0000
commit4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93 (patch)
tree732c0932018dd3161cf989e7579e93653aa807cd /perl-install/proxy.pm
parentd332035481b7bc08edbd192e5c6c3d67dafcd19d (diff)
downloaddrakx-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.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");
}