-[- use FROGS::Config qw($conf); -]
<html>
<head><link rel="stylesheet" type="text/css" href="aymargeddon.css">
<title>Aymargeddon</title></head>
$udat{-current} = 'player.epl';
use Aymargeddon;
- use Data::Dumper;
+ # use Data::Dumper;
$db = DataBase->new();
$id = 0;
if($udat{-id}){
($udat{-lang}) = $db->read_player($id,'LANGUAGE');
}
- $escmode = 0;
+ $escmode = 0;
- # TODO: klappt nich :-(
+ # TODO: klappt nich weil $::conf nicht funktioniert im Embperl :-(
# $out = '<body style="font-size:10pt" bgcolor="'.$conf->{-COLOR}->{-EMPTY}.'">';
$out = '<body style="line-height:12pt;font-size:10pt">';
-]
for $og (@$open_games){
push @real_open_games, $og unless exists $such{$og->[0]};
}
- Util::log("real open games: ". Dumper(\@real_open_games), 2);
+ # Util::log("real open games: ". Dumper(\@real_open_games), 2);
($rn) = $db->read_player($id, 'REALNAME') unless exists $udat{-game};
-]