… | … | ||
---|---|---|---|
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 |