#!/usr/bin/perl
use strict;
use CGI qw!:standard!;
use utf8::all;;
use Parse::DSLUtils;

my $cgidir="/home/jj/public_html/bin/";
my $f=shift;
if($f =~ s!.*/(.+)!$1!){$cgidir = $1}

skimport();
open (F, ">", "$cgidir/$f") or die();

print F  nunocgi({
	ex1  => q{era uma\nvez, um gato\nMaltês\n},
	ex1t => q{gato},
	ex2  => q{rato\ne mais ratos\n},
	ex2t => q{rato},
	tit  => 'word countc',
    fields => "options: ".textfield('options'),
    inf  => "List of known ..." ,
#   perl => q{},
	perlcommand => q{
       sub{my($f)=@_; 
       my $a = param("options");
       `wc $a $f`}},
#	bashcommand => 'wc ',
});

close F;
chmod(0755,"$cgidir/$f");

__DATA__

__nunocgi__
#!/usr/bin/perl
[% default:{
  inf    => "",
  fields => "",
  perl   => "",
  perlcommand => "''",
  bashcommand => "",
  exs    => sub{my %A=@_;my $n=1;
    join(" |\n",
         map {$_?("<a href='javascript: load(".$n++.");'>$_</a>"):()} 
         ($A{ex1t},$A{ex2t},$A{ex3t},$A{ex4t},$A{ex5t}))},
  exdefs => sub{my %A=@_;my $n=1;
    join("\n",
         map {$_?("examples[".$n++."] = '$_';"):()}
         ($A{ex1},$A{ex2},$A{ex3},$A{ex4},$A{ex5}))},
} %]

use File::Slurp qw/write_file/;
use CGI qw':standard :cgi-lib';

print header(-charset => 'UTF-8');
print start_html( -encoding =>'UTF-8',
	          -title    => '"[% tit %]',
	          -author   =>'jj@di.uminho.pt',
	          -meta     =>{ 'charset'  =>'UTF-8'},),
      h1('[% tit %]'),"\n";

my $source = param('source') || '';
$source =~ s/io_ops//g;

print <<"HTML";
<style type="text/css">
h3 { background-color: #666; padding: 5px 5px 5px 20px; color: white; margin: 5px; }
</style>
<div style='width: 50%; float: left;'>
<h3>Source</h3>
<form method='post' style='margin: 5px;'>
  <textarea id='source' rows='25' style='width: 100%;' name='source'>$source</textarea><br>
  [% fields %]
  <input type='submit' value='  Execute  ' style='margin: 5px; width: 100%;'>
  <br><br>
  <span style='margin: 5px;'>Load examples: 
     [% exs %]
  </span>
</form>
</div>
HTML

if ($source) {
	my $rand = int(rand(10000));
	my $filename = "/tmp/$rand.txt";
    my $perlcommand = [% perlcommand %];
	write_file($filename, $source);
	my $result ;
    if($perlcommand){ $result = $perlcommand->($filename, Vars() ); }
    else { $result = `[% bashcommand %] $filename 2>&1`; }
	$result =~ s/\n/\\n\n/g;

	print <<"HTML";
  <div style='width: 50%; float: right;'>
  <h3>Result</h3>
  <pre style=" margin: 5px; border: solid 1px #333; background-color: #ccc; padding: 10px;">$result</pre>
  </div>
HTML
}

print<<'JS';

<script type='text/javascript'>
var examples = new Array();
[% exdefs %]

function load(n) {
  var el = document.getElementById('source');
  el.value = examples[n];
}
</script>
JS

print div({style=>'width: 100%; float: left;'},q{[% inf %]});
print end_html;

[% perl %]