| … | |
… | |
| 196 | AnyEvent::Util::fh_nonblocking $fh, 1; |
196 | AnyEvent::Util::fh_nonblocking $fh, 1; |
| 197 | |
197 | |
| 198 | $msg =~ s/\s+$//; |
198 | $msg =~ s/\s+$//; |
| 199 | |
199 | |
| 200 | # backtrace as second step, in case it crashes, too |
200 | # backtrace as second step, in case it crashes, too |
| 201 | crash Carp::longmess "$msg\nbacktrace, for client version $DC::VERSION, generated" |
201 | crash Carp::longmess "$msg\nbacktrace, for client version $DC::VERSION$Urlader::EXE_VER, generated" |
| 202 | if $backtrace; |
202 | if $backtrace; |
| 203 | }; |
203 | }; |
| 204 | |
204 | |
| 205 | sub clienterror($;$) { |
205 | sub clienterror($;$) { |
| 206 | my ($msg, $backtrace) = @_; |
206 | my ($msg, $backtrace) = @_; |
| … | |
… | |
| 208 | warn $msg; |
208 | warn $msg; |
| 209 | |
209 | |
| 210 | return unless $CONN; |
210 | return unless $CONN; |
| 211 | |
211 | |
| 212 | $CONN->send_exti_msg (clientlog => $msg); |
212 | $CONN->send_exti_msg (clientlog => $msg); |
| 213 | $CONN->send_exti_msg (clientlog => Carp::longmess "$msg\nbacktrace, for client version $DC::VERSION, generated") if $backtrace; |
213 | $CONN->send_exti_msg (clientlog => Carp::longmess "$msg\nbacktrace, for client version $DC::VERSION$Urlader::EXE_VER, generated") if $backtrace; |
| 214 | } |
214 | } |
| 215 | |
215 | |
| 216 | ############################################################################# |
216 | ############################################################################# |
| 217 | |
217 | |
| 218 | sub status { |
218 | sub status { |
| … | |
… | |
| 964 | mapw => $mapw, |
964 | mapw => $mapw, |
| 965 | maph => $maph, |
965 | maph => $maph, |
| 966 | |
966 | |
| 967 | c_version => { |
967 | c_version => { |
| 968 | client => "deliantra", |
968 | client => "deliantra", |
| 969 | clientver => $DC::VERSION, |
969 | clientver => "$DC::VERSION$Urlader::EXE_VER", |
| 970 | gl_vendor => DC::OpenGL::gl_vendor, |
970 | gl_vendor => DC::OpenGL::gl_vendor, |
| 971 | gl_version => DC::OpenGL::gl_version, |
971 | gl_version => DC::OpenGL::gl_version, |
| 972 | }, |
972 | }, |
| 973 | |
973 | |
| 974 | map_widget => $MAPWIDGET, |
974 | map_widget => $MAPWIDGET, |
