diff options
Diffstat (limited to 'perl-install/interactive_http.pm')
| -rw-r--r-- | perl-install/interactive_http.pm | 3 |
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"; |