upstream/wesnoth
1
0
Fork 0
mirror of https://github.com/wesnoth/wesnoth synced 2025-05-18 22:18:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

syntax cosmetics

Browse Source
This commit is contained in:
Gunter Labes 2007-08-16 21:26:44 +00:00
parent 9354b8f84a
commit 92695f0351
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
utils/mp-lobby-logger.pl
View File

@ -200,8 +200,8 @@ print LOG "Connecting to $HOST:$PORT as $USERNAME.\n" if $logfile;
my $socket = &connect($HOST,$PORT); my $socket = &connect($HOST,$PORT);
defined($socket) or die "Error: Can't connect to the server."; defined($socket) or die "Error: Can't connect to the server.";
login($socket); &login($socket);
serverstats() if $writestats; &serverstats() if $writestats;
while (1) { while (1) {
my $response = &read_packet($socket); my $response = &read_packet($socket);
@ -235,7 +235,7 @@ while (1) {
print STDERR &timestamp . "--> $username has logged on. ($userindex)\n" if $showjoins; print STDERR &timestamp . "--> $username has logged on. ($userindex)\n" if $showjoins;
print LOG &logtimestamp . "--> $username has logged on. ($userindex)\n" if $logfile; print LOG &logtimestamp . "--> $username has logged on. ($userindex)\n" if $logfile;
$users[@users] = $user; $users[@users] = $user;
serverstats() if $writestats; &serverstats() if $writestats;
} else { } else {
print STDERR "[gamelist_diff]:" . Dumper($_) if $dumpunknown; print STDERR "[gamelist_diff]:" . Dumper($_) if $dumpunknown;
} }
@ -245,7 +245,7 @@ while (1) {
print STDERR &timestamp . "<-- $username has logged off. ($userindex)\n" if $showjoins; print STDERR &timestamp . "<-- $username has logged off. ($userindex)\n" if $showjoins;
print LOG &logtimestamp . "<-- $username has logged off. ($userindex)\n" if $logfile; print LOG &logtimestamp . "<-- $username has logged off. ($userindex)\n" if $logfile;
splice(@users,$userindex,1); splice(@users,$userindex,1);
serverstats() if $writestats; &serverstats() if $writestats;
} else { } else {
print STDERR "[gamelist_diff]:" . Dumper($_) if $dumpunknown; print STDERR "[gamelist_diff]:" . Dumper($_) if $dumpunknown;
} }
@ -306,7 +306,7 @@ while (1) {
print STDERR &timestamp . $settings . "\n" if $showgames; print STDERR &timestamp . $settings . "\n" if $showgames;
print LOG &logtimestamp . $settings . "\n" if $logfile; print LOG &logtimestamp . $settings . "\n" if $logfile;
$games[@games] = $game; $games[@games] = $game;
serverstats() if $writestats; &serverstats() if $writestats;
} else { } else {
print "[gamelist_diff][change_child][gamelist]:" . Dumper($_) if $dumpunknown; print "[gamelist_diff][change_child][gamelist]:" . Dumper($_) if $dumpunknown;
} }
@ -323,7 +323,7 @@ while (1) {
print LOG &logtimestamp . "--- A game was aborted: \"$gamename\". ($gamelistindex, $gameid)\n" if $logfile; print LOG &logtimestamp . "--- A game was aborted: \"$gamename\". ($gamelistindex, $gameid)\n" if $logfile;
} }
splice(@games,$gamelistindex,1); splice(@games,$gamelistindex,1);
serverstats() if $writestats; &serverstats() if $writestats;
} else { } else {
print STDERR "[gamelist_diff][change_child][gamelist]:" . Dumper($_) if $dumpunknown; print STDERR "[gamelist_diff][change_child][gamelist]:" . Dumper($_) if $dumpunknown;
} }