Games-Perlwar
1 match

 view release on metacpan or  search on metacpan

web/stylesheets/iteration2html.xps  view on Meta::CPAN 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<%

$t->{title}{showtag} = 0;
$t->set( 'log' => {
    pre => '<div name="log" class="log">',
    post => "</div>\n",
} );
$t->set( 'entry' => {
    pre => '<div class="entry">',
    post => '</div>',
} );

%>
<html>
<head>
<title>
    perlwar - <%~ /perlwar/configuration/title %>
</title>

<link REL="icon" HREF="/perlwar/perlwar.ico" />
<link REL="SHORTCUT ICON" HREF="/perlwar/perlwar.ico" />
<link rel="stylesheet" type="text/css" href="/perlwar/perlwar.css" />
<script type="text/javascript" src="/perlwar/perlwar.js" > </script>

</head>
<body>

<div style="background: url(/perlwar/line.png);" >
<h1>
    <%= apply_templates( '/perlwar/configuration/title' ) %>
</h1>
<img src="/perlwar/logo.png" alt="PerlWar" style="display: inline" />  
</div>

<div class="rightSide">

<div class="summary">
<div align="center">
    <% my $iteration = findvalue( '/perlwar/iteration/@nbr' ) || 0 %>
    iteration <%= $iteration  %>
</div>
<br/>
<%
	my %players = ( '' => { color => 'lightgrey' } );

    if ( $iteration > 0 ) {
        for( findnodes( '/perlwar/iteration/summary/player' ) ) {
            my $name = $_->findvalue('@name');
            $players{ $name  } = { color => $_->getAttribute( 'color' ) };
            $players{ $name }{status} = $_->getAttribute( 'status' );
            $players{ $name }{score} = $_->getAttribute( 'agents' );
        }   
    }
    else {
        if ( findvalue( '/perlwar/configuration/players/@list' ) 
                eq 'predefined' ) {
            for( findnodes( '/perlwar/configuration/players/player' ) ) {
                my $name = $_->findvalue('@name');
                $players{ $name  } = { color => $_->getAttribute( 'color' ) };



( run in 0.856 second using v1.01-cache-2.11-cpan-acf6aa7dc9e )