| … | |
… | |
| 5 | use Fcntl; |
5 | use Fcntl; |
| 6 | use Coro::AIO; |
6 | use Coro::AIO; |
| 7 | |
7 | |
| 8 | our %PLAYERSEEN; |
8 | our %PLAYERSEEN; |
| 9 | |
9 | |
| 10 | our $UPDATE_LOGINS = AE::idle sub { |
10 | our $UPDATE_LOGINS = EV::idle sub { |
| 11 | $_[0]->stop; |
11 | $_[0]->stop; |
| 12 | |
12 | |
| 13 | cf::async { |
13 | cf::async { |
| 14 | my ($status, @pl) = ext::commands::who_listing; |
14 | my ($status, @pl) = ext::commands::who_listing; |
| 15 | |
15 | |
| … | |
… | |
| 60 | ext::irc::do_notice $name . " logged in"; |
60 | ext::irc::do_notice $name . " logged in"; |
| 61 | |
61 | |
| 62 | undef $PLAYERSEEN{$name}; |
62 | undef $PLAYERSEEN{$name}; |
| 63 | $UPDATE_LOGINS->start; |
63 | $UPDATE_LOGINS->start; |
| 64 | |
64 | |
| 65 | warn "LOGIN: ", $pl->ob->name, " from ", $pl->ns->host; |
65 | cf::trace "LOGIN: ", $pl->ob->name, " from ", $pl->ns->host; |
| 66 | }, |
66 | }, |
| 67 | on_logout => sub { |
67 | on_logout => sub { |
| 68 | my ($pl, $cleanly) = @_; |
68 | my ($pl, $cleanly) = @_; |
| 69 | $pl->ob->kv_set (schmorplog_last_logout => time); |
69 | $pl->ob->kv_set (schmorplog_last_logout => time); |
| 70 | ext::irc::do_notice $pl->ob->name . " left"; |
70 | ext::irc::do_notice $pl->ob->name . " left"; |
| 71 | |
71 | |
| 72 | $UPDATE_LOGINS->start; |
72 | $UPDATE_LOGINS->start; |
| 73 | |
73 | |
| 74 | warn "LOGOUT: ", $pl->ob->name, " from ", $pl->ns->host, " ($cleanly)"; |
74 | cf::trace "LOGOUT: ", $pl->ob->name, " from ", $pl->ns->host, " ($cleanly)"; |
| 75 | }, |
75 | }, |
| 76 | on_birth => sub { |
76 | on_birth => sub { |
| 77 | my ($pl) = @_; |
77 | my ($pl) = @_; |
| 78 | $pl->ob->kv_set (schmorplog_birthdate => time); |
78 | $pl->ob->kv_set (schmorplog_birthdate => time); |
| 79 | ext::irc::do_notice $pl->ob->name . " was just born"; |
79 | ext::irc::do_notice $pl->ob->name . " was just born"; |
| 80 | |
80 | |
| 81 | warn "BIRTH: ", $pl->ob->name, " from ", $pl->ns->host; |
81 | cf::trace "BIRTH: ", $pl->ob->name, " from ", $pl->ns->host; |
| 82 | }, |
82 | }, |
| 83 | on_quit => sub { |
83 | on_quit => sub { |
| 84 | my ($pl) = @_; |
84 | my ($pl) = @_; |
| 85 | ext::irc::do_notice $pl->ob->name . " quit the game"; |
85 | ext::irc::do_notice $pl->ob->name . " quit the game"; |
| 86 | |
86 | |
| 87 | warn "QUIT: ", $pl->ob->name, " from ", $pl->ns->host; |
87 | cf::trace "QUIT: ", $pl->ob->name, " from ", $pl->ns->host; |
| 88 | }, |
88 | }, |
| 89 | on_death => sub { |
89 | on_death => sub { |
| 90 | my ($pl) = @_; |
90 | my ($pl) = @_; |
| 91 | |
91 | |
| 92 | my $msg = $pl->expand_cfpod ($pl->ob->name . " was killed by " . $pl->killer_name . "."); |
92 | my $msg = $pl->expand_cfpod ($pl->ob->name . " was killed by " . $pl->killer_name . "."); |
| … | |
… | |
| 167 | my $name = $ns->pl && $ns->pl->ob ? $ns->pl->ob->name : "<unknown>"; |
167 | my $name = $ns->pl && $ns->pl->ob ? $ns->pl->ob->name : "<unknown>"; |
| 168 | |
168 | |
| 169 | $msg =~ y/\x0a\x20-\x7f//cd; |
169 | $msg =~ y/\x0a\x20-\x7f//cd; |
| 170 | $msg =~ s/\s+$//; |
170 | $msg =~ s/\s+$//; |
| 171 | |
171 | |
| 172 | warn sprintf "clientlog [%s/%s]: %s\n", $ns->host, $name, $msg; |
172 | cf::error sprintf "clientlog [%s/%s]: %s\n", $ns->host, $name, $msg; |
| 173 | |
173 | |
| 174 | () |
174 | () |
| 175 | }; |
175 | }; |
| 176 | |
176 | |
| 177 | # log max playercount every minute |
177 | # log max playercount every minute |
| … | |
… | |
| 208 | }; |
208 | }; |
| 209 | }; |
209 | }; |
| 210 | }; |
210 | }; |
| 211 | }; |
211 | }; |
| 212 | |
212 | |
| 213 | |
|
|
