| … | … | ||
|---|---|---|---|
| 149 | } | 149 | } |
| 150 | 150 | ||
| 151 | $cmd = lc $cmd; | 151 | $cmd = lc $cmd; |
| 152 | }; | 152 | }; |
| 153 | 153 | ||
| 154 | # log "crash" messages, i.e. client exit reasons | ||
| 155 | cf::register_exticmd clientlog => sub { | ||
| 156 | my ($ns, $msg) = @_; | ||
| 157 | |||
| 158 | my $name = $ns->pl && $ns->pl->ob ? $ns->pl->ob->name : "<unknown>"; | ||
| 159 | |||
| 160 | $msg =~ y/\x0a\x20-\x7f//cd; | ||
| 161 | $msg =~ s/\s+$//; | ||
| 162 | |||
| 163 | warn sprintf "clientlog [%s/%s]: %s\n", $ns->host, $name, $msg; | ||
| 164 | |||
| 165 | () | ||
| 166 | }; | ||
| 167 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |