#!/usr/bin/perl

use CGI ':standard';
use lib '.';
require 'enumeration.pl';
#$\ = "\n";


print "Content-type: text/html\n\n";

my $N = param('N');
my $S = param('S');
exit if $N =~ /[^\d\s]/ || $S =~ /[^\d\s]/;

my $sort = param('s');
open LOG, ">>", "./tabulate-dice.log";
print LOG time(), " $ENV{REMOTE_ADDR} N=$N S=$S\n"
  if $ENV{REMOTE_ADDR} && $ENV{REMOTE_ADDR} !~ /^192\.168/;

unless (defined $N) {
  print <<EOM;
<form method=POST action="$ENV{SCRIPT_URL}">
<input type=text size=2 maxsize=2 name=N value=5> Number of 
<input type=text size=2 maxsize=2 name=S value=6>-sided dice.<p>

Sort by <input type=radio checked name=s value="1">frequency
<input type=radio name=s value="0">pattern<p>

<input type=submit value="Calculate">
</form>
EOM
  exit;
}

my %dice = (6 => [qw(die dice)], 
            2 => [qw(coin coins)],
            13 => [qw(card cards)],
            8 => [qw(octohedron octohedra)],
            4 => [qw(tetrahedron tetrahedra)],
            12 => [qw(dodecahedron dodecahedra)],
            20 => [qw(icosahedron icosahedra)],
           );
my ($die, $dice) = @{$dice{$S} || ["$S-sided die", "$S-sided dice"]};

toobig() if $S > 26 && $N  > 26 ;
toobig() if $S**$N < 0;
  my @lines = gen_table($N, $S);
  @lines = sort {$b->[1] <=> $a->[1] || $a->[0] cmp $b->[0]} @lines
    if $sort;

print "<table cellspacing=0>";
  print $N == 1 ? "<tr bgcolor='pink'><td colspan=6>One $die\n" 
                : "<tr bgcolor='pink'><td colspan=6>$N $dice\n\n";


  my $gray = 0;
  my $pct = "%";
  toobig() if grep $_->[1] < 0, @lines;

  for my $line (@lines) {
    my ($pat, $f) = @$line;
    my $bgcolor = $gray ? qq{bgcolor="#e3e3e3"} : "";
    my $prob = $f/($S**$N) * 100;
    my $pi = int($prob);
    my $pf = $prob - $pi;
    my $p = sprintf (($pi ? "%.3f" : "%.3g"), $pf);
    $p =~ s/^0+//;
    $p =~ s/0+$//;
    $pi = "&nbsp;" if $pf =~ /e/;
    printf "<tr $bgcolor><td>&nbsp;<td>%12s <td align=right>%s&nbsp; <td
  align=right>%s<td>%s <td>%s\n", $pat, $f, $pi, $p, $pct;
    $gray = 1 - $gray;
    $pct = "&nbsp;";
  }
  print "</table>";

sub toobig {
  print "<h1>Too big</h1>"; exit;
}