<% $t->{title}{showtag} = 0; -%> perlwar : <%= findvalue( '//configuration/title/text()' ) %>

PerlWar : <%= findvalue( '//configuration/title/text()' ) %>

<% use Games::PerlWar; %>

using Perlwar version <%= $Games::PerlWar::VERSION %>

settings

Game length
<%= findvalue( '//configuration/gameLength/text()' ) %> iterations
Array size
<%= findvalue( '//configuration/theArraySize/text()' ) %> cells
Agent maximal size
<%= findvalue( '//configuration/agentMaxSize/text()' ) %> characters
<% if ( my $m = findvalue( '//configuration/mamboDecrement/text()' ) ) { %>
mambo option
enabled
mambo decrement per turn
<%= $m %>
<% } %>
<% if ( my $n = findvalue( '//configuration/note/text()' ) ) { %>

notes

<%= $n %>
<% } %>

Current Status

Current iteration
<%= findvalue( '//iteration/@nbr' ) %>
Game status
<%= findvalue( '//iteration/summary/gameStatus/text()' ) %>
<% if ( $adhoc = findvalue( '//players/@list' ) eq 'adhoc' ) { @players = findnodes( '//iteration/summary/player' ); } else { @players = findnodes( '//configuration/players/player' ); } %>

Players <%= '(ad hoc mode)' x !!$adhoc %>

<% for my $p ( @players ) { %>
<%= $p->findvalue( '@name' ) %>
<%= $p->findvalue( '@status' ) || 'active' %>
<% } %>

main page