From 6907585cf10bf56cc1d1124a6a909956c31e4139 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Aug 2001 19:42:58 +0000
Subject: add interactive_http

---
 perl-install/interactive_http.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive_http.pm')

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";
 
-- 
cgit v1.2.1