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 $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";

    each_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} || N("Ok"));
    print $q->submit('-name' => 'cancel_submit', '-value' => $common->{cancel} || N("Cancel")) if $common->{cancel} || !exists $common->{ok};
    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(N("Error"));
	print $q->h1(N("Error")), $q->p("Sorry, you can't go back");
	goto redisplay;
    }
    each_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(N("Done"));
    print "\n" . CGI::p();
}

sub ok {
    N("Ok");
}

sub cancel {
    N("Cancel");
}


1;
ption value='user/animtim/designWork'>user/animtim/designWork</option>
<option value='user/colin/rescue-systemd'>user/colin/rescue-systemd</option>
<option value='user/ennael/mga6'>user/ennael/mga6</option>
<option value='user/erwan/bug-13680'>user/erwan/bug-13680</option>
<option value='user/jibz/aarch64'>user/jibz/aarch64</option>
<option value='user/martinw/mga6'>user/martinw/mga6</option>
<option value='user/pterjan/arm64'>user/pterjan/arm64</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Mageia Installer and base platform for many utilities</td><td class='sub right'>Thierry Vignaud [tv]</td></tr></table>
<table class='tabs'><tr><td>
<a href='/software/drakx/?h=17.25'>summary</a><a href='/software/drakx/refs/?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>refs</a><a href='/software/drakx/log/perl-install/Makefile.drakxtools?h=17.25'>log</a><a href='/software/drakx/tree/perl-install/Makefile.drakxtools?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>tree</a><a class='active' href='/software/drakx/commit/perl-install/Makefile.drakxtools?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>commit</a><a href='/software/drakx/diff/perl-install/Makefile.drakxtools?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>diff</a><a href='/software/drakx/stats/perl-install/Makefile.drakxtools?h=17.25'>stats</a></td><td class='form'><form class='right' method='get' action='/software/drakx/log/perl-install/Makefile.drakxtools'>
<input type='hidden' name='h' value='17.25'/><input type='hidden' name='id' value='092a51022843b9217bbbe8cbd2affc312450523e'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/software/drakx/commit/?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>root</a>/<a href='/software/drakx/commit/perl-install?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>perl-install</a>/<a href='/software/drakx/commit/perl-install/Makefile.drakxtools?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>Makefile.drakxtools</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='17.25'/><input type='hidden' name='id' value='092a51022843b9217bbbe8cbd2affc312450523e'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Pascal Rigaux &lt;pixel@mandriva.com&gt;</td><td class='right'>2004-02-08 17:50:15 +0000</td></tr>
<tr><th>committer</th><td>Pascal Rigaux &lt;pixel@mandriva.com&gt;</td><td class='right'>2004-02-08 17:50:15 +0000</td></tr>
<tr><th>commit</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/Makefile.drakxtools?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>092a51022843b9217bbbe8cbd2affc312450523e</a> (<a href='/software/drakx/patch/perl-install/Makefile.drakxtools?id=092a51022843b9217bbbe8cbd2affc312450523e'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='sha1'><a href='/software/drakx/tree/?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>9ae8eec1552f3d5c9ebfacf89c72db4c1d6907d8</a> /<a href='/software/drakx/tree/perl-install/Makefile.drakxtools?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e'>perl-install/Makefile.drakxtools</a></td></tr>
<tr><th>parent</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/Makefile.drakxtools?h=17.25&amp;id=5f68450cc9d2f7c543a5d3cd5b8351a83ddffb4b'>5f68450cc9d2f7c543a5d3cd5b8351a83ddffb4b</a> (<a href='/software/drakx/diff/perl-install/Makefile.drakxtools?h=17.25&amp;id=092a51022843b9217bbbe8cbd2affc312450523e&amp;id2=5f68450cc9d2f7c543a5d3cd5b8351a83ddffb4b'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='sha1'><a href='/software/drakx/snapshot/drakx-092a51022843b9217bbbe8cbd2affc312450523e.tar'>drakx-092a51022843b9217bbbe8cbd2affc312450523e.tar</a><br/><a href='/software/drakx/snapshot/drakx-092a51022843b9217bbbe8cbd2affc312450523e.tar.gz'>drakx-092a51022843b9217bbbe8cbd2affc312450523e.tar.gz</a><br/><a href='/software/drakx/snapshot/drakx-092a51022843b9217bbbe8cbd2affc312450523e.tar.bz2'>drakx-092a51022843b9217bbbe8cbd2affc312450523e.tar.bz2</a><br/><a href='/software/drakx/snapshot/drakx-092a51022843b9217bbbe8cbd2affc312450523e.tar.xz'>drakx-092a51022843b9217bbbe8cbd2affc312450523e.tar.xz</a><br/><a href='/software/drakx/snapshot/drakx-092a51022843b9217bbbe8cbd2affc312450523e.zip'>drakx-092a51022843b9217bbbe8cbd2affc312450523e.zip</a><br/></td></tr></table>
<div class='commit-subject'>