summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_http.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-07 19:42:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-07 19:42:58 +0000
commit6907585cf10bf56cc1d1124a6a909956c31e4139 (patch)
tree887178b034f92ac14aaa953ab4bafa1f488e52c2 /perl-install/interactive_http.pm
parent99d9dfd2992113e3162d7bc259b301a355738c4b (diff)
downloaddrakx-6907585cf10bf56cc1d1124a6a909956c31e4139.tar
drakx-6907585cf10bf56cc1d1124a6a909956c31e4139.tar.gz
drakx-6907585cf10bf56cc1d1124a6a909956c31e4139.tar.bz2
drakx-6907585cf10bf56cc1d1124a6a909956c31e4139.tar.xz
drakx-6907585cf10bf56cc1d1124a6a909956c31e4139.zip
add interactive_http
Diffstat (limited to 'perl-install/interactive_http.pm')
-rw-r--r--perl-install/interactive_http.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/interactive_http.pm b/perl-install/interactive_http.pm
index 2bf8ab616..a30b882f5 100644
--- a/perl-install/interactive_http.pm
+++ b/perl-install/interactive_http.pm
@@ -11,6 +11,7 @@ use interactive;
use common;
use log;
+my $script_name = $ENV{INTERACTIVE_HTTP};
my $no_header;
my $uid;
my $pipe_r = "/tmp/interactive_http_r";
@@ -63,7 +64,7 @@ sub ask_from_entries_refW {
# print $q->img({ -src => "/icons/$o->{icon}" }) if $o->{icon};
print @{$common->{messages}};
- print $q->start_form(-name => 'form', -action => '/cgi-bin/interactive_http', -method => 'get');
+ print $q->start_form(-name => 'form', -action => $script_name, -method => 'post');
print "<table>\n";