summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_http.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-07-23 10:35:55 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-07-23 10:35:55 +0000
commit6ed6b5341362f87e3c70420f206a33f71c72a3de (patch)
treeff028b5845f88d0a485f8c20ae726e462627aa59 /perl-install/interactive_http.pm
parente2889facfca0f6c6f64e2194f913a6b525f255e0 (diff)
downloaddrakx-backup-do-not-use-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar
drakx-backup-do-not-use-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar.gz
drakx-backup-do-not-use-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar.bz2
drakx-backup-do-not-use-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar.xz
drakx-backup-do-not-use-6ed6b5341362f87e3c70420f206a33f71c72a3de.zip
- Big Move 1: interactive::* hierarchy
Diffstat (limited to 'perl-install/interactive_http.pm')
-rw-r--r--perl-install/interactive_http.pm159
1 files changed, 0 insertions, 159 deletions
diff --git a/perl-install/interactive_http.pm b/perl-install/interactive_http.pm
deleted file mode 100644
index 18bff77fe..000000000
--- a/perl-install/interactive_http.pm
+++ /dev/null
@@ -1,159 +0,0 @@
-package interactive_http; # $Id$
-
-use diagnostics;
-use strict;
-use vars qw(@ISA);
-
-@ISA = qw(interactive);
-
-use CGI;
-use interactive;
-use common;
-use log;
-
-my $script_name = $ENV{INTERACTIVE_HTTP};
-my $no_header;
-my $uid;
-my $pipe_r = "/tmp/interactive_http_r";
-my $pipe_w = "/tmp/interactive_http_w";
-
-sub open_stdout {
- open STDOUT, ">$pipe_w" or die;
- $| = 1;
- print CGI::header();
- $no_header = 1;
-}
-
-# cont_stdout must be called after open_stdout and before the first print
-sub cont_stdout {
- my ($title) = @_;
- print CGI::start_html(-title => $title) if $no_header;
- $no_header = 0;
-}
-
-sub new_uid {
- my ($s, $ms) = gettimeofday();
- $s * 256 + $ms % 256;
-}
-
-sub new() {
- open_stdout();
- bless {}, $_[0];
-}
-
-sub end() {
- -e $pipe_r or return; # don't run this twice
- my $q = CGI->new;
- cont_stdout("Exit");
- print "It's done, thanks for playing", $q->end_html;
- close STDOUT;
- unlink $pipe_r, $pipe_w;
-}
-sub exit() { end; exit($_[1]) }
-END { end() }
-
-sub ask_fromW {
- my ($o, $common, $l, $l2) = @_;
-
- redisplay:
- my $uid = new_uid();
- my $q = CGI->new;
- $q->param(state => 'next_step');
- $q->param(uid => $uid);
- cont_stdout($common->{title});
-
-# print $q->img({ -src => "/icons/$o->{icon}" }) if $o->{icon};
- print @{$common->{messages}};
- print $q->start_form(-name => 'form', -action => $script_name, -method => 'post');
-
- print "<table>\n";
-
- map_index {
- my $e = $_;
-
- print "<tr><td>$e->{label}</td><td>\n";
-
- $e->{type} = 'list' if $e->{type} =~ /(icon|tree)list/;
-
- #- combo doesn't exist, fallback to a sensible default
- $e->{type} = $e->{not_edit} ? 'list' : 'entry' if $e->{type} eq 'combo';
-
- if ($e->{type} eq 'bool') {
- print $q->checkbox(-name => "w$::i", -checked => ${$e->{val}} && 'on', -label => $e->{text} || " ");
- } elsif ($e->{type} eq 'button') {
- print "nobuttonyet";
- } elsif ($e->{type} =~ /list/) {
- my %t;
- $t{$_} = may_apply($e->{format}, $_) foreach @{$e->{list}};
-
- print $q->scrolling_list(-name => "w$::i",
- -values => $e->{list},
- -default => [ ${$e->{val}} ],
- -size => 5, -multiple => '', -labels => \%t);
- } else {
- print $e->{hidden} ?
- $q->password_field(-name => "w$::i", -default => ${$e->{val}}) :
- $q->textfield (-name => "w$::i", -default => ${$e->{val}});
- }
-
- print "</td></tr>\n";
- } @$l;
-
- print "</table>\n";
- print $q->p();
- print $q->submit(-name => 'ok_submit', -value => $common->{ok} || _("Ok"));
- print $q->submit(-name => 'cancel_submit', -value => $common->{cancel}) if $common->{cancel};
- print $q->hidden('state'), $q->hidden('uid');
- print $q->end_form, $q->end_html;
-
- close STDOUT; # page terminated
-
- while (1) {
- local *F;
- open F, "<$pipe_r" or die;
- $q = CGI->new(\*F);
- $q->param('force_exit_dead_prog') and $o->exit;
- last if $q->param('uid') == $uid;
-
- open_stdout(); # re-open for writing
- cont_stdout(_("Error"));
- print $q->h1(_("Error")), $q->p("Sorry, you can't go back");
- goto redisplay;
- }
- map_index {
- my $e = $_;
- my $v = $q->param("w$::i");
- if ($e->{type} eq 'bool') {
- $v = $v eq 'on';
- }
- ${$e->{val}} = $v;
- } @$l;
-
- open_stdout(); # re-open for writing
- $q->param('ok_submit');
-}
-
-sub p {
- print "\n" . CGI::br($_) foreach @_;
-}
-
-sub wait_messageW {
- my ($o, $title, $messages) = @_;
- cont_stdout();
- print "\n" . CGI::p();
- p(@$messages);
-}
-
-sub wait_message_nextW {
- my ($o, $messages, $w) = @_;
- p(@$messages);
-}
-sub wait_message_endW {
- my ($o, $w) = @_;
- p(_("Done"));
- print "\n" . CGI::p();
-}
-
-
-
-1;