summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-06-11 15:44:18 +0000
committerdamien <damien@mandriva.com>2001-06-11 15:44:18 +0000
commitd6f47e29221b0fb0c2248d47f0cc21031d5e330b (patch)
tree4ab6e53df5588af8525acb98e13d8d18f163635f /perl-install
parent5c2593e870f59314c3d36572ff11669e6d9bfedc (diff)
downloaddrakx-backup-do-not-use-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.tar
drakx-backup-do-not-use-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.tar.gz
drakx-backup-do-not-use-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.tar.bz2
drakx-backup-do-not-use-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.tar.xz
drakx-backup-do-not-use-d6f47e29221b0fb0c2248d47f0cc21031d5e330b.zip
proxy
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/proxy.pm12
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");
+}