[- use FROGS::Config qw($conf); -]
"; } } # delete all messages if wanted. # TODO: write timestamp in link and delete only to this time if($fdat{delete_all_messages} == 1){ $aym->delete_all_messages($fdat{time}); $db->commit(); } Execute("menu.epl"); $own_games = $db->games_of_player($id); $open_games = $db->open_games("HOME=-1"); %such = (); for my $og (@$own_games){ $such{$og->[0]} = 1; } @real_open_games = (); for $og (@$open_games){ push @real_open_games, $og unless exists $such{$og->[0]}; } ($rn) = $db->read_player($id, 'REALNAME') unless exists $udat{-game}; -] [$ if not exists $udat{-game} $]
[$ endif $]
[+ $db->loc('PLAYER_OWN_GAMES') +] [$ foreach $og (@$own_games) $] [- $og = $og->[0]; ($og_name) = $db->read_game($og,'NAME'); -] [+$og_name+] [$ endforeach $] [$ if $#{@$own_games} < 0 $] [+ $db->loc('PLAYER_GAMES_NONE') +] [$ endif $] [+ $db->loc('PLAYER_OPENGAMES') +]: [$ foreach $og (@real_open_games) $] [- $og=$og->[0]; ($og_name) = $db->read_game($og,'NAME'); -] [+$og_name+] [$ endforeach $] [$ if $#{@real_open_games} < 0 $] [+ $db->loc('PLAYER_GAMES_NONE') +] [$ endif $] |
[$ if not exists $udat{-game} $]
[+ $db->loc('PLAYER_CHOOSE_GAME') +]
[$ elsif exists $fdat{'cmd'} $]
[- Execute('command_frames.epl') -]
[$ elsif $such{$udat{-game}} $]
#] [- $messages = $aym->read_messages(); $now = $db->now(); -] [+ $db->loc('PLAYER_MESSAGES_HEADING') +] [+ $db->loc('PLAYER_DELETE_MESSAGES')+]
[$ foreach $msg (@$messages) $]
[+ $aym->show_message($msg->[0]) +] [# we dont show events in a global list any more [+ $db->loc('PLAYER_EVENTS') +] [- $events = $aym->role_events(); -] [$ foreach $e (@$events) $] [+ $aym->show_event($e->{'ID'}) +] [$ endforeach $] [$ if $#{@$events} < 0 $] [+ $db->loc('PLAYER_NO_EVENTS') +] [$ endif $] #] [+ $db->loc('PLAYER_STATISTIC') +] [+ $aym->show_statistic() +] |
[+ $db->loc('LOGIN_FAILED') +]
[- print OUT $db->loc('ERROR_NO_LOGIN'); -] [$ endif $]