diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-07 19:42:58 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-07 19:42:58 +0000 |
| commit | 6907585cf10bf56cc1d1124a6a909956c31e4139 (patch) | |
| tree | 887178b034f92ac14aaa953ab4bafa1f488e52c2 /perl-install/interactive_http.pm | |
| parent | 99d9dfd2992113e3162d7bc259b301a355738c4b (diff) | |
| download | drakx-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.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"; |