mason/dhandler: Bring not-found handling into the dhandler.

[bridge-toys] / mason / dhandler

<!-- -*-html-*-
  -
  - Generate a dealing list for a single hand
  -
  - (c) 2013 Mark Wooding
 -->

<table class=deal>\
<%perl>
	my @line = Deal::line;
	my ($row, $col, $box) = (0, 0, 0);
	for (my $i = 0; $i < @line; $i++) {
	  if ($col) {
	    $m->out(" ");
	  } else {
	    if (!$box) {
	      my $class =
		$row == 0 ? "first" :
		$i + $nrow*$nbox >= @line ? "last" :
		"mid";
	      $m->out("\n<tr class=$class>");
	    }
	    my $class = ($box + $row)%2 ? "odd " : "even";
	    $m->out("\n  <td class=$class>");
	  }
	  $m->out($line[$i]);
	  $col++;
	  if ($col >= $nbox) { $col = 0; $box++; }
	  if ($box >= $nrow) { $box = 0; $row++; }
	}
	$m->out("\n");
</%perl>
</table>
%#
<%flags>
	inherit => "%html"
</%flags>
%#
<%args>
	$nbox => 4
	$nrow => 4
</%args>
%#
<%method title>\
% if ($fail) {
Not found\
% } else {
Single hand\
% }
</%method>
%#
<%def .not-found>
<h1>Not found</h1>
Failed to find &lsquo;<code><% $what |h %></code>&rsquo;.
% return 404;
<%args>
	$what
</%args>
</%def>
%#
<%once>
	use Deal;
</%once>
%#
<%shared>
	my $fail = ($m->dhandler_arg ne "");
</%shared>
%#
<%init>
	return $m->comp(".not-found", what => $m->dhandler_arg)
	  if $fail;
</%init>